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O A R AP©S 
ANS05 (2) 



Examinamos, no artigo anterior, 
os princípios que fundamentam o jogo 
A Raposa e os Gansos. Começaremos 
agora a montar o programa, 
digitando suas primeiras rotinas - 
entre elas, a que mapeia os movimentos. 




FUNCIONAMENTO DO PROGRAMA 



COMECE 0 JOGO 



MAPEAMENTO DAS JOGADAS 



MAIS UMA VEZ? 



Apresentamos aqui as rotinas de ini- 
cialização e de mapeamenio dos movi- 
mentos. Além delas, você deverá digi- 
tar a rotina que oferece ao jogador mais 
uma partida. Nesse ponto, porém, a exe- 
cução do programa não resultara em na- 
da, pois ainda faltam rotinas muito im- 
portantes. Todas elas serão dadas no 
próximo artigo da série. 



O programa avalia as posições ocu- 
padas no tabuleiro segundo a configu- 
ração das peças. Como cada posição 
tem um valor, pode-se, ao analisar as jo- 
gadas à frente, escolher o melhor movi- 
mento pelo resultado numérico maior. 

O programa trabalha de três manei- 
ras quando está analisando jogadas. A 
mais simples (nível 1) consiste no exa- 
me de apenas uma jogada. Nos níveis 



mais elevados, o programa examina as 
múltiplas possibilidades de jogo, utili- 
zando o algoritmo alfa-beta para eco- 
nomizar tempo. Nos níveis intermediá- 
rios, analisa todas as possibilidades 
abertas no momento. 

As rotinas situadas da linha 2010 à 
linha 3000, que são executadas apenas 
uma vez, foram colocadas no fim do 
programa. No começo estão as rotinas 
mais importantes,' o que garante uma 
maior velocidade ao jogo. 



As rotinas apresentadas a seguir, usa- 
das para inicializar o jogo, dimensionam 
as matrizes, definem as funções e, no ca- 
so de alguns micros, estabelecem tam- 
bém o tabuleiro. 



2010 DJM G(A): DEF FN U(A)-INT 
(A-4*TNT (A/4)) r DEF FN V(A)=IM 
T {A-8*1NT (A/8))>=4: DEF FN W( 
A)=INT (A-2*1NT (A/2)) 
2015 LET HF=0: LET H« = 0 
2020 DIM B(32): LET B(i)«lí FOR 

1-1 TO 31] LET B(1+1)-B[I)«2: 
NEXT 1 

2026 LET BX = B(.32)*2-B(25) : LET 
E=l E30 : LET H=-1E30 
2030 LET L2-LN (2) 
2040 DIM 113(16,2,16)- DIM GS ( 7 , 
A): LET (39(1)=" " : LET GS ( 2 ) *" 
-+CHHS 146+CHKS 147: DIM HS ( 7 
,4): LET H5(l)=" "i LET H$(2)^ 
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CHRS 146+CHRS 14/ + " áj§fjÍj 

2050 LET X-l: FOR A-l TO 2: FOR 

B-l TO 2: FOR C-l TO 2: FOR D- 

1 TO 2: LET BS (X . 1 ) -OS (D) +<!S [Cl 

+gs(B)-k;s<a> 

2060 let bs (x. 2) = hs ( a) +hs (b) +h5 

(C)+HS(D)' LET X=X+l! MEXT D: N 

EXT C: NEXT B : NEXT A 

2070 DIM SS{fl.](S); GOSUB 6000 

2090 DIM FS12.4I : LET FS(1)-" 

"+CHRS 144+CHRS 145: LET FS(2)" 

CHBS 144+CHRS 145+" " 

2095 DEF FN C(B>»Í*N U(B-L)*<4-a 

•FN V(B-)))+12-FN V<B-L) 

ÍM ^ 

10 COTO 2010 

2010 DIM G(4) .B(31) .M(3.31) .X(3 
1) .2(31) 

2020 B(0J*l:FOR K = l TO 31:B(KI= 
B(K-1)*2:NEXT 

2026 BX«B(31)*2-B(24) :E-.1E30:H = 
-1E30 

2030 L2-LOG (2) : DEFFNA (F) " INT (LO 
C(F>/L2+.O01) 



7 KEYQFF : GOTO 20 J 0 

10 GOSUB 4000:GOTO 1010 

7010 DIM G(4) , B (31) ,M ( 3 , 31 ) , X ( 3 

1) ,Z{31) ,GS(4,1) 

7<l?0 B(0)=1'FOR K = l TO 31:B(K)= 
B ( K-l ) * 7 : NEXT 

7026 BX=B(31)"Z-B(24) :E-1B+30:H 
-IE+30 

2030 E.2-LOG-(2) : DEFFNA { F) = INT [LO 
G(F)/L2+lE-03í 

2040 OPEN " GR P : " FOR OUTPUT AS 



10 GOTO 2010 



2010 DTM G(4) .B(31) ,M(3.31) ,X( 

31) .Z(31) :VS - CHRS O) * CHR 
S (1) + CHBS (D + CHRS (7) 
2020 BIO) = 1: FOB K " 1 TO 31: 
B(K) - B(K - 1) - 2: NEXT 
2026 BX - B{31) * 2 - B(24)íE - 

1E30:H - - 1E30 
2030 L2 ' LOG (2): DEF FN A(F 
) - INT ( LOG (F) / L2 + .001) 

A linha 2010 dimensiona a matriz uti- 
lizada para armazenar as posições dos 
gansos. A linha 2020 numera cada qua- 
drado do tabuleiro. jiii 

A Unha 2030 determina o número to- 
tal de configurações que o programa po- 
de avaliar. O valor 0.001 foi adiciona- 
do à definição da função A para evitar 
a ocorrência de erros de arredondamen- 
to no cálculo de logaritmos. 

No Spectrum, a matriz B$, dimensio- 



nada na linha 2040, mostra as colunas 
do tabuleiro já ocupadas pelas peças. F$ 
c usada para mostrar a peça da raposa 
e a casa em que está, e H$, para os gan- 
sos e suas casas. A matriz S$, determi- 
na o número dos quadrados. 

Nos demais microcomputadores, as 
figuras são definidas em alta resolução 
por uma outra rotina. 



COMEÇANDO 



Esta rotina permite a escolha das pe- 
ças com que se vai jogar e o grau de di- 
ficuldade. Comece pelo mais fácil: 




2700 LET F = 2: LET GU)=29r LET 
G(2)-30; LET G(3)-31: LET G(4)- 
32: GOSUB 2710: GOTO 1010 
2710 CLS : PBINT AT 0,8; INK 1: 
■RAPOSA E GANSOS" : INPUT "VOCE 
QUER . . . " ; TAB S;"SER A RAPOSA ? 
(S/N) "ilS 

2720 LET PF-O: IF IS-="S" OR *ÍS = 
"a" THEN GOTO 2760 
2730 LET PF-1: IF ISO"N" AND I 
3<> n n" THEN GOTO 271 0 
2740 INPUT "NÍVEL DE HABILIDADE 
DA RAPOSA ? ";SF: IF SFÍ1 OR S 
F>10 THEN GOTO 2740 
2750 LET HF=131*(SF=5)+613*(SF= 
6)+1997*<SF>6) 

2760 INPUT "VOCE QUER . . . " ; TAB 
5: "CONTROLAR OS GANSOS ? (S/N) " 
! IS 

2770 LET PG-0: IF JS-"S" OR I$- 
"a" THEN GOTO 2860 
27B0 LET PG=1: IF ISO"N" AND I 
SO"n" THEN GOTO 2760 
2790 INPUT "NÍVEL DA HABILIDADE 
DOS GANSOS ";SG: IF SG<1 OR $t 
G>10 THEN GOTO 2790 
2800 LET HG-131*(SG=5)+613«(Sa- 
6)+1997MSG>6) : JF HF<HG THEN 
LET HF = HG 

2860 INPUT "VOCE QUER ALTERAR A 
S POSIÇÕES INICIAIS ?" ; ISí SP 
IS""N" OB IS-"n" THEN GOTO 30 
00 

2BB0 IF ISO"S" AND 15<>"a" THE 
N GOTO 2B60 

2690 GOSUB 210: GOSUB 310: 1NPU 
T "QUER MOVER A RAPOSA ?";JS 
2900 IF IS""N" OR IS""n" THEN 
GOTO 2930 

2910 TF IS<>"S" AND 1$<>"b" THE 
N GOTO 2890 

2920 INPUT "PABA ONDE ?";F: IF 
F<1 OR F>32 THEN GOTO 2920 
2930 FOR G«l TO 4: GOSUB 210* G 
OSUB 310 

2940 INPUT "QUER MOVER O GANSO 
DA POSIÇÃO"; (G (G) );"?"; IS 
2950 IF IS'"N" OR IS="n" THEN 
GOTO 2990 

2960 IF !$<>"S" AND ISO"a" THE 



N GOTO 2940 

2970 INPUT "PARA ONDE ?" : I : IF 
FN X(I) OR I-F THEN GOTO 2960 
2972 IF Kl OR I>32 THEN GOTO 
2970 

2980 LET G(G)-I 

2990 NEXT G: IF FN X(F) THEN P 
B I NT "HA UM GANSO SOB A RAPOSA" 
: FOB 1=1 TO 1500: NEXT I: GOTO 
2910 
3000 RETURN 

D 

2500 DIM RU400) .SU400) 

2700 F-l:G(l)-28:G(2)-29:G(3)-3 
OG(4)-31:GOSUB 2710:GOTO 1010 
2710 CLS:PRINT "VOCE CUER SEB A 

RAPOSA (S/N) 
2720 KS-INKEYS:IF KSO'S" AND K 
SO"N" THEN 2720 

2730 PRINT KS:PF=1:IF KS="S" TH 
EN PF-0:GOTO 2760 
2740 PRINT : PRINT "NÍVEL DE HABI 
L IDADE DA RAPOSA (0-9) ?" í 
2745 KS-INKEYS:IF KSí'0" OR KS> 
"9" THEN 2745 
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2746 SF-VAL(KS)+1: PRINT K3 
2750 HF — 131*(SF-5)-613*(SF-6>- 
1399* (SF>6) 

2760 PRINT : PRINT "VOCÊ QUER CON 
TROLAR OE GANSOS (S/N) 7"; 
2770 KS-INKEYS:IF K$<>"S" AND K 
SO"N" THEN 2770 

2780 PHINT K$:PG-1:IF K$-"S P TH 
EN PG-0:GOTO 2860 
2790 PRINT : PRINT"NIVEL DE HÁBIL 
IDADE DOS GANSOS (0-9) 7"; 

2795 KS-INKEYS:IF KS<"0" OR KS> 
"9" THEN 2795 

2796 SG»UAL(KS)+1:PRINT K$ 
2BO0 HG— 131*(SG-5)-613*{SG-6)- 
1399«(SG>6) :IF HF<HG THEN HF-HG 
2860 PRINT:PRINT"VOCE QUER ALTE 
BAR AS POSIÇÕES INICIAIS {S/N 

2870 K3-INKEY$:IF KSO"S" AND K 

SO"N" THEN 2870 

2880 IF KS-"N- THEN 3000 

2890 GOSUB 210 

2920 DRAM* , BM180,80"+MW3:XX-FNXX 

(1) :YY-FNYY(1) :GOSUB 1810:F-4*I 

NT ( YY/20) : F-FNCN (F) 

2925 PUT(68.B) -(87.2?) .SQ.PBET: 

PUTIXX. YY+5)- [XX+19, YY+13) ,FX,P 

SET 




ihumui 



2930 FOR G-l TO 4:G0SUB 210 
2940 XX-FNXX(G{G)) : Xl-XX : YY-FNY 
Y (G (G) ) : Y1"YY : GOSUB 1B10:PUT(X1 
,Y1)-(X1+19,Y1+19) ,SQ,PSET 
2950 I-4*INT(YY/20) :I-FNCN(I) 
2960 IF (FNX(I) OR I-F) AND IO 
G(G) GOSUB 5000:GOTO 2940 
2970 PUT(XX.YY+5)-(XX+19.YY+14) 
,GS,PSET:G!G)=I 

2990 NEXT: IF FNX(F) GOSUB 5000 : 

GOTO 2920 

2995 C-l :G-G(1) 

3000 RETURN 



2500 DIM RU100) .S(llOO) 
2700 F-1:G(1)-28:G(2)-29:G(3)»3 
0-G[4)-31:G0SUB 2710:GOTO 10 
2710 CLSTPRINT-Alguém jooa com 

a raposa? O/N) "| 
2720 KS = TNKEYS:IF KSO"S" AND K 
SO"N" THEN 2720 ^^^^^H 
2730 PRINTK3 : PF-1 : IF K$""S"^T^fc 

N PF=0:GOTO 2760 

2740 PRINT : PRINT"Habi 1 idade d«SJ 
rapoaa? (0-9) "; 

2745 K$=INKEyS:TF KS<"0" OR KS> 
"9" THEN 2745 

2746 SF=VAL(KS>+1:PRINTKS |fl 
2750 HF--131*(SF-5)-613*(EF»6)- 

1099* (SF>6) 

2760 PR JNT : PRINT"A1 guém joga CO 
n os gansos? (S/N) "| 
2770 XS=INKEY3:IF K30"S" AND K 
3<>"N" THEN 2770 

2780 PRINTK3:PG=].:IF KS= "S" THE 
N PG=0:GOTO 2860 
2790 PRINT : PRlNT"Habi 1 idade dos 
ganaoa? (0-9) "| 

2795 KS-INKEYS:IF KS<"0" OR K$> 
"9" THEN 2795 

2796 SG-VAL[K$)+liPRINTK3 

2800 HG— 131* (SG-5J-613* (SC-6) - 
1099*tSG>6) :IF HF<HG THEN HF-HG 
2860 PRINT:PRINT"Vocft quer alte 
rar as pOBicõeg inicais? (S/N) 

2870 K$-INKEYS:IF KSO"S" AND K 

SO"N" THEN 2B70 

28B0 IF KS«"N" TL"N 3000 

2890 GOSUB 210: GOSUB 4000:GOSUB 

2920:GOTO 1010 

2920 PR ES ET (1.88. 80) : PRINT* l . "P 
ara ?" : XX-FNXX (1 ) • YY=FNY Y ( 1 ) : GO 
SUB 1810:F-4*INT((YY-2)/20) :F-F 
NCN(F) 

2925 PUT SPRITE FX.(XX.YY),6 
2930 FOR G"l TO 4: GOSUB 210 
2940 XX=FNXX (C (G) ) :YY=FNYY(G(G) 
) rGOSUB IB10 ^^^^ 
2950 I=-4*1NT((*Y>2)/2Q) :I-FNCN< 

2960 IF (FNX(I) OR I-F) AND IO 
G(G) THEN GOSUB 5000:GOTO 2940 
2970 GS(5-G,1)-I:G(G)-I:PUT SPR 
ITE GS(5-G,0) . (XX. YY) . 15 
2990 NEXT : I F FNX(F) THEN GOSUB 
5000:GOTO 2920 
2995 C=1:G-G(1) 
3000 RETURN 



Illllllllll 
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2500 D LM B (.1.500) ,S(1500) 

2700 F - 1: FOB T - 28 TO 31:G( 

I - 27) • I: NEXT ! GOSUB 2710: 

GOTO 1010 
2710 HOME : VTAB 22: PBINT "AL 
C11IEM JOGA COM A RAPOSA? (8/N) " 

2720 GET K3: IF KS < > "3" AN 
D K3 < > "N" THEN 2720 
2730 PBINT KS:PF - 1: IF KS = 
"S" THEN PF - 0: C.OTO 2760 
2740 PRTNT "HABILIDADE DA RAPO 
SA? (0-9) "i 

2745 GET KS: IF K3 < "0" OB KS 

> - 9" THEN 2745 

2746 SF - VAL <KS) + ll PBINT 

2750 HF - 131 * (SF - 5) + 613 

* (SF -6) + 1499 * (SF > 6) 
2760 HOME : VTAB 22: PBINT "AL 
GUEM JOGA COM OS GANSOS? (S/U) 

Hr70 GET KS: IF KS < > "S" AN 

fyfr X$ < > "N" THEN 2770 

2780 PR (NT KS:PG = 1: IF KS = 
"3" THEN PG = 0- GOTO 2B60 
2790 mi NT "HABILIDADE DOS GAN 
SOS? (0-9) "; 

2795 GET KS: r F KS < "0" OR KS 

> "9" THEN 2795 

2796 SC = VAL (KS) + l: PBINT 
KS 

2800 BC = 131 * (SG - 5) + 613 

* (SG = 6) + 1-199 * {SG > 6) : T 
" F BF < HG THEN HF = HG 

2860 HOME : VTAB 22: PR I NT "Qll 
ER MODAB AS POSIÇÕES INICIAIS.' 
(S/N) 

2B70 GET KS: IF KS < > "S" AN 
D KS < > "N" THEN 2870 
2890 IF KS ' "N" THEN 3000 

2890 GOSUH 210 

2920 HOME : VTAB 22: PR I NT "MO 
VE PARA ONDE?*: XX ■ FN XX ( 1 .) : Y 
Y = FN YYU): GOSUB IB10 F ■ 4 
* INT (YY / 20) :F - FN CN(F) 

2925 HCOLOB- 0: DBAW FX AT 120 
,B: HCOLOR= 3: DBAW FX AT XX + 
Z.YY + 8 wÊê 
2930 FOR G = 1 TO 4: GOSUB 210 

2940 :XX = FN KX(G(G)):XN - XX 
:YY - FN YY(G(C)):YN - : GOS 
UB 1.B10: HCOLOR= 0: DBAW GS AT 
XN + 7.YN + 5 ^ÊÊ 
2950 1=4" INT (ÍI / 20) :I = 
FN CN(I) 

2960 TF ( FN OR I - F) AN 

D I < > G(G) THEN GOSUB 5000: 

GOTO 2920 
2970 HCOLOR= 3: DRAU GS AT XX 
+ 7,YY + 5:G(G) = I 
2990 NEXT : TF FN X(F) THEN 
GOSUB 5000: GOTO 2920 
2995 C - 1:3 - GC1) 
3000 RETUtlN 

A linha 2700 determina as posições 
iniciais, com os quatro gansos ocupan- 



do os quatro quadrados da coluna infe- 
rior do tabuleiro, e a raposa, o segundo 
quadrado a partir da esquerda do vídeo, 
na coluna superior. 

Em seguida, as linhas 2710 a 2750 pe- 
dem que se defina quem jogará pela ra- 
posa e que seja indicado um nível de di- 
ficuldade de 1 a 10, se for o computa- 
dor. As linhas 2760 a 2800 são seme- 
lhantes, só que tratam dos gansos. 

O jogador pode ajustar as posições 
iniciais não só para dar continuidade a 
uma partida (será preciso tomar nota 
das posições), mas, também, para estu 
dar e tentar ganhar o jogo de uma posi 
ção particularmente interessante. As li 
nhãs 2860 a 3000 perguntam se o joga 
dor quer alterar as posições de inicio, 
realiza todas as modificações necessárias 
e verifica se estas estão de acordo com 
as regras. 



MAPEAMENTQ DAS JOGADAS 



A rotina de mapeamento de jogadas 
: uma das mais importantes do jogo: 



140 DEF FN X(B)=B=G<1) OR B=G ( 
2) OR B-G(3) OB B=G(4) 
2100 DIM fiS(8,16) 

2142 DEF FN Z(B)=(B-G(l))+ (B=G ( 
2) )*2+(B=G(3) ) *3+(B+G(4) ) *4 
2150 DIM M(4,32): DIM X(32): DI 
M Z(32) 



2160 FOR 8-1 TO 32: LET U» 
*TNT (B/4-.2): FOR A-l TO 
T M(A.B>-(B-2)-2*U+8M(B<:5 
(A>2) }+{A«7-6)" (U-3)+<A=2) 
)+(A-4): NEXT A: LET X(R)- 
) + (B<29) )« ( (U<3)+) ) : LET Z 
B>4)«((UO)*l) : NEXT B 
2JB0 DIM V(ll) : DIM A().l) : 
FUI) : DIM PUI) : DIM CUI 
M RIU : DIM 3(1) 



2110 DEFFNF(B)-((B>3)+(B<28))«( 
((3ANDB)<3)-1)-1 

2120 DEFFNG(B) - (B>3) * ( ( (3 AND B 
)<3)-l) -1 

2140 DEFFNX(B) =■ (B-G ( 1 ) ORB-G ( 2 ) O 
RB-G(3)ORB-G(4)) 

2142 DEFFNZ(B) — (B-G (1 ) ) - (B-0 (2 ] 
) ) *2- (B-G (3) ) *3- (B-G (4) ) «4 
2150 DEFFNXX(B) — ( ( 7ANDBK4) * ( 2 I 
8+40" (3ANDB) ) - ( (7ANDB) >3) • U28- 
40* ( 3ANDB) ) 
I 2155 DEFFNYY (B) -6+20*INT (B/4 ) 
2156 DEFFNCN (B) -B- ( (7ANDB) <4) * ( 
XX-2B)/40-< (7ANDB}>3) * (128-XX)/ • 
40 

2160 FOB B-0 TO 31: FOB A-0 TO 3 
:M(A,B)-B-2«(3ANDB)-2-8*(B<4 OR 
A>l)-(1+A*7)*((3 AND B)-3)+(l 
AND A) :NEXT:X(B)-FNF(B} :Z (B)-FN 
G(B) : NEXT 



M(B>3) + (B<28)>*( 




Illlllllll 
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2120 DEFFNG(B)-(B>3)*(((RMOD4K 

3J-D-1 

2140 DEFFNX{B)-(B-GU)ORB-G(2)0 
RB-G (3) ORB-G (4) 

2142 DEFFNZ(B)--(B-G(l))-(B-G(2 
))*2-(B-GÍ3))«3-(B-G(4))*4 
2144 DEFFNZZIB) — (B-GS(l.D)-(B 
-CS (2,1) )*2- (B-GS(3,1) ) *3- (B-CS 
(4.1! )M 

2150 DEFFNXX(B) — {(BM0DB)<4)M3 
6+40"(BMOD4) ) -( ÍBM0D9) >3)* (138- 
40«(BMOD4) ) 

2155 DEFFNYY(B)-20+20*INT(B/4) 

2156 DEFFNCN(B)-B-((BMOD8K4)M 
XX-38) /40- ( (BM0D8) >3 ) * ( ) 38- XX) / 
40 

2160 FOR B-0 TO 31: FOR A-0 TO 3 
:M(A.B)-B-2«(BMOD4)-2-8"(B<4 OH 
A>1) - (l+A-7) M [BMQD4)-3)+(AM0D 
2) :NEXT:X(S)-FNF{B> :ZtB) -FNG(B) 
: NEXT 



2110 DEF FN MD(X) = X - ( INT 

(X / MD) - MD) : DEF FN M2 (X) 
- X - ( INT (X / 2) * 2) : DEF 
FN M4(X) - X - ( INT (X / 4Bg 
4) : DEF FN M8 (X) - X - ( It^m - 
X / B) * 8) 

2115 DEF FN F(B) - ( (B > 3)SSg 
(B < 28) ) * ( ( FN M4 (B) < 3) .+ 

1) - 1 ■ 
212!) DEF FN G(B) = (B > 3) 
(( FN M4{B) < 3) + 1) - 1 
2140 DEF FN X(B) - - (B ~ G( 

, 1) OR B - G<2) OR B = GÍ3) OR B = 

{ = G(4)) 

2142 DEF FN Z(B) = (B = G(l) ) 



+ (B » G(2) ) * Z + (B - GÍ3) ) 
* 3 + (B - G(4)) * 1 
2150 DEF FN XX(B) - { FN MB (B 
) < 4) * (XI + 21 + 40 * FN M4 
(B) ) + ( FN MB (BI > 3) • (X2 - 
FN M4(B)) 

FN YY{R) = VI 4 70 * 



2155 DEF 
TNT (B / 

2156 DEF 
Mfi[B) < 4) 

FN MB(B) 



4) 

FN CN (B) - B + ( FN 

* (XX - 78) / 40 + ( 

• 3) * {178 - XX) / 4 



2160 FOR B - O TO 31: FOR A - 
0 TO 3:M(A,B) • B - 2 * F'N M4 ( 
B) - 2 + 8 * (B C 4 OR A > 1) + 

(I + A - 7) * ( FN M4{B) • 3) 
+ FN M2(A) : NEXT rX(B) - FN F 
(B) : Z (B) - FN G (B) : NEXT 

As linhas 21 10 a 2160 montam o ma- 
pa dos movimentos da raposa e dos gan- 
sos na matriz M, armazenam o número 
dos movimentos possíveis da raposa na 
matriz X e o dos gansos na matriz Z. As 
matrizes são formadas pelas funções de- 
finidas nas linhas 2110 a 2142. 

A rotina do Spectrum é mais curta 
devido à lógica interna dessa máquina. 



Agora, adicione esta rotina: 





O que é Inteligência Artificial? 

A Inteligência Artificial UAI. cujos 
conceitos são utilizados no jogo A Ra- 
posa e os Gansos, è um campo da In 
formática que procura desenvolver mó 
todos computacionais pare imitar o 
telecto humano em várias tarefas, co 
mo o diagnóstico de doenças, a pros 
pecçào mineral etc. Os jogos estraté 
gicos, como o xadrez, também têm si 
do alvo de estudos. Aplicam-se a eles 
sobretudo duas técnicas de IA: a pro- 
gramação heurística e a otimização de 
busca. 



1420 IF IS--S" OR tS-"3" » 
GOTO 2700 

1430 IF ISO-N" AND lSO"n 
N GOTO 1410 
1440 STOP 



1410 PRINT 0390. "QUER RECOMEÇAR 

(S/N) ?" 
1420 KS-INKEYS:IF KS-"S" GOSUB 
4040:CLS:GOTO 2700 
1430 IF KS<>"N" THEN 1420 
1440 CLS : END 



1410 LOCATE 5.20:PRINT"QUER REC 
OMEÇAR? (S/N) " . 

1420 KS= TNKEYS : IF KS="S" THEN E> 



14 10 FOR Z = 

TEXT : HOME 
ti VEZ? (S/N) " ; 

1420 GET KS- IF KS < > "S" AN 
D KS < > "N" THEN 1470 
3430 IF KS = "S" THEN RlIN 
1440 HOME : END 

Essas linhas entrarão em cena quan- 
do os gansos conseguirem encurralar a 
raposa ou quando a raposa conseguir 
atingir o lado oposto do tabuleiro. 

Não lente nesta fase executar o pro- 
grama, pois ainda falta adicionar várias 
partes vitais. Com as rotinas do próxi- 
mo artigo você poderá, finalmente, co- 
meçar a jogar. 
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COMO UTILIZAR 
UM DISQUETE 



0 emprego de um acionador de disquetes 
em seu microcomputador pode envolver 
algumas complicações. Este artigo 
mostra como evitar erros comuns e como 
fazer o melhor uso desse periférico. 



Como vimos no artigo da página 876, 
o disco magnético é a melhor alternali- 
va para quem deseja um armazenamen- 
to mais rápido e confiável do que o pro- 
porcionado pela fita cassete. Entretan- 
to, ao contrário do que ocorre com o 
gravador de fita, pode ser complicado 
fazer funcionar a combinação compu- 
tador-disquete. Além disso, o usuário 
precisa aprender uma série de novos co- 
mandos para controlar o disco. 

Este artigo explica como coneciar e 
usar os acionadores de disquetes dispo- 
níveis para os diversos tipos de micro- 
computador existentes no Brasil. As li- 
nhas cobertas no artigo são: TRS-80, 
TRS-Color, Apple II, TK-2000 e MSX. 
Uma breve menção é feita aos micros 
compatíveis com a linha Spectrum 
(TK-90X), que dispõe de unidades acio- 
nadoras apenas no Exterior. 

A primeira coisa que você deve fazer 
ao receber sua unidade de disquetes é 
checar se ela foi protegida para trans- 
porie. Em geral, um pedaço de cartoli- 
na do tamanho de um disquete é inseri- 
do na unidade, a fim de proteger a ca- 
beça de leitura e gravação. Retire esse 
protetor somente depois de colocar o 
acionador no local em que será utiliza- 
do. Guarde-o, porém, para que, quan- 
do se fizer necessário, possa mudar o 
computador de lugar. 



Conectar a unidade acionadora de 
disquetes ao micro pode ser fácil ou 
complicado, dependendo do modelo. 



Os microcomputadores compatíveis 
com a linha TRS-Color utilizam unida- 
des acionadoras de disquetes de 5 1/4 
polegadas (minidisquetes), de face sim- 
ples e densidade dupla. Encontram-se 
no mercado gabinetes de um ou de dois 
acionadores (como os do CP-400). 

A conexão é muito simples: o cabo 
de ligação, do tipo plano, tem na ponta 
um conector que deve ser inserido na 
pona de cartuchos do micro, 
I O software operacional de utilização 



já está gravado em memória ROM, na 
própria unidade de disco. Dessa manei- 
ra, torna-se instantaneamente disponí- 
vel tão logo se liga o computador, não 
sendo necessário carregá-lo de um dis- 
quete. O cabo de força da unidade acio- 
nadora deve ser ligado separadamente 
em uma tomada. 



9u 



separadamente, e podem ser conectadas 
a ela até duas unidades acionadoras. O 
número de placas de controle que cabem 
no micro depende da marca, mas, de um 
modo geral, empregam-se até três pla- 
cas. Os acionadores costumam alojar- 



Os microcomputadores compatíveis 
com a linha TRS-80 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples 
ou dupla e densidade dupla. É possível 
concectar até quatro unidades por mi- 
cro. Alguns modelos de computador 
comportam dois acionadores no gabine- 
te principal e mais dois em caixas sepa- 
radas. Outras marcas aceitam apenas 
unidades externas. 

Em geral, os acionadores já vêm ins- 
talados nos micros que os aceitam no ga- 
binete principal, quando se compra o 
modelo com disquetes. Se você possui 
um computador desse tipo e pretende 
adicionar um ou dois acionadores, re- 
comendamos que não o faça sozinho: 
peça auxilio ao revendedor, pois a ins- 
talação é razoavelmente complexa e re- 
quer a abertura do gabinete. 

Nos computadores em que os aciona- 
dores são ligados externamente, a cone- 
xão é muito simples: o cabo de ligação, 
do tipo plano, tem na ponta um conec- 
tor que deve ser inserido na porta de ex- 
pansão de discos do micro. Para ligar 
mais de uma unidade, deve-se utilizar 
um cabo próprio, com vários conecto- 
res intercalados {daysy ckaining). Não 
são necessários cabos de força separa- 
dos para as unidades acionadoras, pois 
a alimentação ocorre por intermédio do 
cabo de conexão. 



Os microcomputadores que são com- 
patíveis com a linha Apple II utilizam 
unidades acionadoras de disquetes de 5 
1/4 polegadas (minidisquetes), de face 
simples e densidade dupla. A placa de 
controle (interface) deve ser adquirida 
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se individualmente em caixas externas. 

A conexão não é muito simples, po- 
rém com alguns cuidados, você mesmo 
pode fazê-la. Primeiro, desligue o mi- 
cro da tomada e abra a tampa superior 
do console (UCP). Localize um conec- 

m 

O microcomputador TK-20O0 pode 
usar apenas um acionador de disquetes, 
com discos de 5 1/4 polegadas (minidis- 
quetes), de face simples e densidade du- 
pla. O acionador é ligado ao console 
através de uma interface externa. Esta 
é adquirida à parte e deve ser inserida 
na porta de expansão do equipamento. 
Desligue o micro da tomada para pro- 
ceder à conexão. 

O cabo de força da inlerface e do 
acionador deve ser ligado separadamen- 
te na tomada, pois a UCP não tem po- 
tência suficiente para ambos. 



tor interno vazio para colocar a placa de 
controle — utilizam-se, normalmente, 
os conectores 6 e/ou 5 para isso. O ca- 
bo de ligação da unidade, do tipo pla- 
no, tem na ponta um conector fêmea 
que deve ser inserido no macho corres- 



pondente, na placa de controle. Nao sao 
necessários cabos de força separados pa- 
ra as unidades acionadoras, pois a ali- 
mentação ocorre por intermédio do ca- 
bo de conexão. 



Os microcomputadores compatíveis 
com a linha MSX I utilizam unidades 
acionadoras de disquetes de 5 I /4 pole- 
gadas (minidisquetes), de face simples e 
densidade dupla, ou microd isquei es de 
3,5 polegadas, de face dupla (encontra- 
dos apenas no Exterior). Existem gabi- 
netes de um ou de dois acionadores dis- 
poníveis no mercado. 

A conexão é muito simples: o cabo 
de ligação tem a interface e um conec- 
tor na ponta. Este deve ser inserido nu- 
ma das portas de cartuchos do micro- 
computador. O software operacional de 
utilização já está gravado em memória 
ROM, na própria unidade de disco. As- 
sim, torna-se instantaneamente disponí- 
vel tão logo se liga o computador, não 
sendo necessário carregá-lo de um dis- 
quete. A unidade acionadora não requer 
cabo de força separado. 




Não existem no mercado nacional 
unidades de disquete para os micros 
compatíveis com a linha Sinclair ZX 
Spectrum. Nos Estados Unidos e na Eu- 
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ropa, podem ser adquiridos facilmente 
dois tipos de sistemas de armazenamen- 
to magnético auxiliar para esses micros: 
os acionadores de disquetes de 5 1/4 po- 
legadas, de face simples e densidade sim- 
ples (em gabinetes com até dois aciona- 
dores, e descanso para o teclado), e os 
acionadores de fitas sem fim (rape loop). 
Estes, por suas características, aproxi- 
mam-se dos disqueles em modo de ope- 
ração, e custam bem mais barato. Os 
modelos mais conhecidos são o Micro- 
drive, da própria Sinclair, e o Wafadri- 
ve. Podem ser ligados até oito aciona- 
dores em paralelo. 

Para ligar o Microdrive, é necessário 
ter também uma Interface 1 da Sincla- 
ri, ou similar, que deve ser inserida na 
porta de expansão do teclado. Para 
fazê-lo, desligue o computador. O ca- 
bo de conexão, do tipo plano, tem duas 
pontas: uma para inserção na Interface 
e outra para o Microdrive. Cada Micro- 
drive, por sua vez, tem um conector fê- 
mea que possibilita a ligação de vários 
acionadores. Não são necessários cabos 
de força separados para os acionadores, 
pois os mesmos são alimentados pelo 
computador. 



FORMATAÇÃO 



Antes de usar o disquete para arma- 
zenar informação, deve-se prepará-lo 
por meio de um procedimento de soft- 
ware, chamado de formatação ou inicia- 
lizaçào. O programa de formatação sim- 
plesmente impõe um padrão de trilhas 
e setores no disco virgem, definindo (isto 
é, gravando certos apontadores e listas) 
o modo como a informação será arma- 
zenada no disco. 

Os disquetes são inicialmente dividi- 
dos em trilhas concêntricas, por sua vez 
"fatiadas" em setores de igual número 
de bytes. O controlador de disquetes re- 
conhece precisamente as marcas feitas 
pelo programa formatador. Esse proce- 
dimento é chamado de setoreamento por 
programa (soft-sectoring). 

O processo de formatação varia con- 
forme a marca do computador e o sis- 
tema operacional empregado. Eis aqui 
os comandos que você pode utilizar pa- 
ra formatar um disquete: 



racional — e cópia total — que copia tu- 
do o que o disco-mestrc tem, inclusive 
o sistema operacional. A operação di- 
fere conforme o número de acionado- 
res de disqueles do computador. 
Para formatar, apenas, digite: 

FORMAT 

O programa fará, então, uma série de 
perguntas. Primeiro, pedirá que você in- 
dique a unidade em que está o disque- 
te. Se você tem apenas um acionador, 
indique dríve 0 e retire o disquete com 
o sistema operacional do mesmo, colo- 
cando o disco virgem em seu lugar. Se 
você tem dois ou mais acionadores, não 
é preciso fazer isso: basta inserir o dis- 
quete virgem em outra unidade e indi- 
car o seu número ao programa (por 
exemplo, dríve 1). 

Ao executar a formatação, o progra- 
ma indicará o número da trilha que es- 
tá formatando. Ao final, retire o disque- 
te formatado da unidade. 

No caso de formatação com cópia, 
use o comando: 

BACKUP 

Entre as informações solicitadas, o 
programa pede ao usuário que indique 
se deseja reformatar o disquete, caso ele 
já esteja previamente formatado. Se a 
resposta for sim, o programa funciona- 
rá como foi explicado anteriormente e, 
depois, fará a cópia do disquete-mestre. 
Se você tem apenas um acionador, pre- 
cisará realizar várias vezes a operação 
de retirar disquete de cópia e inserir dis- 
quete-mestre. Fique atento para não tro- 
car os discos. Convém proteger o dis- 
quete-mestre colocando uma etiqueta 
adesiva sobre o orifício quadrado da 
margem do envelope. Será preciso, ain- 
da, saber a senha de acesso do disquete- 
mestre. 

Q 

Coloque o disquete virgem na unida- 
de acionadora, feche a porta da mesma 
e digite pelo teclado: 

DSKINIT 

5BH] 



u 

Coloque o disquete com o sistema 
operacional na unidade acionadora n" 0. 
Existem duas opções para a formatação 
de um disquete virgem nos micros des- 
ta linha: somente formatação — que 
Dg produz um disquete sem o sistema ope- 



Coloque o disquete com o sistema 
operacional na unidade acionadora 1. 
Proceda à inicializaçâo, carregando o 
sistema operacional. 

Tire o disquete do sistema e coloque 
o disquete virgem na unidade acionado- 
ra. Feche a porta da mesma e digite pe- 
lo teclado o comando NEW. Todos os 
disquetes com o sistema operacional 



precisam ter um programa em BASIC 
gravado. Este será carregado automati- 
camente toda vez que o computador for 
ligado. Escolha e digite o programa que 
desejar: ele pode conter desde uma linha 
de saudação até vários comandos que 
executem alguma tarefa especifica. Em 
seguida, digite o comando: 

INIT NOME 

NOME refere-se ao programa inicial 
de carregamento, que normalmente re- 
cebe a designação de HELLO ou ALO. 
A formatação será, então, realizada. 

VfÁ 

Coloque o disquete com o sistema 
operacional na unidade acionadora A. 
A operação de formatação varia confor- 
me o número de acionadores de disque- 
te do computador. 

Para formatar, apenas, digite: 

FORMAT A: 

se o seu computador tem apenas um 
acionador, ou: 

FORMAT B: 

se o seu computador tem dois acio- 
nadores. 

O programa dará, então, algumas in- 
formações. Se você tem apenas um acio- 
nador, indique dríve A e retire o disque- 
te com o sistema operacional do mesmo, 
colocando o disco virgem em seu lugar. 
Se você tem dois ou mais acionadores, 
não é preciso fazer isso: basta inserir o 
disquete virgem em outra unidade e in- 
dicar o seu número ao programa (por 
exemplo, dríve B). 

Ao final, retire o disquete formata- 
do da unidade. 




Para a formatação de um Microdri- 
ve, use o comando: 

FORMAT "M";li"NOME- 



NOMES DE ARQUIVOS 



Tudo o que é armazenado em disque- 
te — seja um programa, seja um con- 
junto de dados — precisa ter um nome. 
O sistema operacional de disco trata de 
forma igual dados e programas: ambos 
são chamados de arquivos. O número de 
caracteres permitidos no nome de um ar- 
quivo de disco varia segundo o modelo 
do computador. A maioria deles aceita 
nomes formados por oito caracteres, no 
máximo. Os micros da linha Apple, po- 
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rém, aceitam até trinta caracteres, e o 
Microdrive para o Spectrum, até dez. O 
Apple é, também, o único micro que 
permite a inclusão de espaços em bran- 
co e de outros caracteres especiais den- 
tro de um nome de arquivo. Pode-se 
perfeitamente chamar um arquivo de 
DADOS DE ENTRADA, por exemplo. 
Os computadores das linhas TRS-80, 
TRS-Color e MSX, ao contrário, exigem 
que o nome do arquivo não tenha espa- 
ços em branco e que comece com um ca- 
ractere alfabético. 

Nesses computadores, quando se usa 
o comando SAVE para armazenar algu- 
ma coisa em disco, a máquina automa- 
ticamente adiciona um sufixo ao nome 
que foi fornecido. Esse sufixo pode ser 
BAS, que significa que um programa em 
BASIC foi gravado, BAK, que indica 
que o arquivo é uma cópia (BAcK-up) 
de outro arquivo no mesmo disco, ou 
DAT, que identifica um arquivo de da- 
dos, distínguindo-o de um programa. 
Conforme a linguagem, outros sufixos 
podem ser utilizados, mas devem ter 
sempre um máximo de três letras. Nos 
micros das linhas TRS-80 e TRS-Color, 
são separados do nome principal por 
uma barra (PROG/BAS, por exemplo); 
nos da linha MSX por um ponto (PROG. 
BAS, por exemplo). 

Não existem sufixos nos nomes de ar- 
quivos para as linhas Apple e TK-2000. 

Os nomes de arquivos são essenciais 
para a operação de um sistema que uti- 
liza discos, pois cada um destes possui 
um catálogo, ou lista com todos os no- 
mes de arquivos gravados. Tal catálo- 
go (catalog ou directory) é atualizado 
sempre que um novo arquivo é criado, 
gravado ou apagado. Voltaremos a es- 
se assunto mais adiante. 



COMO USAR 0 DISQUETE 



O conhecimento dos comandos de 
software é fundamental para o uso cor- 
reto de unidades de disquetes, assim co- 
mo de outros periféricos, entre os quais 
joysticks, canetas ópticas e impressoras. 
Esses comandos podem fazer parte do 
sistema operacional, das linguagens de 
programação (como o BASIC) ou, ain- 
da, de ambos. 

Como a sintaxe e o uso dos coman- 
dos variam conforme o micro, a lingua- 
gem e o sistema operacional, trataremos 
de cada máquina separadamente. 

■■ 

Os comandos utilizados pelos micros 
compatíveis com o TRS-Color para gra- 
var e ler programas são o SAVE e o LOA D 
— assemelham -se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usá-los também 
é bastante simples: se você quiser, por 
exemplo, gravar em disco um programa 
que está em memória, digite o comando 
SAVE "NOME". Para carregar, digite 
LOAD "NOME". Como o TRS-Color 
não tem sistema operacional separado do 
BASIC, trabalhar com uma unidade de 
disquetes é mais fácil. 

Para carregar um programa em BA- 
SIC armazenado em disco, não precisa 
digitar o sufixo: basta indicar o nome 
dentro de um comando LOAD. 

Quando se liga o computador pela 
primeira vez, a opção VERIFV é acio- 
nada, ou seja, tudo o que for gravado 
em disco será automaticamente verifica- 
do pelo computador. Para desativar es- 
sa opção, digite VERIFY OFF. Para 
reativá-la. digite VERIFY ON. 

A lista dos arquivos gravados em um 
disquete será obtida com o comando: 

DIB 

que é uma abreviação de DIRectory. Es- 
se comando é muito útil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas características etc. DIR in- 
dica ainda quantos bytes estão sobran- 
do no disquete. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Se você digi- 
tar, por exemplo: 

RENAME "VELHO" TO "NOVO" 
o comando substituirá o nome do arqui- 
vo chamado VELHO por NOVO. 

Para apagar arquivos do disco, utilize 
o comando KILL. Por exemplo, para 



um programa chamado INÚTIL, digite: 
KILL "INÚTIL" 

D 

Os comandos utilizados pelos micros 
compatíveis com o TRS-80 para gravar 
e ler programas são o SAVE e o LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usá-los também 
é simples: se você quiser, por exemplo, 
gravar em disco um programa que está 
em memória, digite SAVE "NOME". 
Para carregar, digite LOAD "NOME". 
O TRS-80 tem um sistema operacional 
separado do BASIC, mas os comandos 
de disco mais importantes também es- 
tão disponíveis na linguagem. 

Para carregar um programa em BA- 
SIC armazenado em disco, não é neces- 
sário digitar o sufixo: basta indicar o no- 
me dentro de um comando LOAD. 

Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 

DIR 

que é uma abreviação de DIRectory. Es- 
se comando é muito útil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas características etc. DIR in- 
dica ainda quantos bytes estão sobran- 
do no disquete. O comando equivalen- 
te em BASIC é o FILES, de efeito se- 
melhante, mas não igual ao do DIR. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 

RENAME "VELHO" TO "NOVO" 

e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO. 

Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
você queira apagar um programa cha- 
mado INÚTIL. Digite, em BASIC: 

KILL "INUTIL/BAS" 

Os comandos empregados pelos mi- 
cros compatíveis com as linhas Apple e 
TK-2000 para gravar e ler programas 
são o SAVE e o LOAD. A maneira de 
usá-los é muito simples: se você quiser, 
por exemplo, gravar em disco um pro- 
grama que está em memória, digite SA- 
VE NOME. Para carregar, digite 
LOAD NOME. O Apple e o TK-2000 
não têm um sistema operacional sepa- 
rado do BASIC, sendo; fáceis de usar. 




COMO LIGAR E DESLIGAR 
O ACIONADOR 

Ao ligar ou desligar o acionador, ve- 
rifique se não há algum disco em seu 
interior. Como os disquetes são muito 
sensíveis, um setor do catálogo inter- 
no pode se apagar quando o acionador 
for ligado ou desligado. 

Esse acidente ocorre com frequên- 
cia nos modelos cujo catálogo se situa 
nas trilhas mais externas, onde usual- 
mente a cabeça fica em repouso. Re- 
cuperar a informação contida no res- 
tante do disco será, então, impossível, 
pois o software operacional não terá 
meios de localizá-la. 
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Quais são as vantagens da utiliza- 
ção de cartuchos de programas, em 
vez de fitas e discos? Posso gravar 
meus próprios programas em um 
cartucho? 

A maior vantagem dos programas 
em cartuchos é que eles estão imedia- 
tamente disponíveis para uso, não sen- 
do preciso carregá-los. Além disso, são 
muito mais seguros e resistentes con- 
tra a perda de programas. 

Os cartuchos Icomo os existentes 
para micros das linhas TRS-Color e 
MSX) são memórias ROM removíveis, 
que não podem ser alteradas de nenhu- 
ma maneira — em outras palavras, 
constituem um meio permanente de ar- 
mazenamento. Você não pode, portan- 
to, gravar seus programas neles. Mas 
há a alternativa de gravação permanen- 
te de programas em um tipo de memó- 
ria chamado EPROM {Eraseable Pro- 
grammable Read Only MemoryS. o que 
requer um periférico especial, o progra- 
mador de EPROM, que pode ser conec- 
tado a muitos micros. 0 custo da mon- 
tagem de um sistema desse tipo é, po- 
rém, muito elevado. 



Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 

CATAI. OQ 

Esse comando é muito útil, pois mos- 
ira na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos etc. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 

RENAME VELHO, NOVO 
e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO. 

Para apagar arquivos do disco, utili- 
ze o comando DELETE. Suponhamos 
que você queira apagar um programa 
chamado INÚTIL. Digite, em BASIC: 

DELETE INÚTIL 

Outro comando útil é o VERIFY, 
que informa se determinado arquivo foi 
danificado ou escrito incorretamente. 
Merecem ainda menção o comando 
LOCK e o UNLOCK, que permitem 
proteger ou retirar a proteção de arqui- 
vos contra apagamento acidental. 

fffi 

Os comandos utilizados pelos micros 
da linha MSX para gravar e ler progra- 
mas são o SAVE e o LOAD — os mes- 
mos, portanto, que se empregam com 
fita cassete. O modo de usá-los é sim- 
ples: se você quiser, por exemplo, gra- 
var em disco um programa que está em 
memória, digite SAVE "A:NOME", 
para registrar um arquivo chamado NO- 
ME, na unidade de disquete A. Para 
carregar um programa, digite LOAD 
"A:NOME". O MSX pode acomodar 
até dois disquetes, chamados de A e B. 

Quando quiser carregar um progra- 
ma em BASIC armazenado em disco, 
não digite o sufixo; basta indicar o 
nome dentro de um comando LOAD, 

Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite, em BASIC: 

FILES 

Esse comando é muito útil, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos, quais as suas características etc. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 

NAME "A : VELHO" AS "A:NOVO" 



e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO 
(ambos no disquete A). 

Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
você queira apagar um programa cha- 
mado INÚTIL. Digite, em BASIC: 

KILL "A:INUTIL.BAS" 




Os comandos SAVE e LOAD utili- 
zados para a transmissão de dados en- 
tre computador e fita cassete foram mo- 
dificados para permitir a gravação de 
leitura de programas no Microdrive: 

LOAD *"»" ; 1 ; "nome" 
SAVE *"m" : 1 r "nome" 

O asterisco indica que o comando faz 
parte do BASIC armazenado na ROM 
da Interface l.Òmeol informam que 
a operação se dará no Microdrive n? 1 . 
Seguindo o mesmo formato, há um co- 
mando que verifica gravações depois de 
feitas (VERIFY) e outro que combina 
dois programas na memória. 

O comando CAT — abreviatura de 
CATálogo — é utilizado para exibir na 
tela a lista de arquivos armazenados em 
um cartucho de Microdrive. 

Para apagar um arquivo do Micro- 
drive, emprega-se o comando ERASE, 
que tem o mesmo formato que o SAVE 
e o LOAD, não exigindo, porém, o as- 
terisco. 



CUIDADOS COM A UNIDADE DE DISCOS 



Ao contrário da UCP, do teclado e 
do vídeo, que são bastante resistentes e 
praticamente dispensam quaisquer repa- 
ros, as unidades de disco constituem o 
"calcanhar-de -Aquiles" dos sistemas ba- 
seados em microcomputadores. A con- 
tabilidade de operação dessas unidades 
é muitas vezes maior do que a dos gra- 
vadores cassete, por exemplo. Porém, 
por serem dispositivos mecânicos rela- 
tivamente complexos e muito delicados, 
exigem alguns cuidados por parte do 
usuário, se ele quiser operar por muitas 
horas, sem problemas. 

Devido à sua fragilidade mecânica, as 
unidades de disquete são extremamente 
sensíveis a qualquer choque. Mesmo que 
nada se quebre depois de uma batida 
mais forte, pode ocorrer um descalibra- 
mento da cabeça. Portanto, mantenha 
a unidade em um ponto seguro da me- 



sa. Se precisar transportá-la, faça-o com 
todo cuidado e dentro da embalagem 
acolchoada original. 

É importante, também, levar em con- 
ta que a cabeça da unidade de disquete 
trabalha em atrito direto contra o meio 
magnético. Qualquer poeira, ou detri- 
to, por menor que seja, que tiver aces- 
so a ela, diminuirá a vida da mesma e 
provocará defeitos. 

A temperatura ambiente deve ser 
mantida em níveis razoáveis durante a 
operação, sobretudo porque, normal- 
mente, a unidade não possui ventilação. 

Quanto aos cuidados gerais, lembre- 
se de que o cabo de conexão deve estar 
bem inserido, sem dobras e livres de ten- 
sões mecânicas. Limpe periodicamente 
os contatos dos conectores. Preste mui- 
ta atenção ao inserir o disquete, para 
não fazê-lo com a orientação errada, o 
que pode danificar irremediavelmente a 
cabeça da unidade. 

Evite usar disquetes "flippy", pois 
soltam fragmentos. Não use produtos de 
limpeza internamente: para isso, existem 
disquetes especiais de limpeza, que de- 
vem ser rodados a cada cinquenta a cem 
horas de uso. 
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PROGRAMAÇÃO BASIC 
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■ 


RECURSOS OCULTOS DO TRS-80 


■ 


A MEMÓRIA DO VÍDEO 


■ 


0 USO DOS COMANDOS 


PEEK e POKE 


■ 


COMO COPIAR A TELA 



A memória ROM do TRS-80 guarda 
recursos que, em geral, os usuários 
desconhecem. Sabendo quais são eles, 
você poderá utilizar incríveis 
truques de programação em BASIC. 

Os microcomputadores da linha 
TRS-80 são considerados tecnicamente 
obsoletos por muitas pessoas. Entretan- 
to, os usuários desse popular modelo, 
que já tiveram a oportunidade de explo- 
rar mais a fundo seus diversos recursos, 
podem testemunhar o quanto eles são 
poderosos — algumas vezes, mais até do 
que os disponíveis em certos microcom- 
putadores de tipo profissional, maiores 
e bem mais caros. 

Na série de artigos que aqui inicia- 
mos, você verá como explorar alguns 
dos recursos menos conhecidos do 
TRS-80 e de seus compatíveis nacionais 
(como o CP-300 e o CP-500, da Proló- 
gica) e internacionais. Daremos exem- 
plos de manipulação de tela, teclado, 
som e de vários aspectos do BASIC pou- 
co esclarecidos no Manual de Pro- 
gramação. 



O vídeo do TRS-80 possui uma pro- 
priedade muito interessante: ele é ma- 
peado em memória. Isso significa que 
uma parte da memória RAM é dedica- 
da exclusivamente ao vídeo, e que qual- 
quer coisa nela armazenada terá, auto- 
maticamente, um efeito sobre o vídeo, 
sobretudo se se tratar de um caractere 
visível (ASCII ou gráfico). 

A memória de vídeo começa na lo- 
cação 15360eocupa 1024 bytes, ou se 
ja, um para cada posição na tela. Há 
portanto, uma equivalência entre o nú 
mero indicado em um PR1NT® e a me- 
mória absoluta referente à posição na te- 
la, que é a soma de 1 5360 a esse número. 
Por exemplo, o comando 

PFIINT € 125, "A"; 

colocará o código 65 (ASCII para a letra 
■ A maiúscula) na locação 15360+ 125, ou 
I 15485. 



Como a memória de vídeo tem uma 
correspondência byte a byte com a tela, 
podemos escrever utilizando o coman- 
do POKE. A linha 

POKE 15485,65 

tem exatamente o mesmo efeito que o 
PRINT@ mostrado acima. 

Se você não quiser recorrer à tabela 
de códigos ASCII sempre que for escre- 
ver na tela com o POKE, use esta for- 
ma alternativa: 

POKE 15485. ASCCA") 

Em alguns casos, o emprego do PO- 
KE é mais vantajoso que o do PR1NT@ 
Para colocar caracteres na tela sem 
vocar o movimento do cursor, por exem- 
plo, o POKE é o comando indicado. 
Além disso, em certas situações ele po- 
de ser mais rápido do que o PRINT@. 
Finalmente, o comando POKE permite 
a impressão de um caractere no canto in- 
ferior direito da tela (posição 1023), sem 
provocar o deslocamento de toda a tela 
para cima (scrolling). 

Quando se trata, porém, de imprimir 
uma cadeia de caracteres (armazenados 
em uma variável literal, por exemplo), 
o uso do POKE fica em nítida inferio- 
ridade em relação ao do PRI1NT. 

Para examinar o conteúdo de uma lo- 
cação da tela, utiliza-se também a fun- 
ção PEEK, o que pode ser muito útil em 
uma grande variedade de programas, 
principalmente de jogos. O programa 
abaixo, por exemplo, lê o que está es- 
crito na linha de cima da tela e, auto- 
maticamente, transforma em minúscu- 
las todas as letras. 
10 CLS 

20 INPUT "ENTRE MENSAGEM ";IS 

30 CLS:PHINT IS 

40 FOR 1=15360 TO 15423 

50 J=PEEK(I) : IF J>64 AND J<91 

THEN POKE I.J+32 

60 NEXT 1:PBINT 

O mesmo poderia ser feito tomando- 
se, um a um, os caracteres de 1$, trans- 
formando-os em uma outra cadeia. Po- 
rém, o programa ficaria mais complica- 
do e menos rápido. Note que a transfor- 



mação de tipos maiúsculos para tipos 
minúsculos é bem fácil: basta, para is- 
so, somar 32 ao código ASCII do carac- 
tere maiúsculo. 

Um programa de jogo pode nos for- 
necer um exemplo menos óbvio de apli- 
cação do PEEK. Suponhamos que seja 
necessário testar se uma bala de canhão 
(um caractere gráfico) colidiu com algu- 
ma parte da estrutura complexa de um 
castelo. Será bem mais conveniente uti- 
lizar um PEEK a cada posição de des- 
locamento da bala, uma vez que a fun- 
ção POINT não terá um desempenho 
satisfatório nesse caso. 



Muitos programas exigem que se fa- 
ça uma cópia rápida da tela, em algu- 
ma parte da memória que não seja a de 
vídeo. Esse procedimento é empregado, 
por exemplo, nos programas que criam 
"janelas" de tela ou superpõem várias 
informações sobre o vídeo. Neste últi- 
mo caso, poderemos precisar de diver- 
sas cópias da tela, uma de cada "cama- 
da" superposta de informações, para 
que se torne possível a recuperação das 
telas originais posteriormente. 

Uma maneira fácil, mas não rápida, 
de copiar uma tela consiste em usar os 
comandos POKE e PEEK dentro de um 
laço que percorre cada memória de ví- 
deo. Para isso, é necessário reservar a 
parte da memória RAM que conterá a 
cópia. A reserva é feita logo que se acio- 
na o interpretador BASIC, aparecendo 
na tela a pergunta MEM?, MEMORY 
SIZE? ou outra, conforme a versão do 
computador utilizado. 

O programa abaixo usa a memória 
RAM acima de 30000: 
100 IM-30001 

110 FOR 1=15360 TO 16384 
120 POKE IM.PEEKU) 
130 IM=IM+1:NEXT 

Para trazer a cópia de volta para o 
vídeo, basta trocar os endereços do 
PEEK e do POKE: 

100 IM=30001 

110 FOR 1=15360 TO 163B4 
120 POKE I.PEEK(IM) 
130 IM=IM+1:NEXT 
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MANCHETES 
E LETREIROS (1) 



■ 


AMPLIAÇÃO DOS CARACTERES 


DA ROM 


■ 


ALTURA DAS LETRAS 


■ 


MONTAGEM DE LETRAS 


COM BLOCOS GRÁFICOS 




Se você quiser escrever uma manchete 
ou um título em letras garrafais, 
precisará criar tipos especiais. 
Veja aqui dois diferentes métodos para 
a obtenção de caracteres ampliados. 



O conjunto de caracteres disponíveis 
através do teclado deixa muito a dese- 
jar — o que é compreensível se consi- 
derarmos que ele foi criado de maneira 
a economizar espaço de memória. As- 
sim, quando queremos escrever com le- 
tras maiores, destacando a mensagem, 
precisamos criar nossos próprios carac- 
teres ampliados. 

Existem muitas formas de utilizar os 
recursos gráficos de seu microcomputa- 
dor para obter novos conjuntos de ca- 
racteres. A escolha de uma delas depen- 
derá do tipo de aplicação que você !em 
em vista. Para ampliações, dispomos de 
duas alternativas básicas: desenhar as le- 
tras linha por linha no modo gráfico de 
alta resolução ou montar as letras com 
blocos gráficos. 

Ambos os métodos podem ser usados 
dentro de um programa específico, des- 
tinado a escrever determinada frase — 
mas este é um caminho pouco económi- 
co, já que cada mensagem exige uma no- 
va rotina. A melhor solução, sobretu- 
do quando pretendemos utilizar man- 
chetes com frequência, consiste em criar 
um programa que se encarregue de ge- 
rar os caracteres necessários. Uma vez 
feito isso, poderemos simplesmente in- 
formar ao computador o texto que de- 
verá ser impresso, deixando a execução 
do serviço por conta do programa. Nos- 
so trabalho se resumirá, assim, à grava- 
ção do gerador de letras e à sua coloca- 
ção nos programas que precisem de ca- 
racteres maiores no vídeo. 

Este é o primeiro de dois artigos em 
que são explicadas as diversas maneiras 
de escrever manchetes e cartazes. Aqui, 
trataremos em detalhe dos dois métodos 
já mencionados. O primeiro utiliza a ta- 
bela de padrões de caracteres existente 
na memória, aumentando seu formato. 
Como resultado, obtemos tipos seme- 
lhantes aos caracteres normais, só que 
em tamanho maior, disponíveis através 
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do teclado, da forma usual. Infelizmen- 
te, esse método não pode ser emprega- 
do pelos usuários do Apple e do TRS- 
Color, que não têm acesso aos padrões 
de caracteres. 

O segundo método usa blocos gráfi- 
cos da ROM para construir as letras, 
funcionando em todos os microcompu- 
tadores, menos no Apple, que não dis- 
põe de blocos gráficos da ROM. 

No próximo artigo, examinaremos 
outra maneira de criar letras, que pode 
ser adaptada a todo tipo de aplicação. 
Veremos, também, de que modo utili- 
zar os métodos explicados no aperfei- 
çoamento de programas. 



AMPLIAÇÃO DOS CARACTERES 



Quando executamos o programa ela- 
borado especialmente para ampliar ca- 
racteres, o computador aguarda a entra- 
da da frase que deverá escrever. O Spec- 
trum e o MSX, em seguida, colocam na 
tela as letras ampliadas, com o dobro da 
altura originai. 

Até adquirir alguma experiência e 
perceber como o programa funciona, es- 
creva palavras curtas. Se usar frases 
mais longas, elas serão divididas no fi- 
nal da linha. 

Com base nos bytes que definem os 
padrões dos caracteres, o programa cria 
os blocos gráficos que, juntos, forma- 
rão o novo caractere. Para duplicar a al- 
tura de uma letra, por exemplo, o com- 
putador substitui cada byte do caracte- 
re por dois outros, repetidos denlro do 
) bloco gráfico. 



1000 INPUT "INTRODUZA UM TEXTO" 
, LINE IS: CLS : GOSUB 9000: GO 
TO 1000 

9000 LET line»0' LET col=-l 
9010 LET y-0 

9020 FOB i-l TO LEN IS : LET col 

-col+lr IF eol-32 THEN LET col 

-0: LET Hne-line+2 

9030 LET tS-ISd) 

9050 FOB x = 0 TO 6 STEP 2 

9060 POKE USR "a"+x, PEEK (15616 

+<8*(CODE tS-32))+y) 

9070 POKE USR "a"+l+x , PEEK (156 

16+(8*(CODE tS-32))+y) 

9080 LET y-Y+1 

9090 NE5ÍT x 

9100 FOR x=l TO 7 STEP 2 
9110 POKE USR "b"*x~ ] , PEEK (156 
16+Í8MC0DE tS-32)t+y) 
9120 POKE USR "b"+X,PEEK (15616 
+ I8MCODE tS-32) )+y) 
9130 LET yy+1 
. 9140 NEXT x 
9150 LET y-0 



9160 PRINT AT line.coliCHRS 144' 
lAT line+l.co] :CHRS 145 
9180 NEXT l 
9200 RETURN 

A primeira linha do programa possi- 
bilita a entrada de nosso texto, 
colocando-o dentro da variável alfanu- 
mérica IS. Para controlar a posição de 
impressão do texto na tela, ulilizam-se 
duas variáveis. Seus valores iniciais são 
0, para a coordenada vertical, e — 1 , pa- 
ra a coordenada horizontal. Uma 
ra variável, Y, recebe o valor inicial ze- 
ro, antes que o processo de ampliação 
comece. 

A linha 9020 inicia um laço FOR... 
NEXT que dará um número de voltas 
igual ao comprimento de nossa frase. A 
cada volta, o valor da coordenada ho- 
rizontal (variável col) aumenta em uma 
unidade. O valor inicial de col era - I 
justamente para que a impressão do tex- 
to começasse a partir do canto esquer- 
do da linha, onde col = 0. 

Se chegar a 32 (uma posição além da 
extremidade direita da linha), o valor da 
coordenada horizontal voltará a ser 0, 
para que o computador coloque as le- 
tras restantes a partir do lado esquerdo 
da tela. A coordenada vertical é, então, 
aumentada em duas unidades, tornan- 
do possível que o texto excedente seja 



escrito na linha seguinte. 

A linha 9030 coloca a letra que deve 
ser ampliada dentro da variável t$, usan- 
do o contador do laço, i (t$ conterá, as- 
sim, o i-ésimo caractere do texto). Em 
seguida, o computador dá inicio a um 
novo laço. que coloca dois bytes repeti- 
dos dentro de um bloco gráfico, quatro 
vezes. 



As contas feitas para calcular o nú- 
mero a ser colocado dentro do bloco 
constituem a chave de todo o processo 
de ampliação das letras. 

Analisando a linha 9060, você pode- 
rá entender os cálculos. A primeira me- 
tade é muito simples. Ela coloca um nú- 
mero (cujo cálculo é explicado adiante) 
com POKE em um endereço x posições 
além do primeiro byte do bloco gráfico 
(UDG) a. A variável x, que controla o 
laço FOR.. -NEXT, aumenta com um 
STEP 2, de forma que o segundo byte 
não sofre alterações quando o laço é 
executado novamente. 

A segunda metade calcula o número 
que será colocado pelo POKE. Esse nú- 
mero corresponde a um dos bytes do pa- 
drão do caractere que está sendo amplia- 
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do, obtido da tabela que fica na ROM. 
O endereço inicial da tabela é 15616. A 
fórmula entre parênteses subtrai 32 do 
código ASCII do caractere e multiplica 
o resultado por 8, para identificar a po- 
sição do primeiro byte do padrão den- 
tro da tabela. 

O código ASCII do caractere preci- 
sa ser subtraído em 32 unidades, antes 
da multiplicação por 8, devido ao mo- 
do como o Spectrum armazena os pa- 
drões dos caracteres (de fato, não há 
nessa parte da memória oito bytes para 
cada um dos 32 primeiros caracteres). 

Depois de calcular a posição dos pa- 
drões do caractere dentro da tabela, o 
computador soma o valor obtido ao en- 
dereço inicial da tabela, 15616, e adicio- 
na o resultado a y. Lembre-se de que no 
inicio do programa atribuímos a y o va- 
lor zero. Essa variável será utilizada pa- 
ra indicar o byte que está sendo lido e 
colocado dentro do UDG. Quando seu 
valor é zero, o computador lè e coloca 
no UDG o primeiro byte do caractere. 

As linhas 9060 e 9070 colocam em 
duas linhas consecutivas do UDG o mes- 
mo byte obtido na tabela de padrões, 
duplicando a altura da letra. Depois, 
y é aumentado em uma unidade e o 
processo se repete para o próximo by- 
te do padrão, até que o laço FOR... 



NEXT termine — a esta altura, quatro 
pares de bytes terão sido colocados no 
UDG a. 

O Spectrum inicia, então, outro laço 
FOR. ..NEXT, que procede como o an- 
terior para colocar os quatro últimos 
bytes do padrão do caractere no UDG 
b, sempre repetindo cada byte duas ve- 
zes. O laço termina na linha 9140 e o 
programa faz y voltar a valer 0. 

A linha 9160 é a responsável pela im- 
pressão dos blocos gráficos, um acima 
do outro. Ela usa as variáveis line e col 
para identificar a posição de impressão 
do caractere ampliado. No programa, o 
comando PRINT "A" foi substituído 
por CHRS 144 para evitar que o leitor 
se confunda — o "A" normal e o "Á" 
gráfico pareceriam absolutamente iguais 
na listagem. 

Finalmente, alinha 9 180 conclui o la- 
ço principal do programa, mandando o 
computador ampliar a letra seguinte. Ao 
completar a frase, o computador volta 
à linha 1000, que possibilita a entrada 
de um novo texto. 



ai Ba 

Embora o Apple não nos dê acesso 
aos padrões binários que definem -o for- 



mato de seus caracteres, veremos como 
aplicar a técnica de ampliação utilizan- 
do os UDG criados por um programa 
do artigo da página 526. 

Na listagem que se segue, você encon- 
trará apenas as modificações necessárias 
para ampliar as letras criadas no progra- 
ma mencionado. Sem as linhas DATA 
iniciais, que se encontram listadas na- 
quele artigo, você não obterá nenhum 
resultado. Mais ainda, se tentar exe- 
cutar apenas as linhas aqui apresenta- 
das, o computador sairá fora de seu con- 
trole e as linhas digitadas acabarão se 
perdendo. 
799 HGR 

BOO AS ' ' ESTA MENSAGEM E ' UM T 
ESTE" 

BIO C - 7:L ' 11: GOSUB 1000 
020 END 

1000 N - L * 40 + C 

1010 FOR J = l TO LEN (A3) 

1020 BS - MIDS tAS. J. 1) 

1030 B - ASC (BS1 

1040 L = TNT (N / 40) :C - N - 

40 * L 

1050 FOB 1 - 0 TO 3 
1060 POKE T + (L - 8 " <L > 7) 
- 8 * (L > 15) ) * 128 * 40 * ( 
L > 7) + 40 * (L > 15) + C + 10 
24 * 2 * I, PEEK (E + B • B + I 
) ■ 

1065 POKE T + (L - B « (L > 7) 



um 
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- S * (L > 15) ) * 1.28 + 40 * ( 
L > 7) + 40 « (L > 15) + C + 10 
24 * (2*1+1), PEEK (E + B * 

8 + 1) 
1066 NEXT Zll - L + 1 
1070 FOR I - 0 TO 3 
1073 POKE T + (L - 8 * (L > 7) 

- 8 * (L > 15) ) * 128 + 40 * ( 
l > 7) + 40 * (L > 15) + C + 10 
24 * 2 * I, PEEK (E + B * B + I 

+ 4) 

1076 POKE T + (L - fl * (L > 71 

- 8 « (L > 15) ) * 128 + 40 * ( 
L > 7) + 40 * (L > 15) + C + 10 
24 * (2*1 + 1), PEEK (E + B * 

B + I + 4) 

1079 NEXT fiU ■ H + li NEXT J 

1080 HCOLOR- 6 

1090 HPLOT 25,80 TO 250.80 TO 
250.105 TO 26,105 TO 26,80 
1100 RETURN 

Consultando o artigo anteriormente 
citado, veremos que nosso programa 
utiliza a sub-rotina que começa na linha 
1000 para colocar os padrões das letras 
da frase contida em AS na tela de alta 
resolução. As variáveis C e L definem 
a linha e a coluna em que faremos a im- 
pressão, sempre supondo que a tela tem 
quarenta colunas e 24 linhas. 

A linha 1000 coloca em N a posição 
da tela em que a primeira letra da frase 
será escrita. A linha 1010 inicia um la- 
ço FOR... NEXT que dará tantas voltas 
quantas forem as letras da frase que de- 
sejamos imprimir. 

A variável alfanumérica B$ contém 
a letra que está sendo escrita. A cada 
volta, um novo caractere é colocado ali, 
com o auxílio da função MID$, e a li- 
nha e a coluna de impressão são recal- 
culadas a partir do valor de N. 

Em seguida, o programa inicia um la- 
ço FOR.. .NEXT que coloca na tela dois 
bytes repetidos do padrão da letra, qua- 
tro vezes. Os cálculos feitos para a re- 
petição dos bytes são a chave do proces- 
so de ampliação. 



FUNCIONAMENTO DO PROGRAMA 



Já tivemos a oportunidade de mos- 
trar aos usuários do Apple e do TK-2000 
como é caótica a organização da memó- 
ria de vídeo desses dois micros. A ordem 
de preenchimento das linhas de pixels do 
Apple é tão confusa que quem não tem 
certa familiaridade com a matemática 
dificilmente conseguirá entender as fór- 
mulas das linhas 1060 a 1076. 

Mas, no nosso caso, isso não tem tan- 
ta importância. Para compreender o 
funcionamento do programa, basta sa- 
ber que o primeiro laço coloca na tela 
a metade superior da letra ampliada e 
I o segundo, a metade inferior. Um carac- 
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Letras de altura dupla tio Ideais para 
paglnas-tllulo de jogos ou outros programas. 



tere comum ocuparia oito linhas de ví- 
deo com seus oito bytes, Aqui, para am- 
pliar as letras, cada byte é repetido duas 
vezes, resultando nas dezesseis linhas do 
caractere ampliado. 

Assim, a linha 1060 coloca os quatro 
primeiros bytes do padrão da letra nas 
posições pares do bloco gráfico corres- 
pondente à metade superior do caracte- 
re ampliado. A linha 1065, por sua vez, 
coloca os mesmos quatro primeiros 
bytes nas posições impares daquele blo- 
co. O processo se repete nas linhas 1073 
e 1076, só que os bytes são colocados no 
bloco correspondente â metade inferior 
do caractere. 



1D FOR J = 0 TO 50 STEP 2 

20 FOR X=0 TO 7 STEP 2 

.10 VPOKE BASE(2)+)024 + J*B + X,: 

K( (PEEK (4) )+ (PEEK (5) *256)+5Z' 



+ Y) 

50 let y-y+i 

60 NEXT X 

70 FOR X-8 TO 15 STEP 2 

81) VPOKE BASE{2)+1024+J*8+X,Í 

K [ (PEEK (4) )+(PEEK(5) -256) +52' 



100 LET Y-Y+l 
1 10 NEXT X 
120 NEXT J 
L30 CLS 

140 PH TNT " INTRODUZA A PALAVRA" 

150 JNPUT IS 

160 CLS:L = 0:O0 

170 FOR 1=1 TO LENÍTS) 

180 LET B=ASC (MTDS (IS , I . D ) 

190 IFB<65 OR B>90 THEN COTO 21 

0 

200 LOCATE CL: PRTNTCHBS (1 28 + 2" 
(B-65) ) ' LOCATE C.L+1 : PRINTCHRS ! 
129+2* (B-65) ) 
210 LET C-C+l 

220 TF C-40 THEN LET C-0:L=L+2 



O programa começa com a rotina que 
transfere os dados de definição dos ca- 
racteres da ROM para a memória de ví- 
deo (VRAM), nas linhas 10 a 120. 

A seção que vai da linha 130 à 150 
limpa a tela e pede que o usuário intro- 
duza a palavra ou mensagem a ser am- 
pliada. As linhas 160 a 240 contém a ro- 
tina que imprime as letras no vídeo. As 
variáveis L e C registram, respectiva- 
mente, a linha e a coluna em que serão 
impressos os novos caracteres gráficos 
que irão compor as letras. 

O laço que se inicia na linha 170 im- 
prime uma letra a cada valor de I, sem- 
pre acrescentando 1 à variável C, para 
que as letras fiquem uma ao lado da ou- 
tra. Quando a frase alcança a extremi- 
dade da tela, a linha 200 zera C e acres- 
centa 2 à variável L, a fim de que a pró- 
xima letra seja escrita na primeira colu- 
na da linha seguinte. 

A linha 180 faz a variável B assumir 
o valor do código ASCII do caractere 
a ser ampliado e a linha 190 verifica se 
as letras são maiúsculas. A linha 200 im- 
prime os dois blocos gráficos que irão 
compor a letra, ambos na mesma colu- 
na, mas um abaixo do outro. 

Para saber como se obtêm os valo- 
res colocados dentro dos parênteses 
após o comando CHR$, é preciso enten- 
der o processo de ampliação. 



0 PROCESSO DE AMPLIAÇÃO 



Ao ser ligado, o MSX copia o padrão 
dos caracteres gravados na ROM na 
parte de sua memória dedicada ao vídeo 
(VRAM). É a partir dessa tabela da 
VRAM que ele imprime as leiras no ví- 
deo. Cabe ao nosso programa criar os 
blocos gráficos que irão compor as le- 
tras ampliadas e colocá-los na tabela da 
VRAM, no lugar que antes era ocupa- 
do pelos caracteres padronizados, a par- 
tir do caractere de código 128. 

Sabemos que o padrão de um carac- 
tere é formado por oito bytes. Podemos, 
portanto, obter um caractere ampliado 
repetindo duas vezes cada byte. O en- 
dereço do padrão dos caracteres na 
ROM está registrado nos bytes 4 e 5 e 
o endereço do padrão de caracteres na 
VRAM é dado por BASE(2). Somando 
o endereço aí contido a 1024, teremos 
o endereço da VRAM, que será usado 
pelo VPOKE. 

Na linha 30, a viriável J simplesmente 
incrementa a posição nessa memória. O 
PEEK examina o endereço correspon- 
dente na RAM, onde estão os padrões 
gráficos. Para a obtenção do código da 
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letra A, adiciona-se o número 520. O Y 
indica o byte a ser copiado. As linhas 
70 a 110 do programa fazem a mesma 
cópia para a parte inferior do bloco grá- 
fico de cada caractere. 



0 USO DOS CARACTERES GRÁFICOS 



Além de ampliar os padrões preexis- 
tentes na memória do micro, podemos 
criar nossas próprias letras. Essa alter- 
nativa é especialmente importante para 
os usuários do TRS-Color, que não per- 
mite o acesso aos padrões das letras. 
Aqui estão alguns programas que Utili- 
zam caracteres gráficos do computador 
para construir letras ampliadas. 



10 DATA 


r-i ■■ 


"BHB" 


"BBC- 


-r-. - 




20 DATA 


-CSC". 


-BBEJ- 


-!]□□ - 


"C^O" 




30 DATA 


•BBC". 


-BDB- 


-BDZ- 


."C JC 




40 DATA 


"OCO - . 


-BBQ- 


'BBC 


■BHD" 




50 DATA 


"BBC". 


-BBD- 


■IHf 


-cnc- 




60 DATA 


Ln ". 


•Ben- 


•!]□□ " 


B_l - 




7 0 DATA 


"UOrj". 


-BBD- 


"1 . . 


"1 C" 




80 DATA 


-BB.:'. 


-BDC " 


L_l 


-c C" 




90 DATA 


■BB! 1 :-. 


- - 


-l ljp - 


- 1 




100 DATA 


-coe - . 


-□[!□- 


" BH^ " 


" 1 




110 DATA 


"' C : " . 


1 " 


" BB Q " 


" ■ 




120 DATA 


-L. 


-_J - 


• mo ■ 


•«HO" 




130 DATA 


-BUO'. 


•BDB" 


' BBC ■ 


•BHO" 




140 DATA 


-coe-. 


"BDB" 


- OnO ■ 


-CCC- 




150 DATA 


■OnC-, 


■BHB" 


- COO - 


-bbe:- 




160 DATA 


-ODC-. 


■licf 


- BBC 


-CDU- 




1 70 DATA 


r-l - . 


"BBD" 


- BBE ■ 


_ r . .. 




180 DATA 


-CinO". 


"KOB" 


' BBD " 


- cen- 




190 DATA 


-CEO-. 


"BHH" 


- dob ■ 


- DBD" 




200 DATA 


LJI . 


■BOU" 


- BBC - 


■□Bn " 




210 DATA 


"BQB-. 


1 1 


• onm - 


."B"B" 




220 DATA 


1 1 


-enc- 


II" 


-BHi i" 




230 DATA 


■Or-iC-. 


-OnO- 


" Ill " 


.-LiHn- 




240 DATA 


-BBC , 


■BBQ" 


- BBC - 


■OnO- 




250 DATA 


"BDB-. 


"BBC" 


260 DATA 


-BBB-. 


-□[10- 



READ d3(Hj> 

READ a3(i> 
READ bS ( l ) 
READ Cí(i) 
BEAD d$(i> 



270 DATA "□[]□", "C3t^" 

280 DATA » □BD","fiHE]" 

290 POKE 23658. B: DIM a3(27,3) 

r DIM bS<27,3) : DIM cSÍ.27.3) : 

DIM dS(27.3) 

300 FOR j-0 TO 21 STEP 4 

310 FOR 1-1 TO 4: READ aSU + j) 

: NEXT t 

320 FOR 1-1 TO 4: READ b3(l+J) 
: NEXT l 

330 FOR i-1 TO 4: READ C3(i+J> 
: NEXT 1 

340 FOR 1-1 TO ' 
: NEXT 1 
350 NEXT j 
360 FOR i-25 TO 26: 
: NEXT 1 

370 FOR 1-25 TO 26: 
: NEXT 1 

380 FOR 1-25 TO 26: 
: NEXT i 

390 FOR i-25 TO 26: 
: NEXT 1 

400 INPUT "Introduza palavraím 
ax lOUtras)-. LINE t.S: IF LEN 
t$>10 THEN I.ET t$-t$( TO 10) 
405 IF LEN tS=0 THEN GOTO 400 
410 LET »$•"": FOR i-l TO LEN 
t$: IF CODE tS(lK65 OR CODE t 
S(i)>90 THEN LET tSÍD-CHRS 
91 

420 LET n$-3$+aS(CODE t$(i)-64 
) : NEXT 1 
430 PRINT t>$ 

440 LET HS-"": FOR 1=1 TO LEN 
t3 

450 LET aS"flS+bS(CODE t$(i)-64 
) ! NEXT l 
460 PRINT a3 

470 LET BS-"": FOR 1=1 TO LEN 

t$ 

480 LET a$ = a$+cS(CODE t.$(l)-64 
) : NEXT ) 
490 PRINT 33 
500 LET sS="" : FOR 



1 TO LEN 
S+dS(CODE tS(l)-64 



510 LET aS 
> : NEXT í 
520 PRINT hS 
530 PRINT : GOTO 400 



30 FOR 1-1 TO 7B : READ SS:A(I)-V 
AL("S.H"+-SS) : NEXT 

40 FOR 1=1 TO 7B : READ S$:B(I)=V 
AL("Í.H"+SS) : NEXT 

50 FOR 1=1 TO 78 : READ SS:C(I)=U 
AH"S.H"+SS) : NEXT 

60 FOR 1=1 TO 78 : READ S$:D(I)-V 

AL("S.H"+SS) : NEXT 

70 PRINT" introduza até 9 letras 

BO INPUT TS:IF LEN (T$)>9 OR LE 

N (T$)=0 THEN 80 

90 FOR X-l TO 4 

1 00 FOR Y = l TO LEN (TS) 

110 AS=MIDS (TS . Y . 1 ) 

120 A=ASC(AS) 




COMO USAR A IMPRESSORA PARA 
CONFECCIONAR CARTAZES 
E FAIXAS 

Os programes elaborados pare de- 
senhar tetras grandes na tela do micro- 
computador têm uma utilidade adicio- 
nal: a impressão òe grandes cartazes 
e faixas 

Como sabemos, as leiras normais, 
obtidas em uma impressora comum pa- 
ra microcomputador, são muito peque- 
nas para serem vistas a distância. Pre- 
cisamos, assim, lançar mio de méto- 
dos semelhantes aos apresentados 
neste artigo para imprimir letras de ta- 
manho maior. 

A escolha da melhor solução depen- 
derá, evidentemente, do tipo de im- 
pressora que você possui. 

O tipo mais simples é aquele capaz 
de imprimir apenas texto, não dispon- 
do de blocos gráficos. Nesse caso, pro- 
gramas que trabalham com blocos grá- 
ficos da ROM, como os destinados ao 
Spectrum, não podem ser utilizados dí- 
retamente com a impressora, pois ela 
não os copiará. 

Uma boa alternativa será modificar 
os programas, de modo a compor le- 
tras grandes a partir dos caracteres dis- 
poníveis na impressora. Experimente, 
por exemplo, o recurso muito comum 
de usar repetições do próprio caracte- 
re, como mostramos, abaixo, com a le- 



1 1 1 1 1 1 

ii 

ii 

ii 

ii 
1 1 r 1 1 1 

As linhas DATA, que contêm os có- 
digos dos blocos gráficos, podem ser 
alteradas para descrever a disposição 
dos caracteres usados na composição. 
Outra providência necessária é mudar 
os comandos PRINT (que colocam o re- 
sultado apenas na tela) para o equiva- 
lente ao comando de impressão exis- 
tente em seu computador: LPRINT |nos 
micros TRS-80, Sinclair e MSX), PR# 1 
(no Apple) e PRINT # 7 (no TRS-Color). 

Se sua impressora tiver capacidade 
gráfica, o trabalho será ainda mais fácil. 
Usando um comando especifico, como 
o COPV, nos micros da linha Sinclair, ou 
um programa de descarregamento de te- 
la, você poderá transferir para o papel o 
cartaz desenhado na tela do computador 
com os programas aqui apresentados. 
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127 IF A<65 OH A>90 THEN Ct.S:CO 270 DATA D5 , DB , D3 . DS . DB , D3 480 DATA Cl , D4 , D3 , 20 . C7 , 20 [ 

TO 70 260 DATA DB , 20 . DD . DB , 20 , 20 490 DATA C.7 , DF . D6 , DB , 20 , DC 

129 LET A-A-64 290 DATA DB . DE , DD , DB , 20 , DD 500 DATA DD , 20 , 20 , DB . 20 , DD 

130 B-(A-1)*3 300 DATA C 7 . DF , D6 , DB , DF , D6 510 DATA DB . 20 . 20 , DB . 20 . 20 
140 ON X GOSUB 190,200,210,220 310 DATA C? , DF , D6 . DB , DF , D6 520 DATA DB , D5 , DD . DB . 20 , DD 
150 NEXT V 320 DATA C7 , DF , D6 . DF , DB , D3 530 DATA 20 , DB , 20 , D6 , DB , 20 
160 PR TNT 330 DATA DB , 20 , DD. DD , 20 . DD 540 DATA DB , Cl . 20 , DB . 20 , 20 
L/0 NEXT X 340 DATA DD, 20 , DD , DD , 20 , DD 550 DATA DD , 20 . DD, DD . DD , DD 
160 GOTO 70 350 DATA DD, 20 , DD. DF , DF , D6 560 DATA DD, 20 , DD . DB . DF . 20 
190 FOR R=B+1 TO B+3 ! PRINTCHRS ( 360 DATA DD, 20 , DD , DB , DC , D3 570 DATA DD , D6 , DD . DB . DF . D6 
A (R) ) ; : NEXT R : PRINT" " ; : RETURN 370 DATA DD, 20 , 20 , DB , 20 , DD 580 DATA 20, 20, DD, 20. DB. 20 
200 FOR R-B+l TO B+3 : PRINTCHRS ( 38C DATA DB . DC , 20 , DB , DC , 20 590 DATA DB . 20 , DD , DE , DE , 20 
B(R));:NEXT R ■ PRINT" RETURN 390 DATA DB . 20 , 20 , DB , DC . DD 600 DATA DD . DD , DD , D4 , Cl , 20 
210 FOR R-B+l TO B+3 : PR] NTCHRS ( 400 DATA 20 , DB , 20 , 20 , DB , 20 610 DATA 20 , DD . 20 . D4 , D3 . 20 
C(Rl)::NEXT R: PRINT" ":: RETURN 410 DATA DB , C7 . 20 , DB , 20 , 20 620 DATA DD. 20 . DD, DB , DC . D3 
220 FOB R-B+l TO B+3 : PRINTCHRS ( 420 DATA DD , DD. DD , DD, DD . DD 630 DATA Cl . DC . D3 , DB . DC , D3 
D(R))::NEXT R : PRINT" " ; : RETURN 430 DATA DD , 20 . DD . DB , 20 . DD 640 DATA DB . DC , D6 . DB , 20 , 20 
230 DATA C7,DF.D6,DB,DF,D6 440 DATA DD. 20 , DD, DB . 20 , DD 650 DATA DB . DC , DD, DB , 20 , DD 
240 DATA C7.DF.D6.DB.DF.D6 450 DATA Cl, DC, 20, 20. DB, 20 660 DATA D4 , DB , D6 , Cl . DB , 20 
250 DATA DB , DF , D3 , DB , DF , D3 460 DATA DB . 20 , DD, DD , 20 , DD 670 DATA DB . 20 . DD, DB . DC , DD 
260 DATA DB ,DF , DD, DB , 20 .DD 470 DATA DD. D6 , DD. D5 . C7 , 20 680 DATA DD . 20 , DD , DD , DE . DD 
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690 DATA Cl . DC . D3 . DB , 20 , 20 
700 DATA Cl . C7 . D6 , DB , 20 , DD 
710 DATA C1,DC,D3.20,DB,20 
7 20 DATA D8,DC.DD.Z0,DD,20 
730 DATA Cl .Cl .D3.DD. 20, DD 
740 DATA 20, DD, 20. Cl, DC. D6 




10 DIM LÍ2.3.25) 

20 FOR J-0 TO 25:FOR K-0 TO 3:F 
OB L-0 TO 2 : BEAD L (L , K . J) :NEXT 
L.K.J 
30 CLSO 

40 PRINT «480, "INTRODUZA A PALA 
VRA -",BS; 

50 AS-INK£YS;IF(A3< P A" OR AS>'Z 
")AND AS<>CHRS(6) AND ASOCHRS i 
13) AND AS<>* " THEN 50 
60 IF AS-CHRSU3) THEN 110 



70 IF AS-CHRS(8) AND BS-"" THEN 
50 

80 IF AS-CHRS(6) THEN BS-LEFTSÍ 

BS.LEN(BS)-l) :G0TO 30 

90 IF LEN(BS)>9 THEN 50 

100 BS-BS+AS:G0TO 30 

110 IF BS-"" THEN CLS ; END 

120 CLSOlPRINT «480 , "COR (1-8) 

?" i 

130 A$-INKEY3:IF AS<"1" OR AS>" 

G" THEN 130 

140 CLS0:CL-VAL£A3) 

150 FOR Y-0 TO 3 : FOR C-l TO LEN 

(BS) : FOR X-0 TO 2 

160 IF MIDS(BS.C.i)-" " THEN PR 

INT CHRS (128) ;: GOTO 180 

170 PR INT CHRS(84+CL*16+L(X.Y.A 

SC(MIDS(B3.C,l))-65)) : 

180 NEXT X,C:PRINT STRINGS(32-P 

O3(0) .128) ; : NEXT Y 

190 BS-"" :GOTO 40 



1000 DATA 42.40,38,38.28.38.42. 

40 , 38 , 38 , 28 . 38 , 42 , 40 . 30 , 39. 31 , 3 

6,38,28,38,39,31.36 

1010 DATA 42.40,38,38.28.28.38. 

28, 2B, 39, 31, 38. 42, 40. 30. 38. 28. 3 

8,38,28.38,39.31.36 

1020 DATA 42.40.36.39,31,30.38, 

28,28,39.31,30,42,40,36.38.28.2 

B,42,40,36.36.28,28 

1030 DATA 42,40,38,38.28.28,38. 

29.30,39.31,38,38,28,38,39,31.3 

8. 38. 28, 38, 38. 28. 3B 

1040 DATA 40.42.36.28.38,28.28. 

38,28.31,39.30.28.41.36,28,33.2 

8.28.33,28.39,35,28 

1050 DATA 38,29,36,39,36,28,42. 

30,28,38,32,30,38.28,28.38.28.2 

8, 38, 2B. 28. 39, 31, 30 

1060 DATA 39.29,38.38.38.38.38. 

28.38.38,28,38.39.28.38.42,30,3 

8,38,37,38,38,32,38 
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Leiras maiúsculas no TRS-Color... 



1070 DATA 42,40,38,38.28.38,38, 

28.38, 39,31. 38,42,40.38. 38.28. 3 

8.42.40.36.38.26.26 

1080 DATA 42,40,38.38,28,38,38. 

30,38,39,35,38,42,40,38,38,28,3 

8.42.41,36,38.28.38 

1090 DATA 42,40.38.39,31,30,28, 

28.38.39, 31. 38.40.42, 36. 28, 38, 2 

8.28.36.28.28,38,28 

1100 DATA 38,28, 38, 38. 28.38.38, 

28,38.39,31.38.38.28.38,38,28,3 

8,38.28.38.32.34,26 

1110 DATA 38,28.38,36.28.38,36, 

38, 38,39. 39. 38. 38. 28. 38. 32, 34,2 

8.29.37,28,38,28,38 

1120 DATA 38,28,38,39,31.36.26, 

38,28,28.38.28.40,40,36,28,29,3 

6,29.36,28,39,31,30 

Os programas apresentados funcio- 
nam de maneira bem parecida. Eles co- 
meçam dimensionando as matrizes que 
irão conter os caracteres gráficos da 
ROM necessários à formação das diver- 
sas letras. O Spectrum emprega o co- 
mando POKE para travar as letras 
maiúsculas. O Spectrum e o MSX usam 
quatro matrizes, uma para cada linha 
das letras. Os demais trabalham só com 
uma matriz. 

Ao ser rodado, o programa demora 
um pouco para funcionar, devido à lei- 
tura das linhas DATA pelo comando 
READ. No Spectrum, essa tarefa é fei- 
ta pelas linhas 290 a 390 do programa; 
no MSX, pelas linhas 30 a 60; nos de- 
mais computadores, só pela linha 20. 

Em seguida, inicia- se a rotina prin- 
cipal, que possibilita ao usuário escre- 
ver uma palavra. Esta deve ter, no má- 
ximo, dez letras. 

Depois de verificar se a cadeia de ca- 
racteres digitada é válida, o programa 
começa um laço FOR...NEXT que im- 
prime uma das letras a cada volta. Esse 
laço é igual ao do último programa deste 
artigo, e só termina quando a última le- 
tra tiver sido impressa. 



I O Spectrum usa quatro laços 
|fOR...NEXT, um para cada linha das 
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letras, já que elas têm quatro caracteres 
de altura. O primeiro laço adiciona um 
grupo de três caracteres a sS, para cada 
uma das letras da frase. Quando não há 
mais letras, o computador imprime sS. 
O grupo de caracteres adicionado a s$ 
varia conforme a linha impressa. Como 
podemos observar nas linhas 420, 450, 
480 e 510, adiciona-se primeiro o cor- 
dão a$, depois o b$, o cS, e, finalmen- 
te, o dS. Cada um desses cordões é, de 
fato, uma matriz. Os números enlre pa- 
rênteses determinam qual elemento se- 
rá adicionado a s$. 
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Assim que digitamos o texto e tecla- 
mos ENTER, o computador salta para 
a linha 110, que nos permite escolher a 
cor em que o texto será impresso. As li- 
nhas 130 e 140 se encarregam de acer- 
tar as cores e o programa prossegue com 
três laços FOR...NEXT. 

A linha 160 imprime um bloco negro 
sempre que o caractere do texto for um 
espaço. Depois, o computador pula a li- 
nha 170, indo direlo à 180. 

A linha 170, embora pareça extrema- 
mente complicada, apenas imprime o 
próximo caractere gráfico da letra que 
está sendo desenhada. Os cálculos entre 
parênteses fornecem o código do carac- 
tere adequado. A primeira operação con- 
siste na soma do número 84 ao código da 
cor multiplicado por 16. Segue-se a adi- 
ção do resultado ao número apropriado 
da matriz. L(X,V,ASC(MIDS(BS,C,1)) 
— 65) determina qual elemento da ma- 
triz L será usado nos cálculos. 

Os números das linhas DATA — co- 
locados depois na matriz L — corres- 
pondem aos códigos dos diversos carac- 
teres gráficos (básicos, pretos e verdes) 
menos 100. Eles são distribuídos em gru- 
pos de doze (quatro linhas de três carac- 
teres) para cada letra, de modo que o 
13? número da lista corresponde à letra 
B, o 25", ao primeiro caractere da letra 
C e assim por diante. 



Quando o computador identifica o 
elemento da matriz que deve imprimir, 
a Unha 170 usa a função ASC para cal- 
cular seu código e a função MIDS para 
saber de qual letra da frase se trata. Os 
três números entre parênteses do MIDS 
definem o cordão que será cortado 
(BS.em nosso caso), seu comprimento 
(C, em nosso caso) e o número de ca- 
racteres que se deve obter a partir deste 
ponto (I, em nosso caso). 

O ponto e virgula após a fórmula da 
linha 170 evita o salto de linha, fazen- 
do com que as letras ampliadas sejam 
escritas uma ao lado da outra. 

Na linha 180, duas instruções NEXT 
chamam os valores seguintes de X (que 
controla a impressão do caractere ade- 
quado da linha da letra) e de C. 

A segunda parte da linha 180 impri- 
me um número de blocos negros sufi- 
ciente para que o computador passe à 
próxima linha e comece a montar a ca- 
deia seguinte de caracteres gráficos — 
são quatro cadeias ao todo. Ao se com- 
pletar o último laço, sua frase estará es- 
crita na tela, na cor escolhida e em ta- 
manho ampliado. 

A linha 190 aguarda que outra tecla 
seja pressionada, para que o computa- 
dor volte à linha 40 e permita a entrada 
de uma nova palavra. 

Quando você quiser interromper o 
programa, voltando ao BASIC, basta- 
rá entrar uma frase "vazia" — ou seja, 
apertar ENTER antes de digitar qual- 
quer letra — ou pressionar BREAK. 



A introdução da palavra (com, no 
máximo, nove letras) é feita nas linhas 
70e80. O laço que vai da linha 90 à 170 
"desmonta" essa palavra, letra por le- 
tra, e desenha na tela cada uma das qua- 
tro camadas que formam um caractere, 
chamando as rotinas das linhas 190 a 
220 através de um ON X GOSUB (li- 
nha 140). O código que será usado, cal- 
culado a partir do código ASCII do ca- 
ractere, na linha 1 30 do programa, é ar- 
mazenado em B. 

As linhas 230 a 740 contêm os códi- 
gos gráficos que compõem as quatro ca- 
madas de cada caractere. 
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Os programas deste artigo mostraram 
duas maneiras de criar letras ampliadas. 
No próximo artigo, você verá como ob- 
ter outro tipo de caractere e, também, 
como utilizar todos esses métodos em 
seus próprios programas. 
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DESENHE LETRAS 


LINHA POR LINHA 
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ALTURA E LARGURA 


■ 


DESENHE SEU PRÓPRIO 


TIPO DE LETRA 



Além de blocos gráficos e do conjunto 
de caracteres do computador, 
existem outros recursos que podem ser 
utilizados na criação de letras. 
Este artigo mostra um deles. 



Os dois tipos de letra criados pelo 
programa do artigo Manchetes e Letrei- 
ros (página 912) são construídos a par- 
tir de blocos gráficos ou do conjunto de 
caracteres-padrão da máquina. Mas há 
um outro meio de criar letras: usando 
gráficos de alta resolução para dese- 
nhá-las, linha por linha. 

O programa que se segue funciona 
de modo semelhante ao dos blocos grá- 
ficos. Cada letra é definida por uma sé- 
rie de dados alocados em uma instrução 
DATA, que informam ao computador 
como ela será. Essa informação é arma- 
zenada em uma matriz, e é possível dar 
entrada às palavras que se quer escrever 
na forma de um cordão alfanumérico. 
Como antes, as letras são montadas con- 
forme as instruções encontradas e exi- 
bidas na tela. Mais tarde, você apren- 
derá a usar essas telas como parte de 
seus próprios programas. 



UM TIPO A SEU GOSTO 



Os gráficos de alta resolução facili- 
tam enormemente a tarefa de criar o seu 
tipo de letra preferido. Isso acontece 
porque a expansão dos caracteres da 
ROM é limitada à duplicação da altura 
ou da largura dos caracteres. Ora, as le- 
tras constituídas por blocos gráficos es- 
tão completamente fixadas devido aos 
números das linhas DATA, 

Por outio lado, os dados no nosso 
programa também fixam a maneira co- 
mo a letra vai ser desenhada (o L, por 
exemplo, é formado de uma linha ver- 
tical e uma horizontal). Mas essas ins- 
truções são relativas e não determinam 
a aparência final das letras. Pense em 
cada letra como se ela estivesse encer- 
rada dentro de uma caixa imaginária. Se 
a caixa é alta e estreita, temos uma le- 
tra alta e estreita; se ela for baixa e lar- 
ga, assim será a letra. O programa é es- 




crito de tal forma que é possível definir 
essas variáveis com fatores de escala. 
Agora digite o programa... 



10 POKE 23658,0 

20 DIM N{26): DIM A{26.12,2) 

30 FOR N-l TO 26 

40 READ N ( N ) 

50 FOR M-l TO N{N) 

60 READ A(N,M,1) ,A(N.M,2) 

70 NEXT M 

80 NEXT ti 
100 INPUT "INTRODUZA UMA PALAV 
RA", LINE AS: IF AS-"" THEN 
GOTO 100 



110 INPUT "DIGITE FATOB X",X 
120 INPUT "DIGITE FATOH Y".Y 
125 CLS 

130 FOB N=l TO LEN AS 
140 LFT TS=AS(N): TF TS<"A" OR 
TS>"Z" THEN NEXT N : GOTO 100 
150 PLOT (10*(N-1)*X)+X"A(CODE 
TS-55. 1, 1) . 20+Y*A<CODE TS-55.1 
, 2] 

160 FOR M-2 TO N(CODE TS-55) 

170 DRAW X*A(CODE TS-55 , M, 1 >. Y 

*A (CODE TS-h5 ,M. 2) 

180 NEXT M 

190 NEXT N 

200 GOTO 100 
100D DATA 8,0,0,5,1,1.4.0,1,-1, 
0,-5,0.3.-6,0 

1010 DATA 12.0,0.0.6,5,0.] ,-1,0 i 
,-1,-1,-1,-5.0.5,0,1.-1.0.-1.-1 



PROGRAMAÇÃO BASIC 



.-1.-5,0 

1020 DATA 8.6.1 

.0.4.1.1,4.0,1. 

1030 DATA 7,0.0 

-2, -2. -2,-4.0 

1040 DATA 7,6.0 

,0,0.-3.5,0 

1050 DATA 6.0,0 

-3.5,0 

1060 DATA 10,5, 
,-4.0.-1.1,0,4 
1070 DATA 6,0.0 
3,0,-6 

1080 DATA 6,0,0 
,0.6.0 

1090 DATA 5,0,1 

5 

1100 DATA 6,0.0 

.-3.6.-3 

1110 DATA 3,6,0 

1120 DATA 5.0,0 



-1.-1.-4.0,-1,1 

1 

0.6,4,0.2,-2,0, 
-6.0.0,6,6,0.-6 
0.6,6,0.-6,0,0, 



2,1,0.0.-1,-1.-1 
1,1,4,0,1,-1 

0. 6.0,-3,6.0.0, 

6.0.-3,0.0.6,-3 

1, -1,4,0,1.1,0. 
0.6,0,-3,6,3,-6 



0.1. -1.0.' 



1150 DATA 7,0,0 
-1.-1.-1,-5,0 
1160 DATA 9,4 
0,4.1.1,4,0,1 
1170 DATA 9.0.0 
-1.-1.-1.-5,0,4 
1180 DATA 12,0 
,1,-1.1,-4,0,-1 
,-1 

1190 DATA 4.3,0, 
1200 DATA 6.0.6J 
.1.0.5 

1210 DATA 3.0. 6,: 
1220 DATA 5.0.6. : 



0. 6.6.-6,0,6 
-1,1,0.4,1,1,4, 

1. -4,0 
,0.6,5.0,1,-1.0, 



2.-2.-5,0.-1.1, .6 



.0.6.5,0,2,-1.0, 
0,2.-3 
1,1,-1,4,0.1,1,0 
1.0,1,1.1.4,0,1 



-3.1 



10 PMODE 1.1:PCLS 

20 DI M N(26) ,A(Z6, 12,2) 

30 FOH N-l TO 26 

40 READ N(N) 

50 FOH M-l TO N(N) 

60 READ A(N.M.l) ,A<N.M,2) 

70 NEXT H.N 

80 CLS ; INPUT" INTRODUZA A PALAUH 
A "iAS:IF A3-"" THEN GOTO 80 
90 INPUT-Q.UAL O FATOR X # :X 
100 INPUT*QUAL O FATOR Y " i Y 
110 CLS:PCLS: SCREEN 1,0; FOR N-l 

TO LEH (A3) 
120 TS-MID$(AS.N,1) :IF T3<"A P O 
R TS>"Z" THEN NEXT N:GOTO 80 
130 J-(10MN-1)«X)+X*A((ASC(TS) 
-64) .1,1) :K-10+Y*A(A8C(TS)-64,1 
.2) 

140 FOR M-2 TO N (ASC (TS) -64 ) 
150 F-X*A( (ASC(T3)-64) ,M,1) 
160 G-Y*A( (ASC(T3)-64) .M.2) 
170 LINE(J,K)-(J+F.G+K) ,PSET 
1BO J-J*F:K-K+G 
190 NEXT M.N 



200 IF INKEYS-"" THEN 200 
210 GOTO 80 

1000 DATA 9,0,6,0,-5,1,-1,4,0.1 

.1.0,3,0,2,0.-3,-6.0 

1010 DATA 12,0.0,0,6,5,0,1,-1.0 

.-1.-1,-1,-5,0,5,0,1,-1,0,-1,-1 

.-1.-5.0 

1020 DATA 8,6,1.-1,-1,-4,0,-1,1 

,0.4,1.1,4,0.1,-1 

1030 DATA 7,0,0,0,6,4,0,2,-2,0, 

-2.-2,-2,-4,0 

1040 DATA 7,6,0.-6,0,0,6,6.0,-6 
,0.0,-3,5,0 

1050 DATA 7,0,0.6,0,-6.0.0.3.5. 
0.-5,0.0,3 

1060 DATA 10,7,1.-1.-1,-4,0,-1, 
1,0,4,1,1,4.0.1,-1,0,-1.-1,0 
1070 DATA 6,0,0.0.6.0,-3,6,0.0, 
3.0,-6 

1OB0 DATA 6,0,0,6,0.-3.0,0,6,-3 
,0,6,0 

1090 DATA 7.0,0,6,0,-3,0,0,5,-1 
.1,-1,0.-1,-1 

1100 DATA 6,0,0.0,6,0.-3,6,3,-6 
,-3,6.-3 

1110 DATA 3,0,0,0,6,6.0 

1120 DATA 5.0,6,0.-6,3,3,3,-3,0 



1230 DATA 5,0.0.6,6,-3,-3,-3,3, 
6.-6 

1240 DATA 5.3,0,0,3,-3,3,3,-3,3 
,3 

1250 DATA 4,6,0,-6,0,6,6.-6,0 



1130 DATA 4,0.6,0,-6.6,6,0,-6 
1140 DATA 9,1,0.-1,1,0,4.1,1,4, 

0. 1.-1.0.-4,-1,-1.-4.0 

1150 DATA 7,0,6.0.-6,5,0.1,1,0. 

1. -1,1,-5,0 

1160 DATA 11.5,0,-4,0,-1.1,0,4. 
1,1,4.0.1,-1,-2,-1,2,1.0,-4.-1. 

-1 

1170 DATA 9,0,6.0,-6,5,0.1,1,0, 

1.-1.1,-5,0,4,0.2.3 

1180 DATA 12,6,1,-1,-1,-4,0,-1, 

1,0,1, '1,1. 4, 0,1, 1.0, 1,-1, 1,-4,0 



1230 DATA 5.0,0.6.6 

6,-6 

1240 DATA 5, 3.6.0. - 



2.-3,2,3,1, 

-3,-3.-3,3. 

.-3.-3,3,3. 
3.-3 

1250 DATA 4.0,0.6.0,-6.6.6,0 

rm 

10 SCREEN 0 

20 DIM N(26) .AI26.12.2) 

30 FOR N-l TO 26 

4 0 READ N(N) 

50 FOR M-l TO N (N) 

60 READ A(N,M, l) .A(N,M,2J 

70 NEXT M 

75 NEXT N 

60 INPUT"introduxa a palavra" ;A 

3 

90 INPUT" introduza a escala da 
x-;X 

100 INPUT" íntroduiâ a eacala do 
Y"lT 
110 SCREEN 2 
115 FOR N-l TO LEN(AS) 
120 TS=MIDS(AS.N,1) -IF TS<"A" O 
R TS>"Z"THEN GOTO 80 



130 J-<10»(N-1)*X)+X"A<(ASC(TS) 
-64) :K-10+Y*A({ASC{TS)-64) 
.1,2) 

140 FOR M-2 TO N (ASC (TS) -64 ) 
150 F-X*A((A3C{TS)-64) .M.l) 
160 G-Y*A( (ASC(TS)-64) ,M,2) 
170 LINE (J,K)-(J+F,K+G) 
180 J-=J + F:K-K+G 
190 NEXT M 
195 NEXT N 

200 IF INKEYS- " " THEN 200 
210 GOTO 80 

1000 DATA 9,0.6.0,-5,1,-1,4,0,1 

,1.0.3,0,2,0,-3,-6,0 

1010 DATA 12,0,0,0,6.5,0,1,-1,0 

.-1,-1,-1,-5.0,5,0,1,-1.0.-1.-1 

.-1.-5,0 

1020 DATA B. 6. 1.-1,-1, -4. 0,-1,1 

,0,4,1.1,4,0,1,-1 

1030 DATA 7,0.0,0.6,4.0.2,-2,0, 

-2,-2,-2,-4.0 

1040 DATA 7.6.0.-6,0.0,6.6,0,-6 
,0,0,-3,5,0 

1050 DATA 7,0.0.6,0.-6.0,0.3,5, 
0,-5.0,0,3 

1060 DATA 10,7,1,-1,-1.-4,0.-1, 
1,0, 4, 1.1, 4, 0,1. -1.0, -1,-1.0 
1070 DATA 6,0.0,0,6,0,-3.6.0.0, 
3.0.-6 

1080 DATA 6.0,0,6.0,-3,0,0.6.-3 
.0.6.0 

1090 DATA 7,0,0,6,0.-3.0,0.5,-1 
.1,-1.0,-1,-1 

1100 DATA 6,0.0,0,6.0,-3.6,3,-6 
.-3,6,-3 

1110 DATA 3,0.0,0,6.6.0 

1120 DATA 5,0,6.0,-6,3,3,3.-3,0 

.6 

1130 DATA 4,0,6,0,-6,6,6,0,-6 
1140 DATA 9,1,0,-1,1.0,4,1,1.4. 

0. 1,-1,0,-4,-1.-1,-4,0 

1150 DATA 7,0,6,0,-6,5,0.1,1.0. 

1, -1,1,-5,0 

1160 DATA 11,5,0,-4.0,-1.1.0,4. 
1,1.4.0,1,-1,-2,-1,2.1.0,-4.-1. 
-1 

1170 DATA 9,0.6.0,-6.5.0,1,1.0, 

1.-1.1,-5.0.4.0.2.3 

11B0 DATA 12,6,1.-1.-1.-4,0,-1. 

1.0,1,1,1.4,0.1,1,0.1,-1.1.-4,0 

,-1,-1 

1190 DATA 4,3.6,0.-6,-3,0.6.0 
1200 DATA 6.0.0,0,5.1,1,4,0,1,- 
1,0,-5 

1210 DATA 3,0,0.3.6.3,-6 

1220 DATA 5,0,0.1.6,2,-3.2,3.1. 

-6 

1230 DATA 5,0,0,6.6,-3.-3,-3,3. 
6,-6 

1240 DATA 5,3,6,0,-3,-3,-3,3.3, 
3,-3 

1250 DATA 4.0.0.6.0,-6,6,6,0 



GE 03 



LOMEM: 16384 
HOME : HGR ! HCOLOR- 3 
DIM N{26) ,A<26,12,2) 
FOR N - 1 TO 26 
READ N (N ) 
FOR M - 1 TO N(N) 
READ A(N.M.l) ,A(N.M,2) 
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70 NEXT M: NEXT N 
75 HOME : ti CR 

BO VTAB 22: INPUT ■ INTRODUZA A 
PALAVRA ":AS: IF AS - "" THEN 
GOTO 80 

90 INPUT "UUAL O FATOR X7 "|X 
100 INPUT "O.UAL O FATOH Y? "iY 

110 FOR N - l TO LEN (AS) 
120 TS ■ MIOS (A3.N,1) : IF TS 
< "A" OB TS > "Z" THEN NEXT N: 
GOTO BO 

130 J ■ (10 * (N - 1) * X) + X 
* A<( ASC (TS) - «4) ,1,1) :K - 1 
0 + ¥ * A t ASC (TS) - 64,1,2) 
140 FOR « ■ 2 TO M| ASC ÍTS) - 
64) 

150 F ■ X * A ( { ASC (TS) - 61) , 
H.l) 

160 G - X * A( { ASC ITS) - 64) , 
Kj 2) 

170 HPLOT J.K TO J + F , (3 + K 
180 J - J + F:X - K + Q 
190 NEXT M: NEXT N 
200 GET RS 
210 GOTO 75 

1000 DATA 9, O, 6, 0,-5, 1,-1.4,0 

,1.1.0,3.0,2,0,-3,-6.0 

1010 DATA 12,0,0,0,6,5,0,1,-1 

.0,-1,-1,-1,-5,0,5,0,1,-1,0,-1, 

-1,-1,-5,0 

1020 DATA 8.6.1,-1,-1,-4,0,-1 

.1,0.4,1.1,4,0.1,-1 

1030 DATA 7.0,0,0,6,4,0,2,-2, 

0,-2.-2,-2,-4,0 

1040 DATA 7.6.0,-6,0,0,6,6.0, 
-6,0.0,-3,5,0 



1050 DATA 7.0.0,6,0.-6.0,0,3, 
5,0,-5,0,0,3 

1060 DATA 10,7,1,-1.-1,-4,0,- 
1.1,0,4.1.1,4.0,1,-1.0,-1,-1,0 
1070 DATA 6.0,0,0,6,0,-3,6,0, 
0,3.0,-6 

1080 DATA 6.0,0.6,0,-3,0,0,6, 
-3,0,6,0 

1090 DATA 7, CO, 6, 0,-3. 0,0, 5, 
-1,1,-1,0,-1,-1 

1100 DATA 6,0,0,0.6,0,-3,6,3, 
-6,-3,6,-3 

1110 DATA 3,0,0,0.6,6,0 

UZO DATA 5,0,6,0,-6,1,3.3,-3 

.0,6 

1130 DATA 4.0,6,0,-6,6,6,0,-6 

1.140 DATA 9, 1,0, -1 ,1,0,4,1.1, 

4.0,1 ,-1,0,-4.-1.-1.-4,0 

1150 DATA 7,0,6,0,-6,5.0,1,1, 

0,1,-1,1,-5,0 

1160 DATA 11 ,5,0,-4,0.-1 , 1 .0. 
4,1.1,4,0,1,-1,-2,-1 ,2,1 ,0,-4,- 
1 .-1 

1170 DATA 9,0.6,0.-6.5,0,1,1. 

0. 1,-1,1,-5,0,4,0,2.3 

1180 DATA 12,6,1,-1,-1,-4,0,- 
1,1,0,1,1,1,4,0,1,1,0,1,-1,1,-4 
,0,-1.-1 

1190 DATA 4,3.6,0,-6,-3,0,6,0 

1200 DATA 6,0,0,0,5.1,1,4,0,1 
,-1,0,-5 

1210 DATA 3,0,0.3.6,3,-6 

1220 DATA 5,0,0,1,6,2,-3,2,3, 

1. -6 

1230 DATA 5,0,0,6,6,-3,-3,-3, 



3,6,-6 

1240 DATA 5,3.6,0,-3,-3,-3,3, 
3,3,-3 

1250 DATA 4,0,0,6,0.-6.6,6,0 

Os programas aqui apresentados pa- 
ra as diferentes linhas de microcompu- 
tadores são muito semelhantes entre si, 
Em todos eles vamos encontrar 26 de- 
clarações DATA, uma para cada leira 
do alfabeto. Essas declarações contêm 
uma série de números que dizem ao 
computador como desenhar a letra, uti- 
lizando pequenas linhas. 

O primeiro número da lista dá o to- 
tal de linhas que entram na composição 
de cada letra — um L, por exemplo, re- 
quer menos linhas que um S. O número 
máximo usado é doze. 

Os números seguintes são arranjados 
em pares, dando as coordenadas x e y 
de cada pequena seção da linha. Como 
já foi dito, tais números são relativos; 
assim, as linhas que serão efetivamente 
desenhadas dependem de fatores de es- 
cala. O primeiro par de números espe- 
cifica o ponto de inicio da letra dentro 
de nossa caixa imaginária. 

Os números contidos nas instruções 
DATA do programa são lidos para duas 
matrizes, N e A. A é uma matriz tridi- 
mensional 1 , de 26 (número dc letras) por 
12 (número máximo de linhas) por 2 (ve- 
tores x e y). 
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COMO ESCOLHER UM CORDÃO 



tras, o programa voltará para que voi 
possa dar entrada a mais palavras. 



As linhas que permitem a entrada de 
palavras são semelhantes às do progra- 
ma do artigo Manchetes e Letreiros. 
Elas verificam a entrada para evitar um 
cordão nulo; não existe, neste caso, ne- 
nhum limite para o número de caracte- 
res utilizados. 

Em seguida, o programa pede dois 
valores — um fator X e um fator Y. Es- 
ses valores determinam as reais dimen- 
sões de cada letra. Grosso modo, a es- 
cala 1 representa o (amanho padrão do 
caractere; 2 fornece altura ou largura 
dupla, enquanto 0.5, por sua vez, ofe- 
rece metade do tamanho. Para valores 
menores que a unidade, podem-se ob- 
ter efeitos estranhos. Uma vez que o 
computador não pode traçar uma fra- 
ção de pixel, ele é obrigado a desenhar 
o pixel todo. Letras com um maior nú- 
mero de linhas apresentam mais facili- 
dade para que isso ocorra. Desse modo, 
um S, por exemplo, pode terminar 
maior quando comparado com um T. 

Se atribuirmos diferentes valores para 
cada fator, poderemos produzir interes- 
santes variações nos caracteres, criando 
assim letras altas e magras, baixas e gor- 
das etc. 

Como não existe limite para o tama- 
nho do cordão, é necessário tomar to- 
do o cuidado no sentido de que o nú- 
mero de letras não ultrapasse as dimen- 
sões da tela. Quando isso ocorre, o com- 
putador emite uma mensagem de erro. 

O cálculo de quantos caracteres ca- 
bem na tela para cada fator de escala é 
relativamente simples. Note que o valor 
importante é o fator X, que determina 
a largura da letra. Se você tiver um fa- 
tor X igual a 2, só poderá colocar a me- 
tade do que seria possível com o fator 
l, Com um fator 4, caberá apenas 1/4 
dos caracteres. 



Assim como os outros programas que 
criavam letras, este usa um laço para ve- 
rificar cada caractere do cordão. No 
Spectrum ele começa na linha 130; no 
TRS-Color, na linha 110. 

O programa continua de maneira si- 
milar ao gerador de caracteres anterior, 
montando um cordão TS exatamente 
igual ao cordão original. Ao mesmo 
tempo, ele verifica se o caractere é uma 
letra de A a Z; qualquer outro caracte- 
re é tratado como se fosse um espaço. 
Se não for, o computador executará um 
NEXT para fazer avançar o laço 
I FOR... NEXT. Se não houver mais le- 



A ROTINA DE DESENHO 



Quando o computador encontra uma 
letra no cordão, vai para a linha 150 (no 
Spectrum), que dá início à rotina de de- 
senho. Nos outros computadores ela es- 
tá na linha 170. O conteúdo dessa linha, 
porém, difere de computador para com- 
putador, pois cada um deles tem um ta- 
manho diferente de tela e conta com co- 
mandos distintos para desenhar em al- 
ta resolução. 

A base para a rotina, entretanto, é a 
mesma para todos os micros. A variá- 
vel de controle para o laço 
FOR.. .NEXT, N, é usada como um 
guia para a coordenada x da posição ini- 
cial; a ela são adicionados dois valores 
pelo computador. O primeiro é un 
lor relativo — a coordenada para dese 
nho da matriz A — , enquanto o segun 
do é um valor que leva em conta o ta 
manho da tela e os fatores de escala. 

Você já viu que um dos três elemen- 
tos dessa matriz é usado para separar os 
detalhes das coordenadas x e y. Os ou- 
tros dois elementos formam cada uma 
das 26 letras do alfabeto com até 24 nú- 
meros (lembre-se de que doze é o núme- 
ro máximo de linhas usadas por letra). 
A matriz N diz ao computador quantas 
linhas devem ser empregadas na defini- 
ção de cada letra. Assim, quando o 
computador vai desenhar o caractere A, 
por exemplo, ele verifica inicialmente 
quantas linhas devem ser traçadas na 
matriz N. Esse número controla o laço 
para desenhar a quantidade exata de li- 
nhas de cada letra. 

Os valores dos números contidos em 
A, a matriz principal do programa (tri- 
dimensional), equivalem ao código de 
caractere de cada letra menos 64 — es- 
ta é a razão pela qual as linhas Í30a 180 
contêm expressões como ASC(TS)-64 ou 
CODE T$-64 ou A-64. Isso significa que 
o computador pode tomar o código de 
uma letra e usá-lo para contar linhas de 
desenho. Os valores relativos para x e 
y guardados na matriz são então multi- 
plicados pelo fator de escala que você 
escolheu e passados para os comandos 
de desenho. 

Assim que acaba de desenhar uma le- 
tra, o computador passa para a seguin- 
te (caso haja) no cordão e o processo 
continua. Se as letras acabarem, o com- 
putador volta para a linha 80 (no Spec- 
trum) ou 100 (nos outros micros) para 
que se possa entrar um novo cordão. Os 
microcomputadores das linhas TR-Color 
e MSX esperam que você tecle alguma 




Eis aqui as três versi 
letras no Spectrum. 



coisa antes, visto que a tela de alta re- 
solução tem que ser apagada para dar 
lugar à tela de texto. 



DESENHE SUAS PRÓPRIAS LETRAS 



Você já viu três exemplos de tipos de 
letra. Inspirando-se neles, crie à vonta- 
de seus próprios caracteres. Os caracte- 
res da ROM só podem ser expandidos, 
mas nada impede que as rotinas expan- 
soras sejam utilizadas para trabalhar 
com seus caracteres redefinidos — uma 
explicação de como isso pode ser feito 
foi dada anteriormente no artigo Con- 
junto de Blocos Gráficos (1), à página 
526. 

As variações com os outros dois mé- 
todos são praticamente infinitas: você 
pode desenhar seus próprios caracteres 
a partir de blocos gráficos e guardá-los 
em uma matriz, como no programa do 
artigo Manchetes e Letreiros. Se não es- 
tiver satisfeito com o resultado, tente re- 
desenhar tudo. Outra opção consiste em 
alterar a aparência das letras deste arti- 
go, modificando os valores das linhas 
DATA. 



USE OS NOVOS CARACTERES 



Não é difícil criar letras maiores pa- 
ra serem mostradas na tela; mas, a não 
ser que se possa usá-las em algum pro- 
grama, não há grande vantagem em se 
fazer isso. Se você optar pelas letras cria- 
das neste programa ou no anterior, pro- 
cure empregá-las em seus próprios pro- 
gramas. 

Isso pode ser feito de várias manei- 
ras. A mais comum incorpora o progra- 
ma gerador de letras como uma sub-ro- 
tina do seu programa e chama-o sempre 
que for necessário. 

Se você quiser usar o expansor de ca- 
racteres, essa será provavelmente a me- 
lhor solução. Mas, para o programa 




A Iterando -st- os fatores X e Y, as letras 
podem ser traçadas em qualquer tamanho. 

atual, ela está longe de ser razoável, uma 
vez que o programa toma muito espaço 
da memória e pouco sobra para seu pró- 
prio programa. 

Como você verá em seguida, esse 
problema pode ser resolvido de várias 
maneiras: todas elas utilizam o progra- 
ma para desenhar as letras, que são ar- 
mazenadas de modo a estar disponíveis 
para uso posterior. 



ARMAZENAGEM DOS DESENHOS 



Uma dessas maneiras consiste em ar- 
mazenar seus desenhos em gráficos 
UDG. Isso é fácil de fazer no TRS- 
Color, já que este possui o comando 
GET, que guarda o que está na teta. 
Embora com maiores dificuldades, o 
mesmo efeito pode ser obtido, em ou- 
tros computadores, por meio do coman- 
do POKE. 

É possível ainda gravar a parte da 
memória que contém os gráficos, como 
um bloco de código de máquina. Mais 
tarde, pode-se carregar toda a tela de 
volta para a memória. Entretanto, en- 
quanto ela estiver na memória do micro, 
é preciso protegê-la, colocando-a acima 
ou abaixo do BASIC (para maiores de- 
talhes, veja o artigo da página 526). 
Uma vez na memória, ela está em con- 
dições de ser utilizada. 

A melhor maneira de fazer isso é es- 
crever uma rotina para ler o código da 
área protegida da RAM e passá-lo para 
a área de tela; ou, ainda, alterar o apon- 
tador do conjunto de caracteres, de mo 
do que seu código se transforme em vá 
rios caracteres que poderão ser impres 
sos. A rotina para mover o bloco de cô- 
digo da RAM para a área de tela seria 
algo como: 

1000 FOR X-l TO (COMPRIMENTO DO 

BLOCO DE CÓDIGO) 
1010 POKE (ENDERECO DE INICIO D 
A MEMORIA DE TELA) +X , PEEK (ENDE 
RECO DE INICIO DO BLOCO DE CODI 
GOJ+X 

1020 NEXT X 



As telas mostram os tamanhos normal, 
extra-largo e extra-alto. 

Esta, porém, não é a melhor solução 
para o problema, uma vez que levaria 
longo tempo para ser concluída. A difi- 
culdade, felizmente, pode ser contorna- 
da por meio de uma rotina em lingua- 
gem de máquina que se encarregue de 
executar esse trabalho. 



Uma solução alternativa consiste em 
gravar a tela e carregá-la juntamente 
com o programa. Nesse caso, o desenho 
permaneceria na tela até que você se de- 
cidisse a apagá-lo. Na maioria dos mi- 
crocomputadores, esta constitui, sem 
dúvida, a melhor opção. 



O Spectrum tem um comando espe- 
cial que permite gravar em fita uma te- 
la gráfica com grande facilidade. O de- 
senho é gravado como um bloco de me- 
mória — processo descrito nas páginas 
574 e 575; neste caso, porém, não é ne- 
cessário especificar o endereço inicial e 
o tamanho do bloco. Basta usar 
SCREENS logo após o nome de arqui- 
vo. Digitado no modo direto, esse co- 
mando grava uma figura com o nome 
"pie". 

SAVE "pie" SCREENS 

Para carregar a figura: 

LOAD SCREENS 

Pode-se, por exemplo, usar a tela co- 
mo título para um jogo. Carrega-se pri- 
meiro a tela e a seguir o programa. As- 
sim, ela ficará visível enquanto o pro- 
grama estiver sendo carregado: 

10 LOAD SCREENS 
20 LOAD "JOGO" 

Grave agora com o comando: 

SAVE "CARBEG" LINE10 

de modo que ele será executado automa- 
ticamente. O jogo será gravado com 



O BASIC é muito lento e eu não 
gosto de programar em código de 
máquina. Tenho outros opções? 

Existe uma família de linguagens 
que, digamos, estão "a meio cami- 
nho". Elas são compiladas, e não inter- 
pretadas. Como vimos anteriormente, 
o que toma tempo no BASIC é a inter- 
pretação de cada comando toda vez 
que o programa é rodado. 

As linguagens compiladas usam um 
outro tipo de programa — parecido 
com os Assembler empregados na pro- 
gramação em código de máquina — 
que converte a linguagem de alto nível 
para código de máquina. Assim, depois 
da compilação, estaremos rodando um 
programa em código de máquina, e não 
em linguagem de alto nível. 



SAVE "JOGO" LINE10 



de modo que ele será executado automa- 
ticamente também. É importante lem- 
brar que os programas têm que ser gra- 
vados na ordem correia na fita. 



Para gravar uma tela em fita, utilize 
o comando: 

CSAVEM"nomearquivo" ,1536.7679, 



Os primeiros dois números são os en- 
dereços inicial e final da área de gráfi- 
cos (página 1 de qualquer PMODE, a 
não ser que se tenha um drive). 
CLOADM serve para carregar a figura 
de volta para a memória. 

Essa tela gravada pode ser usada co- 
mo uma página-título para um jogo; pa- 
ra isso, é preciso adicionar uma rotina 
de carregamento no início: 

1 PMODE1 , 1 : PCLS :SCP.EEN1 , 0 

2 CLOADM 

3 FOR D-l TO 1000 : NEXT 

e certificar-se de que a figura será gra- 
vada logo após o jogo. Isso funcionará 
enquanto o programa não reduzir o nú- 
mero de páginas gráficas disponíveis ini- 
cialmente (neste caso, a figura poderia 
sobrepor-se ao programa). 



Illlllll 
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CANETAS 



Espécie muito particular de ponteiro 
eletrònico, as canetas ópticas 
servem para fazer gráficos na tela e 
para selecionar itens de um 
menu. Veja como trabalhar com elas. 



Comunicar-se com um computador 
geralmente significa recorrer ao teclado 
para digitar informações. Esta, porém, 
não é a única forma de comunicação 
com a máquina. Além dela, existe uma 
série de métodos alternativos. Provavel- 
mente, o primeiro lugar dessa série per- 
tence ao joystick, que pode ser usado 
tanto em jogos como em aplicações mais 
"sérias". Outro método igualmente ba- 
rato e que apresenta nítida vantagem é 
o da caneta óptica. 

As canetas ópticas, como o próprio 
nome sugere, têm grande semelhança 
com uma caneta comum, pois funcio- 
nam com base em movimentos de "de- 
senhar" ou de apontar para coisas so- 
bre a tela. Como são capazes de detec- 
tar o ponto da tela para o qual estão sen- 
do apontadas, elas têm uma enorme sé- 
rie de aplicações potenciais, como, por 
exemplo, selecionar itens de um menu 
mostrado na tela e acionar as funções 
de um programa. Caso fosse utilizar o 
teclado em situações como essas, o usuá- 
rio seria obrigado a afastar os olhos da 
tela e pressionar uma ou mais teclas. 
Com uma caneta óptica, porém, tudo fi- 
ca bem mais rápido e simples: basta 
apontar para a opção. 



As canetas ópticas são particularmen- 
te apropriadas para aquelas aplicações 
em que o usuário precisa localizar rapi- 
damente pontos espalhados pela tela, 
como quando deseja entrar as coorde- 
nadas de um ou mais pontos, colocar 
uma marca, desenhar uma reta, selecio- 
nar um menu etc. 

Precisas, rápidas e de fácil manipu- 
lação, as canetas ópticas se prestam mui- 
to bem a aplicações gráficas. Nesse ti- 
po de aplicação, o emprego das teclas 
para controle do cursor gráfico (ou, pior 
ainda, a utilização das teclas numéricas 
para entrar coordenadas) implicaria 
num lento e laborioso processo. Já com 
uma caneta óptica pode-se desenhar li- 
teralmente à mão livre: você traça ape- 
nas os contornos com a caneta, e o re- 
sultado aparece diretamente na tela. Ou- 
. tra técnica consiste em compor um de- 
I senho, usando a caneta para apontar pa- 




ra um menu com símbolos gráficos, co- 
res, sombreados etc. 

A caneta óptica mostra-se também de 
grande valia em programas de aplica- 
ções mais sérias, como processamento 
de textos, ou contabilidade (do tipo 
"você obtém o que vê"). Isso significa 
que, em vez de entrar instruções pelo te- 
clado, elas são entradas por intermédio 
de uma caneta óptica que aponta para 
as opções disponíveis. 



Até recentemente, programas a_ 
tivos que empregassem canetas ópticas 
eram desenvolvidos pelos próprios usuá- 
rios. Atualmente, com o crescente inte- 
resse por esses periféricos, algumas em- 
presas produtoras de software já estão 
oferecendo programas que usam espe- 
cificamente a caneta óptica. 

Alguns programas "artísticos" ou de 
projeto por computador possibilitam a 
criação de desenhos à base de figuras 
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geométricas (retas, círculos, elipses etc), 
que podem ser preenchidas com cores. 
Muitos desses programas permitem tam- 
bém o uso de canetas ópticas para dese- 
nhos à mão livre sobre a tela. Com eles 
é possível elaborar trabalhos complexos 
e criativos. 

Esse processo funciona da seguinte 
forma: um dos programas utiliza a ca- 
neta óptica para definir símbolos ou ca- 
racteres gráficos. Um segundo progra- 



ma aproveita esses símbolos em proje- 
tos mais complexos. Aqui, a caneta óp- 
tica oferece nítidas vantagens sobre ou- 
tror. métodos de entrada gráfica e de se- 
leção de opções. 

Já é possível encontrar no mercado 
jogos que recorrem a canetas ópticas pa- 
ra que o jogador transporte figuras de 
um ponto para outro da tela. O xadrez 
e outros jogos de tabuleiro são bons 
exemplos desse emprego. 

Palavras cruzadas, jogos de cartas, 
labirintos e quebra-cabeças variados 
completam o quadro de ativídades lú- 
dicas em que as canetas ópticas têm fun- 
ções importantes. Essas funções são ex- 
tensivas a jogos de aventuras, em que o 
jogador pode apontar para os objetos 
que deseja apanhar ou levar. 

As canetas ópticas podem ainda as- 
sumir formas especiais, como o rifle óp- 
tico que serve para centrar a mira em al- 
vos na tela. Esse rifle já existe tanto em 
micros domésticos quanto em certos vi- 
deogames. Está, portanto, especifica- 
mente voltado para jogos. 



COMO FUNCIONA A CANETA ÓPTICA 



Uma caneta óptica é usada basica- 
mente para detectar pontos luminosos 
presentes na tela por meio de um foto- 
detector. Quando ela é apontada para 
alguma locação na tela, ocorre um tra- 
balho conjunto entre os circuitos eletrô- 
nicos de detecção na caneta e o softwa- 
re carregado no computador; o objeti- 
vo desse trabalho é calcular as coorde- 
nadas do ponto para o qual a caneta es- 
tá sendo apontada. 

Uma das técnicas desse processo ba- 
seia-se no modo como a imagem é pro- 
duzida em um cinescópio, tubo de TV 
ou monitor. O feixe de elétrons que 
bombardeia a tela é movimentado de 
forma a deslocar um pequeno ponto de 
luz sobre ela em um padrão que vai da 
esquerda para a direita e de cima para 
baixo. Esse padrão tem cerca de seiscen- 
tas linhas de varredura, repetidas a ca- 
da 1/60 de segundo, Como a varredura 
é muito rápida, o olho humano percebe 
apenas uma imagem estável. 

A caneta óptica tem na ponta um mi- 
núsculo sensor fotoelétrico (normalmen- 



te, um díodo ou transistor sensível à luz) 
que detecta o pontinho de luz quando 
este passa em seu foco. Um sinal elétri- 
co é então produzido, amplificado e 
transmitido para o computador. Este, 
por sua vez, é que controla o movimen- 
to de varredura e, por isso, consegue cal- 
cular as coordenadas do ponto, com ba- 
se no tempo que o feixe de elétrons leva 
para partir do topo e chegar ao ponto 
de detecção. 

As canetas ópticas variam segundo o 
tipo de sensor luminoso empregado, on- 
de ele é colocado e onde se localizam os 
circuitos eletrônicos associados; ou, ain- 
da, conforme permitam ou não diferen- 
tes modos operacionais. Até mesmo a 
maneira pela qual mostram que o sinal 
foi detectado serve para diferenciar os 
vários tipos de caneta óptica. Finalmen- 
te, como não poderia deixar de ser, elas 
são classificadas de acordo com o mo- 
delo de computador com o qual são 
compatíveis. 

Todos esses fatores afeiam o preço 
e o desempenho da caneta óptica, bem 
como suas características operacionais. 
Dentre estas, as principais são a sensi- 
bilidade e a resolução. 



SENSIBILIDADE 



A sensibilidade de uma caneta ópti- 
ca revela a gama de intensidades lumi- 
nosas que ela é capaz de detectar na te- 
la. As melhores canetas captam todas ou 
quase todas as cores exibidas. As de 
qualidade inferior detectam apenas as 
cores mais brilhantes ou as intensidades 
mais fortes. Para muitas aplicações, is- 
so será mais do que suficiente, embora 
imponha uma severa limitação, na flexi- 
bilidade de uso, particularmente em 
aplicações gráficas, onde o fundo é nor- 
malmente escuro. 

Um problema frequente com as ca- 
netas ópticas é a chamada detecção es- 
púria. Esta ocorre quando a sensibilida- 
de é muito aumentada pela excessiva 
amplificação do sinal proveniente do 
sensor de luminosidade. Esse aumento 
amplia a probabilidade de a caneta óp- 
tica ser ativada por outras fontes de luz, 
tais como reflexos na tela ou a própria 
luz ambiente. 



Illlllll 
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Para enfrentar esse problema, as ca- 
netas ópticas são equipadas com meca- 
nismos destinados a impedir a ocorrên- 
cia de detecções espúrias. Esses meca- 
nismos podem ser constituídos, por 
exemplo, de células fotoelétricas e filtros 
de luz em proporções tais que se com- 
binem com as características de cor do 
ponto na tela. Além disso, podem ser 
usados filtros eletrônicos para assegurar 
que a luz provenha realmente da tela (e 
não de uma fonte externa). Isso é pos- 
sível porque os pontos na tela oscilam 
com uma frequência característica (ses- 
senta vezes por segundo). Assim, um cir- 
cuito eletrônico simples (chamado "fil- 
tro passa-alto") é usado para selecionar 
apenas a luz que pisca com essa fre- 
quência. 



CANETAS DE ALTA RESOLUÇÃO 



Uma vez que os problemas da sensi- 
bilidade e da detecção espúria tenham 
sido tecnicamente resolvidos, uma im- 
portante consideração adicional a fazer 
pode ser a resolução. Esta diz respeito 
à área mínima na tela que a caneta é ca- 
paz de detectar, que varia desde um úni- 
co pixel na tela, nas melhores canetas 
ópticas, até um grupo inteiro de carac- 
teres, nas piores. 

A resolução de uma caneta depende 
do sensor que ela usa, da velocidade de 
reação e do método de colimação, ou de 
coleção da luz. Algumas canetas ópti- 
cas utilizam um tubo negro opaco para 
canalizar a luz até o sensor; outras em- 
pregam um sistema de lentes, ou peda- 
ços curtos de fibra óptica. A alta reso- 
lução é importante se se quer desenhar 
com a pena, e não somente detectar po- 
sições. Uma caneta óptica com uma boa 
colimação conseguirá discriminar um 
ponto menor, e, consequentemente, se- 
rá mais acurada. 

Os modelos de canetas ópticas dife- 
rem quanto à quantidade e qualidade da 
documentação e do software que as 
acompanham. Para funcionarem a con- 
tento, elas devem contar com um bom 
suporte por parte de rotinas de softwa- 
re. A programação é razoavelmente sim- 
ples, qualquer que seja o tipo de caneta 
ou de computador ao qual ela está liga- 
da. Alguns fabricantes adicionam uma 
fita cassete ou disco com alguns progra- 
mas de exemplo, enquanto outros ape- 
nas fornecem listagens de rotinas. 



COMO ESCOLHER UMA CANETA ÓPTICA 



Há vários fatores a considerar na ho- 
a de se escolher uma caneta óptica. Por 



exemplo, a precisão da caneta. Embora 
algumas canetas tenham uma alta reso- 
lução nominal, isso não quer dizer que 
elas sejam capazes de conservar a pre- 
cisão por muito tempo. Algumas cane- 
tas ópticas são tão imprecisas que uma 
reta traçada com elas sobre o vídeo apa- 
recerá como uma série aleatória de pon- 
tos acesos e apagados. 



Geralmente, o preço desse periférico 
é proporcional à qualidade. Alguns dos 
mais caros, por exemplo, têm dois dis- 
positivos de que não falamos ainda: o 
primeiro serve para anunciar que a ca- 
neta detectou um ponto de luz válido na 
tela; o segundo controla o sinal a ser en- 
viado ao computador. 

Um diodo emissor de luz (LED) é um 
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equipamento usado em algumas canetas 
para indicar se houve detecção correta: 
ele não é essencial para desenhar, mas 
pode ser útil quando se usa a caneta pa- 
ra escolher opções na tela ou detectar 
posições. 

O controle do sinal é normalmente 
exercido por um botão ou um interrup- 
tor, situado quase sempre no corpo da 



caneta, ao qual o usuário recorre quan- 
do quer enviar a informação ao compu- 
tador. Ele pode ser acionado com duas 
finalidades: para reduzir a chance de de- 
tecções falsas ou espúrias, e para ter 
mais controle sobre que leituras devem 
ser feitas pela caneta. 

Existem vários tipos de interruptores: 
nos modelos mais sofisticados, eles po- 



dem tomar a forma de um pequeno con- 
tato na ponta da caneta, de tal maneira 
que esta será ativada assim que for en- 
costada na tela. 



COMPATIBILIDADE 



Antes de comprar uma caneta ópti- 
ca, convém testar se ela funcionará com 
o seu tipo de computador. Como acon- 
tece com muitos outros periféricos, as 
canetas ópticas costumam funcionar 
apenas quando ligadas ao computador 
para o qual foram feitas. 

Algumas vezes, você poderá resolver 
esse problema adquirindo uma interfa- 
ce especial para o seu computador. 

Não se esqueça de que esse periféri- 
co precisa de software para funcionar: 
se você comprar uma caneta óptica que 
não sirva especificamente para o seu mi- 
cro, provavelmente passará por maus 
momentos, tentando descobrir como ela 
funciona. 



PROBLEMAS COM CANETAS ÓPTICAS 



A limpeza é um item essencial para 
a manutenção das canetas ópticas. Co- 
mo elas trabalham com luz em intensi- 
dades muito baixas, qualquer sujeira na 
ponta da caneta ou na tela tende a in- 
terferir no sinal luminoso detectado. Pa- 
ra evitar esse tipo de problema, limpe re- 
gularmente a caneta de seu mjcro com 
um produto de limpeza semelhante ao 
usado para gravadores. 
I Outro problema peculiar das canetas 
ópticas é que a sua proximidade tende 
a obscurecer uma parte da tela. Esse in- 
conveniente, porém, só se tornará real- 
mente grave se a tela estiver coberta de 
informações. 

Antes de comprar uma caneta ópti- 
ca, assegure-se de que nenhum outro pe- 
riférico — como joysticks e tabletes di- 
gitalizadores — é mais apropriado para 
o que pretende fazer. Não se esqueça de 
que usar uma caneta óptica por longo 
tempo pode ser muito desconfortável, 
devido à posição vertical forçada em que 
ela deve ser mantida. 

O mercado de micros tem se caracte- 
rizado por um forte crescimento no em- 
prego de aplicações em que o usuário de- 
ve interagir com a tela. Essa tendência 
provocará certamente a disseminação 
das canetas ópticas. Com isso, seu pre- 
ço tenderá a baixar, e os programas ca- 
pazes de utilizá-las se multiplicarão. Pa- 
ra o usuário que está procurando um 
acessório barato e diferente para o seu 

micro, "a caneta óptica pode ser, assim, 

a aquisição ideal. 923 
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Você prefere programar em BASIC, mas 
lamenta a morosidade do computador em 
executar certas tarefas? Não desanime. 
Como verá neste artigo, existem várias 
maneiras de acelerar seus programas. 



A princípio, lodos os computadores 
parecem extremamente rápidos, execu- 
tando num piscar de olhos tarefas que 
consumiriam muitas horas de um ser hu- 
mano. Mas, ao escrever um jogo de 
acfio, um programa que contenha mui- 
tos cálculos ou até mesmo uma ordena- 
ção complicada usando o BASIC, o 
usuário começa a se decepcionar. Real- 
mente a máquina demora para executar 
certas tarefas, e, depois de alguma ex- 
periência, é provável que você também 
acabe reclamando de sua lentidão... 

Os programas mais rápidos são os es- 
critos cm código de máquina ou em lin- 
guagem Assembly, mas muitas pessoas 
optam pela facilidade da programação 
em BASIC. Um programa em BASIC, 
porém, nunca terá a mesma velocidade 
de execução de um programa em códi- 
go de máquina, pois o computador gasta 
muito tempo traduzindo-o. O computa- 
dor tem, já embutido como parte de seu 
hardware, um programa especial — o 
interpretador —.responsável pelaHradu- 
ção do BASIC para código de máquina. 

Para os que não querem ou não gos- 
tam de escrever programas em código de 
máquina, mas ainda assim dão impor- 



tância à velocidade e desejam extrair o 
máximo de rapidez do BASIC, temos al- 
gumas dicas. Ê importante, em primei- 
ro lugar, tentar estruturar os programas 
adequadamente. Depois, deve-se sele- 
cionar os elementos do BASIC que o in- 
terpretador leva menos tempo para tra- 
duzir, de modo que cada linha de pro- 
grama opere com velocidade máxima. 

Cada máquina tem suas próprias li- 
mitações e, em consequência, cada pro- 
grama requer um tratamento específico. 
Assim, não existem regras práticas que 
garantam a elaboração de programas 
perfeitos, mas, observando-se algumas 
recomendações, será possível torná-los 
bem mais eficientes. 



CRONOMETRAGEM DO BASIC 



Quase todas as linhas de microcom- 
putadores possuem um temporizador in- 
terno que pode ser utilizado para com- 
parar a velocidade de execução de pro- 
gramas. A rotina abaixo, que usaremos 
com exemplos dados mais adiante, per- 
mitirá que você observe as diferenças de 
velocidade exislentes entre as várias for- 
mas de programação em BASIC. Os 



usuários do Apple precisarão recorrer a 
um cronômetro auxiliar de mão para fa- 
zer as comparações, pois os computa- 
dores dessa linha não dispõem de tem- 
porizador interno. 



1 POKE 23672,0: POKE 23673,0 

: POKE 23674,0 
100 P.EM timer 
120 FOR i-1 TO 100 
130 GOSUB 200: NEXT l 
140 LET b-PEEK 23672+256*PEEK 
23673+65536*PEEK 23674 
150 PRINT AT 5,5; [b-4l ) /hl "MIL 
ISEGUNDOS" 
160 STOP 
200 BEM 
500 RETURN 



100 TIME-0 

110 FORK«1T0600:GOSUB200:NEXT 
120 T-TIME+10 

130 CLS:PRINTUSING" TEMPO USADO 

-♦#.•** SEGUNDOS* ;T/60 
140 END 
200 REM 
1000 RETURN 
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_ VELOCIDADE DE EXECU ÇÃO 
EM PROGRAMAS BASIC 
CRONOME TRAGEM DOS 

COM ANDOS 

RELA ÇÃO ENTRE ESTRUTURA " 



MEMORIA E VELOCIDADE 
ARMAZENAGEM DAS VARlAVÊlS 

FUNÇÕES MATE MÃTÍCÃ 5 

MULTIPLICAÇÃO E DIVISÃO 
ORPSNA Ç AO E BUSCA 



T 



140 

15D 
160 
170 
1B0 
200 
1000 



BEM <USE UM CRONOMETRO 
REM PARA MEDIR O TEMPO 
HOME 

PRINT CHR3 (7) 

PRINT : PRINT "INICIO" 

FOR K - 1 TO 500 

GO SUB 200 
NEXT 

PRINT CHRS (.7) 
PRINT : PRINT "FIM" 

no 

REM 
RETURN 



bém na linha 100, devendo ali perma- 
necer, já que faz parte da calibração do 
temporizador interno. 



XT 

120 T-TIMER-170 

130 CLS : PRINT* TEMPO USADO - " ; 
T/60 i "SEGUNDOS" 
140 END 
200 REM 
1000 RETURN 

Em todos os programas, o comando 
REM da linha 200 será substituído, mais 
tarde, pelo nosso teste. No programa do 
Spectrum, esse comando aparece tam- 



— , além de ser de difícil compreensão, 
perde muito na velocidade de execução. 
Ao contrário, quando a disposição das 
rotinas é bem planejada, a execução do 
programa torna-se bem mais rápida. 



Como a estruturação do programa 
desempenha um papel fundamental na 

velocidade de sua execução, convém re- 
capitular aqui algumas regras básicas. 

Todas as sub-rotinas usadas com 
mais frequência devem ser posicionadas 
no início do programa, já que o inter- 
pretador procura cada linha requisita- 
da por um GOSUB a partir do começo 
da listagem. Assim, quanto menor for 
o número da linha de uma sub-rotina, 
mais depressa ela será encontrada pelo 
interpretador. Você pode argumentar 
que um atraso de milissegundos não al- 
tera nada no programa. Mas a econo- 
mia de alguns milissegundos aqui e ali 
acabará fazendo uma boa diferença. 

Existem programas mal elaborados, 
que não passam de um emaranhado de 
comandos GOTO usados indiscrimina- 
damente. Esse tipo de programa — às ve- 
zes chamado de "programa-espaguete" 



MEMÓRIA E VELOCIDADE 



Comumente, os programas mais cur- 
tos são também os mais rápidos. Porém, 
os três objetivos do programador — ve- 
locidade, clareza e economia de memó- 
ria — quase sempre estão cm conflito. 
O uso de vários comandos numa só li- 
nha, por exemplo, economiza memória 
e acelera o programa, mas dificulta sua 
compreensão e eventuais correções. 

Urh programa que trabalha com ve- 
locidade máxima geralmente é mais lon- 
go e utiliza mais memória. A maioria 
das técnicas para se economizar memó- 
ria traz prejuízo para a velocidade. E o 
caso do emprego de sub-rotinas. 
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DICAS PARA ACELERAR SEU BASIC 


Nas matrizes, comece com o 
índice 0 e não com 1. 


n rsi r77n 


Defina as matrizes no inicio 
de cada programa. 


UM JÉJ L&J 'tfi 


Se possível, use variáveis inteiras em 
vez de variáveis de ponto flutuante. 


fffi 


Nos laços FOR. ..NEXT, não coloque uma 
variável depois do NEXT. 




Use variáveis no lugar de números. 




Dê nomes curtos às variáveis. 


SSULáJLáJM 


Coloque as subrotinas de uso mais 
frequente no começo do programa. 




Use laços FOR.. .NEXT no lugar 
de laços do tipo: 

100 LET X-X+l : IF X<20 THEN 
GOTO 100 




Numere as linhas com números 

mais baixos. Comece na linha 10 em vez 

de começar na linha lOOO. 




Use rotinas em código de máquina 
sempre que for possível. Torne-se um 
colecionador de sub-rotinas publicadas. 




Nos programas voltadas para cálculos, 
procure definir uma função que execute 
os cálculos repetitivos. Por exemplo: 
10 DEF FN A(X)-X-(INT(X/360)* 
360) 

20 LET NUMER0"FN A (NUMERO) 
ó bem meinor que: 






10 IF NUMERO>360 THEN LET NUMEH 
0=NUMERO-360: GOTO 10 


S 


Habitue-se a planejar seus programas. 
Além de erros, você evitará comandos 
GOTO e GOSUB desnecessários, que só 
comprometem a velocidade de execução. 




Sub-rotinas economizam memória 
mas diminuem a rapidez do programa. 


^™ ^™ rai ir^n kví 


Remova todos os denominadores 
comuns. Por exemplo, troque: 
10 LET X»Y/100+Z/100 

10 LET X-(Y*Z)/100 




Evite usar comandos GOTO sempre que 
possível. 




Procure utilizar vários comandos na 
mesma linha. Perde se em clareza, 
mas ganha-se em velocidade e economia. 


SSHBIEIW 


Remova todos os espaços em branco e 
comandos REM desnecessários. 




Ao usar um IF...THEN, coloque primeiro 
a condição que mais tende a ser FALSA. 





Elas asseguram uma razoável econo- 
mia de memória mas chamá-las toma 
tempo, o que não agrada aos programa- 
dores que buscam velocidade de execu- 
ção. Como vimos anteriormente, o uso 
de sub-rotinas exige certo cuidado com 
a estruturação do programa. Sem isso, 
é impossível recuperar a velocidade que 
se perde ao chamá-las. 

Uma linha como LET A = VAL"100" 
exemplifica bem a contradição que exis- 
[e entre velocidade e economia de me- 
mória. Essa forma economiza memória, 
sem dúvida, mas, por outro lado, é de 
lenta execução se for comparada à for- 
ma mais comum LET A = 100. 



Saber como as variáveis são armaze- 
nadas na memória pode ser de grande 
utilidade para quem pretende acelerar a 
execução de programas. As variáveis são 
criadas à medida que aparecem no pro- 
gama, sendo possível limpar a região em 
que se situam por meio dos comandos 
RUN ou CLEAR. Na maioria dos ca- 
sos, uma nova variável provoca a am- 
pliação dessa região para cima — o que 
nào se aplica ao Sinclair Spectrum, que 
trabalha com as variáveis de uma ma- 
neira diferente. 

Se criarmos, por exemplo, uma va- 
riável-cadeia e, depois, uma matriz nu- 
mérica, todas as variáveis que se segui- 
rem à matriz precisarão ser deslocadas 
para a parte superior da memória quan- 
do se acrescentar algo à cadeia. 

Observe este programa: 

100 LET TS-"" 

110 DIM A(1000) 

120 LET TS"TS + " ACELERAR" 

No BASIC da maioria dos micros, 
muito tempo de execução seria econo- 
mizado se invertêssemos a ordem das 
duas primeiras iinhas, ou seja, se a ma- 
triz fosse dimensionada antes de se de- 
finir a cadeia. Como está, o programa 
faz com que 5000 bytes sejam desloca- 
dos cada vez que se adiciona a palavra 
"ACELERAR" à variável -ca dei a T$. 
Os usuários do Spectrum não precisam 
se preocupar, pois, como foi dito, esse 
micro trabalha com as variáveis de uma 
maneira diferente, não apresentando es- 
se tipo de problema. 

O uso de variável no lugar de núme- 
ros também assegura uma considerável 
economia de tempo. Essa regra aplica- 
se a todos os micros, menos ao Spec- 
trum. No Apple, por exemplo, cada va- 
riável economiza cerca de cinco a dez 
milissegundos. Pode nào parecer muito, 
mas imagine o que isso significa quan- 
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do se lida com um laço que é executado 
várias vezes. Já no Spectrum ocorre o 
oposto: a execução de um comando 
LET C = 10 + 10 leva três milissegun- 
dos, enquanto a de LET C = D + O 
(onde D = 10) leva 4,2 milissegundos. 



FUNÇÕES MATEMÁTICAS 



Use a rotina apresentada anterior- 
mente — que passaremos a chamar 
"cronometro" — para testar estas duas 
formas de se obter a função potência. 

200 LET 04*4*4*4 



200 LET C-4"4 

É de se esperar que a função potên^ 
cia própria da máquina seja a mais rá- 
pida das duas. No Spectrum, por exem- 
plo, a primeira forma leva seis milisse- 
gundos, e a segunda, 1 14 milissegundos. 
Estamos novamente diante de um caso 
em que a economia de memória (ofere- 
cida pela segunda forma) está em 
flito com a velocidade. 

Algumas vezes, lembramos que, no 
Spectrum, linhas do tipo 



são executadas com maior velocidade 
quando substituídas por 

10 LET Y = Y + (X>Y) - (X<Y) 

O BASIC da linha Sinclair realmen- 
te permite esse tipo de comparação e 
programar assim é, sem dúvida, mais 
elegante. Mas, usando nossa rotina-cro- 
nõmetro, podemos observar que a linha 
dupla é mais rápida que a simples. 

Se você usa outro micro, teste o equi- 
valente em sua máquina. 



Z10 Y=Y+(X<Y)-(X>Y) 

Forneça, em cada caso, valores cabí 
veis para X e Y. 



MULTIPLICAÇÃO E DIVISÃO 



As expressões C = D*0.5 e C = D/2 
executam exatamente o mesmo cálculo, 
mas, como mostram os testes, a multi- 
plicação é mais rápida que a divisão. 

Faça um teste com as sugestões apre- 
sentadas a seguir e tome nota dos resul- 
tados para referências futuras. 



200 LET C-10+10 
200 LET C-D+D (ONDE D-10) 
ZOO LET 010*10 
200 LET 010/10 
200 LET C-10+PI 
200 LET C-SIN 10 
ZOO LET OCOS 10 
ZOO LET OTAN 10 
200 LET C-UAL "10* 
200 LET O10 
ZOO LET OD (ONDE D-10) 
ZOO PRINT AT 21,0j'TESTE" 
ZOO PRINT AT 21,0jAS ÍAS-TESTE) 
200 PP.INT AT 21, Oj 10+1000+500+ 
5.5 

200 PBINT AT 21,0iD+E+F+G (ON- 
DE D-10,E+1000,ETC) 



200 C-10+10 

200 C-D+D (onde D-10) 

200 010*10 

200 C-10/10 

200 C-10+PI 

200 C-SIN(IO) 

200 OCOS (10) 

200 OTAN (10) 

200 OVAL ("10") 

200 C-10 

200 OD (onde D-10) 
200 PRJNT"TESTE" 

200 PBINT AS (onde A$-"TESTE") 

200 PHINT 10+1000+500+5.5 

200 PHINT D+E+F+G (onde D-10.E 

=1000.etc) 



200 C-10+10 

Z00 OD+D (ONDE D=10) 

200 010*10 

200 C-10/10 

200 C-10+PI 

200 C-SINU0) 

200 C-COSU0) 

200 C-TAN(IO) 

ZOO OVAL{"10") 

200 C-10 

200 C-D (ONDE D-10) 

200 PRINT-TESTE" 

200 PRINTAS (ONDE A3-"TESTE") 

200 PHINT 10+1000+500+5.5 

200 PBINT D+E+F+G (ONDE D-10,E 

-1000, ETC) 



ZOO C-10+10 

ZOO C-D+D (ONDE D-10) 

200 010*10 

200 C-10/10 

ZOO C-10+PI 

ZOO C-SINUO) 

200 C-COS(IO) 

200 OTAN{10) 

200 OVALC10") 

200 C-10 

200 C-D {ONDE D-10) 

200 PBINT 6260, "TESTE" 

ZOO PBINT «260, AS (A$-"TESTE") 



200 PBINT «260.10+1000+500+5.5 
200 PBINT 6Z60.D+E+F+Í3 (ONDE D 
-10, E-1000, ETC) 



ORDENAÇÃO E BUSCA 



Como as técnicas de ordenação já fo- 
ram tema de artigos anteriores, não en- 
traremos aqui em maiores detalhes. Co- 
mo vimos, a ordenação tipo Shell-Metz- 
ner é a mais indicada quando se trata de 
manipular um número de itens superior 
a cem. Esse tipo de ordenação tem a ca- 
racterística de ser tanto mais rápido 
quanto maior for o número de itens. Po- 
rém, como era de se esperar, também 
nesse caso a velocidade envolve certo sa- 
crifício de memória. 

Ao contrário do que muitos pensam, 
ordenação e busca não são a mesma coi- 
sa. Buscar é acessar um dado (ou um 
conjunto de dados) o mais rapidamen- 
te possível; ordenar é colocar vários da- 
dos em ordem. Suponhamos que você 
precise encontrar o telefone de certa pes- 
soa em uma lista armazenada no com- 
putador. Ora, não haveria vantagem ne- 
nhuma se o tempo gasto pelo computa- 
dor para encontrar tal número fosse 
maior que o tempo necessário para 
achá-lo numa lista telefónica. Por isso, 
quando se trata de ordenar ou buscar, 
sempre se procura o método mais 
rápido. 

A busca serial (listada a seguir) simu- 
la o procedimento de uma pessoa que 
procura determinado dado analisando 
item por item de uma lista. 



10 DATA "ANTI LO PE" , "CACHORRO" 
. "ELEFANTE" , "GOLFINHO" . "JUMEN 
TO" , "LEOPABDO" , "MACACO" . "PERI 
QUITO" , "RAPOSA" , "SAPO" 
20 HESTOBE 10: DIM BSU0.9) 
30 CLS : FOR 1-1 TO 10: HEAD 
BS(i): PBINT AT i,5;B$(i): 
NEXT 1 

40 POKE 23658.8: INPUT "Qual 

50 FOB X-l TO 10 

60 IF BS(X, TO LEN AS) =A3 

THEN PBINT FLASH 0;AT X.13; 

FLASH 1|* ACHEI": GOTO 40 
70 NEXT X 



fffí 



10 REM <busca aerial) 
20 DIM B3 (10) 

30 CLS:FORI-1T010:READBS(I) :L0C 
ATE0,I+3:PRINTBS(I) : NEXT 
40 LOCATE0,17:INPUT"Qual a anim 
ai"; AS 

50 FOBX-1TO10 

60 IF BS(X)-AS THEN LOCATE13 , X+ 
3:PRINT"« ACHEI":X-1Q 
70 NEXT:GOTO40 




BO DATA ANTÍLOPE , CACHORRO . ELE FA 
NTE , GOLFINHO , JUMENTO , LEOPARDO . M 
ACACO , PERIQUITO, RAPOSA , SAPO 



10 R EM <BUSCA SERIAL. 1 

20 DIM BS(10) 

30 HOME : FOR I ■ 1 TO 10 

35 READ BS(I): PRINT TAB ( 11) 

;BS(D 

40 NEXT : PRINT : PRINT 

45 INPUT "QUAL O ANIMAL ?";AS 

50 FOR X - 1 TO 10 

60 IF BS(X) = AS THEN VTAB (X 

) : PRINT "ACHEI »" :X = 10 

70 NEXT : UTAB (13) : GOTO 45 

80 DATA ANTÍLOPE. CACHORRO. ELE 

F ANTE .GOLFINHO , JUMENTO , LEOPARDO 

■MACACO , PERIQUITO, BAPOS A. SAPO 



D 



10 REM BUSCA SERIAL 
20 DIM BS(10) 

30 CLS:FOR 1-1 TO 10 : READ B3(I) 
:PHINT #3 3+1*32, BS(I) ■ íNEXT 
40 PRINT «417,STRINOSOO,32) ;ST 
RING3Í30.B) ; :INPUT"QUAL O ANIMA 
L " ; A$ 

50 FOR X-l TO 10 

60 IF BS<X)-AS THEN PRINT *46+X 
"32.CHRSU91) ; "ACHEI" i :X-10 
70 NEXT ; GOTO 40 

BO DATA ANTÍLOPE, CACHORRO. ELEFA 
NTE , GOLFINHO . JUMENTO , LEOPABDO , M 
ACACO . PERIQUITO , RAPOSA, SAPO 

A rotina de busca binária (listada a 
seguir), um pouco mais difícil de se pro- 
gramar que a de busca serial, é bem mais 
rápida que esta. A diferença de veloci- 
dade entre ambas torna-se maior à me- 
dida que a quantidade de dados da lista 
aumenta. 

A busca binária é mais rápida que a 
serial porque não utiliza o processo de 
inspeção item por item. Ela requer que 
todos os dados tenham sido previamente 
colocados em ordem alfabética ou nu- 
mérica. Cumprido esse pré-requisito, o 
computador analisa o elemento central 
da lista, para definir se se orientará pa- 
ra sua metade superior ou para sua me- 
tade inferior. 

A metade escolhida será novamente 
dividida ao meio e, a partir da análise 
desse novo elemento central, outra me- 
tade será escolhida e igualmente dividi- 
da ao meio. 

O processo se repete até que o item 
desejado seja encontrado, ou, caso con- 
trário, até que não haja mais nenhuma 
possibilidade de dividir a lista ao meio. 

No início, o computador não procu- 
ra por itens que sejam totalmente equi- 
valentes, mas apenas compara a primei- 
ra letra, verificando se, na ordem alfa- 
bética, ela vem antes ou depois da do 
I item desejado. 



10 CLS : RESTORE 
20 LET t-10: LET b-1 
30 DIM nS(10,10) 
40 FOR C-l TO 10 
50 READ n$<c) 
60 NEXT c 

70 INPUT "NOME DO ANIMAL "ta3 
75 LET a$-a$+" " { TO 

10-LEN aS) 
80 PAUSE 50 
9S CLS 

100 IF nS(t)-aS THEN PRINT nS 
(t) ,t: GOTO 200 

110 IF nSÍB) -a$ THEN PRINT nS 
(b) ,b: GOTO 200 
120 LET p-INT <0.5+(t+b)/2) 
130 IF nS(p)-aS THEN PRINT nS 
(p) ,p: GOTO 200 

140 IF nS<P)>a$ THEN LET t-p 
150 IF nS(p)<aS THEN LET b-p 
160 IF t-b-1 THEN PRINT " N 
AO ACHEI* : GOTO 200 
170 GOTO 100 

200 IF INKEYS-"" THEN GOTO 

200 
210 RUN 

580 DATA "Anti lope" , "Cachorro" 
, "Elefante" ■ "Golfinho" , " Jument 
o" , "Leopardo" , "Macaco" , "Periqu 
ito" , "Raposa" , "Sapo" 



10 CLS 
20 T=10:B-1 
30 DIM NS(IO) 
40 FOR C-l TO 10 
50 READ NS(C) 
60 NEXT 

70 INPUT"nome do animal" ;AS 
80 TIME-0 

90 IF TIME<50 THEN 90 ELSE CLS 
100 IF NS(T)-A3 THEN PRINTNS (T) 
,T:GOT0200 

110 IF NS(B)"AS THEN PRINTNS (B) 
,B :GOTO200 

120 P-INT(.5+(T+B)/2) 

130 IF NS(P)"A3 THEN PRINTNS (P) 

, P:GOT0200 

140 IF N$(P)>AS THEN T-P 
150 IF NSÍPXAS THEN B-P 
160 IF T-B-1 THEN PRINT" nâo 
achei":GOTO200 
170 GOTO 100 

200 IF INKEY3-" " THEN 200 
210 RUN 

580 DATA ANTÍLOPE, CACHORRO. ELEF 
ANTE, GOLFINHO , JUMENTO , LEOPARDO . 
MACACO, PERIQUITO , RAPOSA , SAPO 




10 HOME 

20 T - 10:B - 1 

30 DIM N3C10) 

40 FOR C - 1 TO 10 

50 READ NS (C) 

60 NEXT 

70 INPUT "QUAL O ANIMAL ?" ;AS 




80 FOR TT - 0 TO 200; NEXT 

100 IF NS (T) - AS THEN PRINT 

NSCT) ,T: GOTO 200 

110 IF NS(B) - AS THEN PRINT 

NS(B) ,B; GOTO 200 

120 P - INT (.5 + (T + B) / 2) 

130 IF N3(P) - AS THEN PRINT 
N3(P) .P: GOTO 200 
140 IF N3(P) > A3 THEN T-P 
150 IF NS(P) < A3 THEN B-P 
160 IF T - B - 1 THEN PRINT * 

NAO ACHEI" : GOTO 200 
170 OOTO 100 

200 GET ZS: IF ZS - "" THEN 20 



ANTÍLOPE, CACHORRO, E 





D 



10 CLS 

20 T-10:B-1 

30 DIU NSUO) 

40 FOR C-l TO 10 

50 READ HS(C) 

60 NEXT 

70 INPUT* NOME DO ANIMAL " lAS 
60 TIMER-0 

90 IF TIMER<50 THEN 90 ELSE CLS 
100 IF N3(T)-AS THEN PRINT N9CT 
) ,T:QOTO 200 

110 IF N3(B)-AS THEN PRINT NS (B 



) ,B:OOTO 200 

120 P-INT(.5+(T+B)/2) 

130 IF NS(P)-AS THEN PRINT NS(P 

) ,P:GOTO 200 

140 IF N3ÍP)>AS THEN T-P 
150 IF N$(P)<A3 THEN B-P 
160 IF T-B-l THEN PRINT" NAO 

ACHEI':OOTO 200 
170 O OTO 100 

200 IF 1NKEYS-" " THEN 200 
210 RUN 

580 DATA ANTÍLOPE, CACHORRO, ELEF 
ANTE . GOLFINHO , JUMENTO , LE OO PARDO 
, MACACO , PERIQUITO , RAPOSA , SAPO 



Como foi dito, não existem regras 
práticas para a obtenção de maior velo- 
cidade de execução em nossos progra- 
mas. Os melhores resultados são conse- 
guidos dedicando-se atenção especial a 
detalhes que, isolados, parecem ser insig- 
nificantes, mas que, juntos, fazem a di- 
ferença. Alguns desses detalhes são lem- 
brados no quadro da página 932. Ob- 
servando as recomendações ali contidas, 
você certamente obterá alguma econo- 
mia de tempo. Mas não se esqueça de 
que, muitas vezes, a rapidez de um pro- 
grama procede de uma descoberta indi- 
vidual, resultante, até mesmo, de um 
simples acaso. 
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ISTENTE 




Se você já dispõe de um acionador de 
disquetes mas tem preguiça 
de aprender os comandos do sistema 
operacional (DOS), utilize um 
programa assistente e durma tranquilo. 



Qualquer que seja a aplicação a que 
se destine o seu microcomputador, con- 
vém adquirir um acionador de disque- 
tes. Desse modo, você poderá dispor de 
um sistema bem mais confiável e rápi- 
do do que as fitas cassete. 



Do ponto de vista operacional, con- 
tudo, esse sistema apresenta uma peque- 
na desvantagem. Com ele, o usuário é 
obrigado a aprender um número adicio- 
nai de comandos, específicos para ope- 
rações com disquetes. Tais comandos 
fazem parte do chamado Sistema Ope- 
racional de Discos (DOS, sigla decorren- 
te de seu nome em inglês). Eles funcio- 
nam mais ou menos da mesma maneira 
nos diferentes modelos de computador, 
variando apenas a forma com que são 
escritos, e a sua sintaxe de uso. 

As funções básicas de um DOS são: 

- examinar o conteúdo de um disquete 
(catálogo); 

- copiar um arquivo de um disquete pa- 
ra outro ou fazer uma cópia com no- 
me diferente no mesmo disquete; 

- mudar o nome de um arquivo; 

- apagar um arquivo do disquete; 

- listar um arquivo na tela do computa- 
dor ou na impressora; 

- examinar qual o espaço que está dis- 



ponível no disquete; 
proteger ou desproteger um arquivo 
contra apagamento ou modificação; 
executar programas em BASIC ou em 
linguagem de máquina etc. 

Nem sempre, contudo, o usuário es- 
tá disposto a aprender em detalhe todas 
essas funções. De certo modo, estas ca- 
racterizam uma "linguagem" de coman- 
dos, que em alguns computadores é par- 
te das instruções do BASIC, enquanto 
em outros é um sistema totalmente se- 
parado, do qual o interpretador BASIC 
é apenas um programa a mais. 

A listagem apresentada aqui serve co- 
mo "assistente" para a operação dos vá- 
rios comandos do DOS; ela dispensa a 
necessidade de aprendê-los em detalhe, 
Seu funcionamento se apóia em um 
"cardápio" de opções, mostrado na te- 
la assim que é executado. Escolhendo 
uma das opções apresentadas, o progra- 
ma automaticamente seleciona e execu- 
ta o comando correspondente do DOS 
Em muitos casos, será necessário entrar 
informações adicionais, tal como o no- 
me de um arquivo. Possíveis erros co 
metidos pelo usuário, como tentar apa 
gar um arquivo protegido, serão detec 
tados pelo programa, que exibirá na te 



la a mensagem correspondente. 

Neste artigo abordaremos versões pa- 
ra os computadores das linhas TRS-80, 
TRS-Color, MSX, Apple II e TK-2000. 
Os micros da linha Sinclair também po- 
dem ser conectados a disquetes, ou "mi- 
crodrives", fitas em alça sem fim, de 
comportamento semelhante aos disque- 
tes; mas como estes periféricos não são 
encontrados no país, deixamos de apre- 
sentar uma versão para eles. 

Digite os programas a seguir e arma- 
zene-os em um disquete. Para testar as 
opções do menu sem correr o risco de 
perder algo importante, copie no disque- 
te alguns arquivos e programas de que 
não vai precisar. 



10 0N ERROR GOTO 960 

20 GOSUB 950 

30 PRINT : PRINT TAB(10) 

TENTE D.O.S." 

35 PRINT 
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TECLA PARA CONTINUAR" 
920 IF INKEYS-"" THEN 920 
925 RETURN 
950 CLS : RETURN 
960 E-ERR 

965 IF E-51 THEN PRINT "* 
O INTERNO* : GOTO 995 
970 IF E-53 THEN PRINT "**• ARO. 
UIVO INEXISTENTE" : OOTO 995 
990 IF E-56 THEN PRINT "*■" NOM 
E ILEGAL DE ARQUIVO" :QOTO 995 
992 PRINT "•** ERRO DE SINTAXE" 
995 GOSUB 910:RUN 



10 ON ERROR OOTO 960 
20 GOSUB 950 

30 PRINT : PRINT TAB (10) ; "ASSIS 
TENTE D.O.S." 
35 PRINT 

40 PRINT * — — — ...... 

50 PRINT "<1> LISTAR CONTEÚDO 
DO DISCO" 

60 PRINT "<2> APAGAR UM ARQUIV 
O DO DI8CO" 

70 PRINT "<3> MUDAR NOME DE UM 
ARQUIVO" 

60 PRINT "<4> EXECUTAR UM PROG 
RAMA 

90 PRINT "<5> FIM DO PROGRAMA 
190 PRINT *-——-—--——- 

200 PRINT : PRINT "ESCOLHA UMA OP 
CA0:"| 

205 XS-INKEY$:IF XS-"" THEN 205 
210 OP-VAL(XS) 

230 ON OP OOTO 250, 300, 350, 
400, 900 
240 GOTO 205 
250 GOSUB 950 

255 PRINT TAB (10) s "C A T A L O 
O 0" 

260 PRINT :DXR 

270 GOSUB 910:RUN 

300 PRINT: INPUT "NOME DO ARQUIV 

0 PARA APAGAR' |NS 

310 Kl LL Hf 

320 PRINT : PRINT "ARQUIVO "iNS;" 

AFAGADO . " 

330 GOSUB 910:RUN 

350 PRINT:INPUT "NOME DO ARQUIV 

O A SER MUDADO* : N? 

360 INPUT 'NOVO NOME PARA O ARQ 

UIVO';N2S 

370 NAME NS AS N2S 

380 PRINT: PRINT N$;" MUDADO PAR 

A ";N2$ 

390 GOSUB 910:RUN 

400 PRINT : INPUT "NOME DO PROORA 



410 RUN NS 
900 GOSUB 9S0 
905 END 

910 PRINT : PRINT : PRINT 
915 PRINT "PRESSIONE QUALQUER 
TECLA PARA CONTINUAR" 
920 IF INKEYS-"" THEN 920 
925 RETURN 
950 CLS: RETURN 
960 E-ERR 

965 IF E-51 THEN PRINT •*** ERR 
O INTERNO" :OOTO 995 
970 IF E-53 THEN PRINT "**■ ARQ 
UIVO INEXISTENTE": GOTO 995 
990 IF E-56 THEN PRINT **** NOM 
E ILEGAL DE ARQUIVO" :GOTO 995 
992 PRINT "«"■ ERRO DE SINTAXE* 
995 GOSUB 910: RUN 



310 KILL NS 

320 PRINT : PRINT "Arquivo ":NS;" 
apagado . " 
330 GOSUB 910: RUN 
350 PRINT:INPUT 'Nome do arquiv 
o a ser mudado" ; NS 
360 INPUT "Novo nomi 
uivo";N25 
370 NAME NS AS N28 
380 PRINT : PRINT NS|' 
a ";N2S 

390'GOSUB 910:RUN 

400 PRINT:INPUT "Nome do progra 



' para o arq 



mudado par 



10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT : PRINT TAB(IO) 

TENTE D.O.S." 

35 PRINT 

40 PRINT " — — - — — 



ma 



;NS 



Listar conteúdo 
Apagar um arquiv 
Mudar nome de um 
Executar um prog 
FIM DO PROGRAMA 



MA -;NS 



50 PRINT "<1> 

do dlaco* 

60 PRINT "<2> 

o do d laco" 

70 PRINT "<3> 

arquivo" 

80 PRINT "<4> 

rama" 

90 PRINT "<5> 
190 PRINT " — 



200 PRINT : PRINT "Escolha uma Dp 
Cio : " : 

205 XS-INKElS:IF XS-"" THEN 205 
210 OP-VAL(XS) 

230 ON OP GOTO 250. 300, 350, 
400, 900 
240 GOTO 205 
250 GOSUB 950 

255 PRINT TABU0)|"C A T-A L 0 
O 0" 

260 PRINT : FILES 

270 GOSUB 910:RUN 

300 PRINT:INPUT "Nome do arquiv 

o para apagar" ;N3 



410 RUN NS 
900 GOSUB 950 
905 END 

910 PRINT : PRINT : PRINT 

915 PRINT "PRESSIONE QUALQUER 

TECLA PARA CONTINUAR" 

920 IF INKEYS-"" THEN 920 

925 RETURN 

950 CLS: RETURN 

960 E-ERR 

965 IF E-51 THEN PRINT "•«* ERR 
O INTERNO" : GOTO 995 
970 IF E-53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE": GOTO 995 
990 IF E-56 THEN PRINT "•*" NOM 
E ILEGAL DE ARQUIVO" : OOTO 995 
992 PRINT "■*• ERRO DE SINTAXE" 
995 GOSUB 910: RUN 



QEElII 



10 ON ERR GOTO 960 

15 LET D3-CHR3(4) 

20 GOSUB 950 

30 PRINT : PRINT TAB{10) 

TENTE D.O.fl." 

35 PRINT 

40 PRINT 



22 APLICAÇÕES 22 




200 PRINT :PEiINT "ESCOLHA UMA OP 

CAO : - ; 

205 GET XS 

210 LET OP-VAL<X3) 

230 ON OP GOTO 250, 300, 350, 

400, 450, 500. 550, 900 

240 GOTO 205 

250 GOSUB 950 

255 PBINT TAB(10) ;"C A T A L O 
O O" 

260 PRINT : PRINT D$ ; "CATALOG" 

270 GOSUB 910:RUN 

300 PRINT : INPUT "NOME DO ARQUIV 

O PARA APAGAR" ; NS 

310 PRINT D3 i "DELETE "sNS 

320 PRINTrPRINT "ARQUIVO " i MS i " 

APAGADO . " 



330 GOSUB 910:RUN 
350 PRINT : INPUT "NOME DO ARQUIV 
O A SER MUDADE" ;NS 
360 INPUT "NOVO NOME PARA O Afi(, 
UIVO" ;N2S 

370 PRINT D3 ; "RENAME 
";N$;","N2$ 

380 PRINT: PRINT NS ; " MUDADO PAR 
A ";N2S 

390 GOSUB 910:RUN 

400 PRINT: INPUT "NOME DO PROGRA 



MA 



410 PRINT DS;"RUN ";NS 

450 PRINT:INPUT "NOME DO ARQUIV 

O PARA PROTEGER ";N3 

460 PRINT DS;"LOCK " iN3 

470 PRINT: PRINT "ARQUIVO ";NS;" 

PROTEGIDO. " 

480 GOSUB 910:RUN 

500 PRINT:INPUT "NOME DO ARQUIV 

O PARA DESPROTEGER " ;NS 

510 PRINT D3;"UNLOCK ";NS 

520 PRINT : PRINT "ARQUIVO ";N3;" 



DESPROTEGIDO." 

530 GOSUB 910:RUN 

550 PRINT:INPUT "NOME DO ARQUIV 

O PARA VERIFICAR " ;NS 

560 PRINT D3:"VERIFY ";N$ 

570 PRINT : PRINT "ARQUIVO ":N3i" 

CORRETO . " 

580 GOSUB 910:RUN 

900 GOSUB 950 

905 END 

910 PRINT: PRINT: PRINT 

915 PRINT "PRESSIONE RETURN 

PARA CONTINUAR" 
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920 GET KS 

925 RETURN 

950 HOME : RETURN 

960 LET E-PEEK (222) 

965 IF E-8 THEN PRINT '*** ERRO 

DE Z/S" :GOTO 995 

970 IF E-6 THEN PRINT "*** ARQU 

VO INEXISTENTE" : GOTO 995 

970 IF E = 10 THEN PRINT ARQ 

UIVO PROTEGIDO" : GOTO 995 

990 IF E=13 THEN PRINT "*** TIP 

O ILEGAL DE ARQUIVO" : GOTO 995 

992 IF E-ll THEN PRINT "*** ERR 

O DE SINTAXE" 

995 GOSUB 910:RUN 



COMO FUNCIONA 



As linhas 10 a 240 mostram o menu 
na tela. Ele varia conforme o modelo do 
computador, pois nem todas as suas 
funções são iguais, ou acessíveis por 
meio de um programa. 

A linha 230 (ON...GOTO) desvia o 
programa para o trecho corresponden- 
te a cada função. O comando ON ERR 
GOTO logo na primeira linha serve pa- 
ra detectar erros de processamento de 
um comando do DOS. Caso isso acon- 
teça, ele desvia o programa para o tre- 
cho em que será mostrada uma mensa- 
gem de erro (linha 960 em diante). 

Após acionar a função do DOS que 
foi solicitada, o programa se auto-exe- 
cuta novamente, mostrando a tela de 
opções. A única exceção, em todos os 
microcomputadores, acontece quando 
se solicita a execução de um outro pro- 
grama: não há retorno automático ao 
menu inicial, e você deve executá-lo 
mais uma vez, se quiser. 

As linhas 910 e 950 marcam o início 
de duas sub- rotinas usadas repetidamen- 
te ao longo do programa. A primeira 
(910) serve para colocar uma mensagem 
no vídeo, avisando que o usuário deve 
pressionar a tecla <RETURN> ou 
<ENTER> para limpar a tela e voltar 
ao menu principal (nos micros das linhas 
MSX, TRS-80 e TRS-Color, pode-se 
pressionar qualquer tecla). 

A sub-rotina na linha 950, por sua 
vez, é usada apenas para limpar a tela; 
ela foi colocada aí para facilitar a con- 
versão do programa para outros micros. 
Assim, em vez de ter de alterar todas as 
linhas do programa onde ocorre um 
CLS, ou um HOME (e são muitas), é 
mais fácil modificar apenas uma. 

Q 

Os micros da linha TRS-Color não 
têm um sistema operacional separado, 
■como é o caso dos modelos das linhas 
I TRS-80 e MSX. Ao se inserir o conec- 



tor do acionador de disquetes na porta 
de cartuchos da máquina, o BASIC ar- 
mazenado na ROM do computador fi- 
ca apto para usar os comandos exclusi- 
vos para a operação do disquete. Esses 
comandos são poucos, em contraste, 
mais uma vez, com o TRS-80. As ins- 
truções principais — de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 
retamente do disco (RUN) — .contudo, 
são idênticas às do TRS-80; por isso os 
programas para ambas as linhas são si- 
milares. A única diferença diz respeito 
ao comando usado para listar o catálo- 
go do disquete (D IR). 

Q 

Os micros da linha TRS-80 contam 
com um sistema operacional separado, 
que pode ser invocado fora do BASIC. 
Esse sistema é armazenado nas trilhas 
do meio do disquete, e é carregado au- 
tomaticamente toda vez que o compu- 
tador é inicializado. Entretanto, o BA- 
SIC de disco tem alguns comandos se- 
melhantes, em operação, aos comandos 
do DOS. Embora em pequeno número, 
esses comandos são a base do funciona- 
mento do programa aqui apresentado. 
Os principais são os de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 
retamente do disco (RUN). Eles são 
idênticos aos do TRS-Color; por isso os 
programas para ambas as linhas são si- 
milares. A única diferença diz respeito 
à instrução usada para listar o catálogo 
ido disquete (D1R) no TRS-Color. No 
TRS-80 é usado o comando genérico 
CMD, que dá acesso direto, a partir do 
BASIC, a várias funções do DOS. Para 
obter o catálogo, por exemplo, usa-se 
CMD "D:0" ou CMD "D:l", depen- 
dendo do acionador em que está o dis- 
quete. Note que o número do acionador 
é perguntado peio programa. 

Como no caso anterior, os micros da 
linha MSX têm um sistema operacional 
separado, que pode ser invocado fora do 
BASIC. Armazenado nas trilhas iniciais 
do disquete, esse sistema é carregado au- 
tomaticamente toda vez que o compu- 
tador é inicializado. Entretanto, o BA- 
SIC de disco conta com algumas instru- 
ções semelhantes, em operação, aos co- 
mandos do DOS. Essas instruções for- 
mam a base do funcionamento do pro- 
grama aqui apresentado. Os comandos 
principais são os de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 



retamente do disco (RUN). Eles são 
idênticos aos do TRS-80 e do TRS- 
Color; por isso os programas para am- 
bas as linhas são similares. A única di- 
ferença refere-se ao comando que lista 
o catalogo do disquete (DIR no TRS- 
Color, CMD no TRS-80). No MSX, es- 
se comando se chama FDLES, e,em ope- 
ração, é equivalente à instrução DIR do 
seu sistema operacional. Os acionado- 
res de disquetes podem ser chamados de 
A ou B. Note que o programa pergunta 
o nome do acionador. O programa uti- 
liza todos os comandos referidos. 

GEB2 

Assim como os microcomputadores 
da linha TRS-Color, os modelos das li- 
nhas Apple e TK-2000 não dispõem de 
um sistema operacional de discos sepa- 
rado do BASIC. Ao ser utilizado com 
disquete, o interpretador de ambas as 
máquinas passa automaticamente a ter 
acesso aos comandos específicos neces- 
sários à sua operação. 

Entretanto, há um pequeno proble- 
ma: os comandos básicos, como RUN, 
DELETE, RENAME, LOCK, UN- 
LOCK, VERIFY e CATALOG, só res- 
pondem quando usados de modo dire- 
to (isto é, fora de um programa). Para 
executámos a partir de um programa, é 
necessário colocar a cadeia de coman- 
dos dentro de um PRINT, o qual deve 
transmitir antes o caractere ASCII 4; só 
agindo |assim a | manobra surtirá efeito. 

Isso é explorado pelo programa, que, 
aliás, é o mais extenso de todos, em vir- 
tude da maior flexibilidade do Apple pa- 
ra explorar comandos do DOS a partir 
de urTi programa em BASIC. 



LIMITAÇÕES 



O programa apresentado atinge seu 
principal objetivo, pois, de falo, per- 
mite ao usuário operar com disquetes 
sem conhecer os comandos adicionais 
específicos. Porém, como todo progra- 
ma que tenta substituir uma linguagem 
de comandos por um sistema de esco- 
lha por cardápios, o nosso "assistente" 
tem algumas limitações. Em outras pa- 
lavras, da forma como está, ele não é 
capaz de explorar todas as possibilida- 
des de uso dos comandos do DOS. Por 
exemplo, nos micros da linha MSX, ele 
não usa os caracteres ? e * para listar 
os arquivos de um determinado tipo, 
presentes no catálogo. 

Se você conhece bem os comandos do 
DOS do seu micro, nào será difícil mo- 
dificar o programa apresentado, am- 
pliando suas funções e utilidade. 
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«COS E PRÉMIOS 
AVALANCHE 



Precisamos de incentivos e prémios 
- como bolo e limonada - 
para ir em frente em nossa aventura. 
Mas não relaxe: as serpentes assassinas 
estão sempre à espera de um descuido. 

Depois de montado, o cenário requer 
apenas algumas modificações para se 
adaptar aos diferentes níveis de dificul- 
dade. No segundo nível, o grande pro- 
blema de Willie consiste nos buracos 
existentes ao longo da encosta. Para 
desenhá-los, colocam-se blocos gráficos 
da cor do céu sobre o perfil da monta- 
nha. As cobras surgem apenas a partir 
do terceiro nível de dificuldade. A roti- 
na que as movimenta será incorporada 
ao programa mais tarde. 




10 REM 
20 REM 
30 REM 
4 0 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 HEM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 REM 
330 REM 
340 REM 



or<j 58455 

elb ld a, (57344) 

ld hl, 57272 

ld b.d 

i nc b 

ld de, 8 

ab adà hl.de 

1,191 



■ 


ROTINAS ENCARREGADAS 


ASSASSINAS 




DE FORNECER OS PRÉMIOS ■ 


ROTINA DE IMPRESSÃO 


■ 


NÍVEIS DE DIFICULDADE 


DAS FIGURAS 


■ 


BURACOS E MAIS BURACOS ■ 


COMO TESTAR 


■ 


DESENHO DAS COBRAS 


0 PROGRAMA 



ld 



, 58 



call print 
ld a, (57344) 
cp 0 
jr z,ed 
push aC 
call hl s 
pop af 
cp 1 
jr z.ed 
call snp 
ed ret 

hla ld hl, 457 
call hlp 
ld hl. 401 
call hlp 

ld hl, 314 
call hlp 
ret 

hlp ld b,4 
hlq push bc 
ld bc, 15616 




Illlllllll 
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Illlllllll 



call print 
ld de. 32 
add hl.de 

djnz hlq 
ret 

snp ld hl, 457 
call Bnq 
ld hl. 401 
call anq 
ld hl, 314 
call anq 
ret 

ld^bc. 57232 
puflh af 



ld 



,43 



ld de. 32 
add hl.de 
pop af 
dec a 
jr nz.snr 
ret 

print org 58217 



O conteúdo do endereço 57344 é co- 
locado no acumulador. Esta posição de 
memória será utilizada para armazenar 
o nível de dificuldade em vigor. O par 
de registros HL recebe a seguir o ende- 
reço inicial dos padrões dos prémios na 
tabela de dados. O nível de dificuldade 
é transferido do acumulador para o re- 
gistro B, aumentando, então, em 
unidade. O par DE recebe o 
e é somado ao par HL. 

O laço rotulado com ad prossegue 
adicionando 8 ao apontador HL até que 
o conteúdo de B se torne zero. Lembre- 
se de que a instrução djnz opera sobre 
o registro B: subtrai uma unidade e sal- 
ta se o conteúdo deste não tiver chega- 
do a zero. Tal processo movimenta o 
apontadordo padrão do prémio — opar 
de registro HL — pela tabela, até que 
ele aponte para o início do bloco gráfi- 
co adequado ao nível de dificuldade 
gente. Cada bloco é um quadrado de o: 
to por oito pontos, ocupando, assim, o: 
to bytes na tabela. 

O resultado dessas adições repetidas 
fica no par de registros HL. Contudo, 
a sub-rotina print precisa dele no par BC 
para imprimir o bloco correspondente. 
A maneira mais fácil e rápida de pro- 
mover a transferência consiste em guar- 
dar o valor de HL na pilha, recuperan- 
do-o em seguida em BC. 

A cor do caractere do prémio é codi- 
ficada pelo número 58, colocado em A. 
Depois disso, o programa chama a sub- 
rotina print, que desenha o bloco na cor 
apropriada. Essa rotina foi fornecida no 
primeiro artigo da série Avalanche (pá- 
| gina 748). 



o nível de dificuldade 



O conteúdo da posição de memória 
usada para guardar o nível de dificulda- 
de volta para o acumulador. O compu- 
tador verifica inicialmente se ele é igual 
a zero. Em caso afirmativo, a instrução 
jr z,ed salta para o final da rotina, e 
a instrução ret provoca o retorno da 
mesma. 

Se o nível vigente for diferente de ze- 
ro, o processador preserva seu número, 
guardando-o na pilha. A sub-rotina hls, 
que desenha os buracos ao longo da en- 
costa, é chamada a seguir. O uivei de di 
ficuldade é então recuperado da pilha ( 
comparado a L Nesse nível, temos vá- 
rios buracos mas não existe nenhuma 
serpente dentro deles. Assim, se A con- 
tiver I, a instrução cp I resulta em zero 
o que ativa o indicador de zeros. A ins- 
trução jr z,ed salta, então, para o final 
da rotina, onde rei provoca o retorno. 

Se o nível for maior que 1, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, é chamada. Depois disso, o 
programa termina. 

Quando a rotina principal de controle 
estiver na memória, o processador retor- 
nará a ela. Por enquanto, ele retorna ao 
BASIC. 



A sub-rotina seguinte tem a função 
de cavar buracos ao longo da encosta. 
Ela começa com o rótulo hls, que é cha- 
mado pela rotina principal quando é 
preciso acrescentar os buracos ao cená- 
rio. Três pequenos módulos, com duas 
instruções cada um, compõem essa sub- 
rotina. Eles começam com comandos do 
tipo ld hl, que colocam no par HL o en- 
dereço da tela correspondente à posição 
de impressão do topo de cada buraco. 
Após cada instrução desse tipo, a roti- 
na hlp é chamada para colocar os blo- 
cos que formam o buraco sobre o dese- 
nho da encosta, feito pelos programas 
dados no último artigo. 

A sub-rotina contém três módulos 
porque deve desenhar três buracos, ca- 
da um em uma posição diferente colo- 
cada em HL. Todos eles são feitos da 
mesma maneira, pela sub-rotina hlp. 



Como cada buraco tem quatro blo- 
cos de profundidade, o número 4 é co- 
locado no registro B e guardado tempo- 
rariamente na pilha. O par BC recebe, 



então, o endereço de um espaço em 
branco. Na realidade, este é um byte da 
tabela de códigos para o alto da tela. 

O código da cor do céu — 45 — vai 
para o acumulador e a sub-rotina print 
é novamente chamada. Assim, para co- 
locar o primeiro bloco cor do céu sobre 
o perfil da encosta, o computador tira 
a primeira "pá de terra" do local onde 
ficará o buraco. 

Colocando 32 em DE e somando es- 
se valor a HL, fazemos com que este par 
aponte para o endereço da posição ime- 
diatamente inferior. O contador é recu- 
perado da pilha e a instrução djnz sub- 
trai uma unidade dele, saltando em di- 
reção ao rótulo hlq, se B ainda não for 
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zero. O processador executa esse laço 
quatro vezes, imprimindo mais um blo- 
co cor do céu — ou tirando mais uma 
pá de terra — a cada volta. 



O resto do programa desenha as co- 
bras. As sete primeiras instruções são 
parecidas com as que iniciam a rotina 
dos buracos. Elas colocam no par HL 
a posição de impressão de cada cobra, 
chamando em seguida a sub-rotina que 
desenha a serpente. 

Essa rotina também se assemelha 
àquela que desenha os buracos — afinal, 



as cobras devem caber dentro deles. 

Desta vez, o contador ficará no acu- 
mulador, pois precisaremos controlar o 
apontador da tabela de padrões. No ca- 
so dos buracos, esse apontador foi di- 
recionado para o endereço de um espa- 
ço em branco. Aqui ele percorrerá a ta- 
bela que criamos na memória RAM. A 
sub-rotina prinl atualiza automatica- 
mente o apontador, movendo-o para o 
próximo byte. Como o apontador fica 
no par de registros BC, teríamos que fi- 
car guardando seu valor na pilha, se qui- 
séssemos recorrer à instrução djnz para 
controlar o laço. Com o contador em A, 
essa instrução é substituída por dec a e 
jr nz, snr. 




Para testar a rotina, coloque níveis de 
dificuldade de 0 a 3 no endereço 57344, 
usando o comando POKE 57344. Cha- 
me a rotina com RANDOM 58455 e ve- 
rifique se os buracos estão sendo dese- 
nhados no nível I ; as cobras, nos níveis 
2 e 3, e se prémios diferentes aparecem 
a cada nível. 



O programa listado a seguir desenha 
os buracos e as serpentes assassinas ao 
longo da encosta, conforme o nível de 
dificuldade. 

ORG 19269 
ELB LDA 18238 
LDB 116 
HUL 

ADDD 118142 
TFB D,U 
LDX «2782 
JSR CHARPR 
LDA 18238 
BEQ ED 
PSHS A 
JSH HOLES 
PULS A 
CMPA |1 
BEQ ED 
JSR SNAKE 
ED RTS 

HOLES LDX (5095 
LDU 13071 
JSR HOLPR 
LDX 14591 
LDU 13071 
JSR HOLPR 
LDX «3833 
LDU #3071 
JSR HOLPR 
RTS 

SNAKE LDX «5095 
LDU #18078 
JSR HOLPR 
LDX #4591 
LDU «18078 
JSR HOLPR 
LDX «3833 
LDU «18078 
JSR HOLPR 
RTS 

HOLPR LDB «4 
HOLPRI PSHS U.X.B 
JSR CHARPR 
PULS B.X.U 
LEAX 256.X 
LEÃO 16, U 
DECB 

BNE HOLPRI 
RTS 

CHARPR LDB «2 
CHARI PSHS B.X 
LDB «6 

CHARZ PULU A 
STA ,X 
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520 LEAX 32, X 

530 DECB 

540 BNE CHAfiZ 

550 PULS X,B 

560 LEAX 1,X 

570 DECB 

580 BNE CHAHI 

590 RTS 



COMO TESTAR 0 PROGRAMA 



Esse programa acrescenta blocos grá- 
ficos ao cenário já montado. Portanto, 
para testá-lo, é preciso que as rotinas e 
tabelas criadas anteriormente estejam na 
memória do micro. Depois de carregar 
os códigos e montar o programa, digite 
as linhas BASIC que seguem. Elas per- 
mitirão que você execute a parte do jo- 
go já programada. 

5 PCLEAR4 : CLEAR 200,16999 
10 EXEC 19000 :EXEC 19109 
20 POKE 16238,0 
30 EXEC 19289 
40 GOTO 4 0 

A linha 10 executa parte do jogo 
montada nos artigos anteriores; a 20 
acerta o valor do nível de dificuldade e 
a 30 executa o programa deste artigo. A 
40 serve apenas para manter a tela de al- 
ta resolução ligada. 

Para termos certeza de que nossa ro- 
tina funciona perfeitamente, devemos 
interromper o programa com BREAK 
e editar a linha 20 para mudar o nível 
de dificuldade. O nível 0 deixa o cená- 
rio intacto, apenas com a montanha — 
os perigos desse nível são as pedras, que 
faremos rolar morro abaixo em outra 
parte do programa. 

O nível 1 desenha os buracos na en- 
costa e o 2 acrescenta as serpentes as- 
sassinas. O nível 3 soma a tudo isso a 
avalanche, que, como dissemos, será 
promovida por outra rotina. 

Teste cada um dos níveis, Verifique 
se as guloseimas roubadas estão sendo 
desenhadas no (opo da montanha. 



O endereço 18328 será usado para 
guardar o nível de dificuldade em vigor. 
Seu conteúdo transfere-se para o acu- 
mulador no início do programa e, em se- 
guida, o número 16 é colocado no re- 
gistro B. A instrução MUL multiplica 
o conteúdo desses dois registros, colo- 
cando o resultado em D. 

Como o bloco gráfico de cada pre- 
mio tem dezesseís bytes de comprimen- 
to, precisamos multiplicar o nível vigen- 
te por dezesseís, para obtermos na ta- 
I bela o padrão do bloco a ele adequado. 



O número obtido pela soma de 18142 
ao resultado da multiplicação indica a 
posição inicial do padrão do bloco de- 
sejado, ha tabela de padrões. Esse apon- 
tador é então transferido para o regis- 
tro U, que funciona como apontador da 
pilha do usuário. 

O registro X recebe o valor 2814, po- 
sição de impressão do prémio na tela 
gráfica. Em seguida, o processador sal 
ta para o rótulo CHARPR, que ímpri 
me o bloco gráfico correspondente. 

A instrução LDA 18238 repõe o ní 
vel de dificuldade dentro do acumula- 
dor. Se o nível for zero, a instrução BEQ 
provoca um desvio para o rótulo ED. 
Como neste nível já nada mais precisa 
ser acrescentado ao cenário — com ex 
ceção do prémio — , a instrução RTS 
termina a sub-rotina. 

Se o nível for maior que zero, o pro- 
grama guarda seu número na pilha da 
máquina. A sub-rotina que cava os bu- 
racos na encosta é, então, chamada. 

Depois que a escavação termina, o ní- 
vel é recuperado da pilha e comparado 
a 1 . Se este for o número do nível atual, 
a instrução que desenha as cobras, JSR 
SNAKE, é ignorada e o processador re- 
torna da sub-rotina. 



As rotinas que desenham os buracos 
e as cobras compõem-se de três séries de 
três instruções, e funcionam da mesma 
maneira. Em cada série, o registro X re- 
cebe a posição da tela onde deve ser im- 
presso o topo do bloco gráfico, enquan- 
to o registro U recebe o endereço inicial 
do padrão do bloco na tabela. Em se- 
guida, o processador salta para a roti- 
na de impressão, HOLPR. 

Como todos os buracos são iguais, o 
apontador da tabela tem sempre o va- 
lor inicial 3071. Esse endereço não fica 
na tabela, e sim na tela, pois o buraco 
nada mais é que um bloco cor do céu. 
O mesmo acontece com as cobras, cujo 
bloco gráfico tem endereço inicial 18078 
na tabela de padrões. 

As cobras são impressas, evidente- 
mente, na mesma posição que os bura- 
cos que ocupam. O topo do primeiro 
buraco fica em 5095; o segundo, em 
4591 e o terceiro, em 3833. Tanto as co- 
bras quanto os buracos são desenhados 
sobre o perfil da montanha original. O 
restante do cenário permanece intacto. 



A ROTINA DE IMPRESSÃO 



As rotinas HOLES e SNAKES cha- 
mam a sub-rotina HOLPR, que é res- 




ponsável tanto pelo desenho dos bura- 
cos quanto pelo das cobras. 

O registro B recebe inicialmente o nú- 
mero 4 — os buracos têm quatro blo- 
cos de profundidade. Os registros U, X 
e B são guardados na pilha antes que a 
rotina CHARPR seja chamada. Estaé 
responsável pela impressão do bloco in- 
dicado pelo apontador de tabela de pa- 
drões na posição determinada por X. 

Assim, se estivermos no nível 1 e for- 
mos desenhar um buraco, o apontador 
da tabela, U, indicará seu padrão e a ro- 
tina se encarregará de colocá-lo na po- 
sição dada por X. Se estivermos no ní- 
vel 2 ou 3, U apontará para o padrão 
do bloco da cobra, que será impresso na 
posição X da tela. 

Uma vez feita a impressão B, X e U 
são recuperados da pilha. X recebe en- 
tão o valor X + 256, que corresponde à 
posição de impressão imediatamente in- 
ferior. U recebe o valor U+16, que 
aponta para o padrão do próximo blo- 
co gráfico na tabela. 

Em seguida, B é subtraído em uma 
unidade e, se ainda não foi reduzido a 
zero, o processador volta ao rótulo 
HOLPRI. Quando o conteúdo desse re- 
gistro chegar a zero, todos os quatro 




blocos terão sido desenhados, a instru- 
ção BNE HOLPR1 será ignorada e o 
processador retornará da sub-rotina. 

A impressão do bloco é feita pela ro- 
tina CHARPR, que explicamos a seguir. 

Cada bloco gráfico impresso na tela 
tem dezesseis bits — dois bytes, portan- 
to — de largura e oito bits de profundi- 
dade. O registro B recebe, assim, o va- 
lor 2, para contar a largura do buraco, 
Esse contador é preservado na pilha, 
juntamente com a posição de impressão 
contida no registro X. B recebe então o 
valor 8, para contar a profundidade do 
bloco. 

O byte correspondente ao padrão da 
linha do bloco é recuperado da pilha do 
usuário, colocado no acumulador e, em 
seguida, transferido para a posição de 
impressão apontada pelo registro X. Por 
meio desse processo, o bloco é impres- 
so linha por linha na tela. 

A instrução LEAX 32,X coloca o va- 
lor X + 32 no registro X, movendo o 
apontador de posições de tela uma linha 
de pixels para baixo. O contador B é di- 
minuído em uma unidade e o processa- 
dor retorna para imprimir o próximo 
byte, até que B tenha sido reduzido a ze- 
ro — BNE CHARZ. 
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Em seguida, X e B são recuperados 
da pilha e X recebe o valor X + 1 — 
LEAX 1,X — , o que faz o apontador 
mover-se um byte para a direita na te- 
la. O contador B é então subtraído de 
uma unidade. Se ele ainda não tiver si- 
do reduzido a zero, o processador retor- 
na ao rótulo CHARI para imprimir 
mais uma coluna de oito bytes. Quan- 
do B já for igual a zero, as duas colu- 
nas estarão desenhadas e o processador 
retornará da sub-rotina CHARPR. 



ria 

ria 

ld b.56 
add a,b 
ld hl , (6240?) 
ld de, 254 
add hl.de 



ali 77 



ld 



. (-5228) 



130 
140 
150 
160 



200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 



call ho 
pop af 
cp 1 
jr a,ed 
call an 
ed ret 
ho ld de, 4! 
puah de 
ld de, 401 

ld de, 314 
puah de 



ld . 



.3 



ld hl , (62407) 
pop de 
ld b,4 

pp add hl , de 
ld a, 254 
push hl 

call 77 
pop bc 

ld de, 32 
djnz pp 



. PO 



,37 



490 
500 
510 
520 
530 
540 
550 



ld (-5227) , 
add a, 3 
ld (-5226) , 
add a,l 
ld (-5225) , 
add a. 3 
ld (-5224) , 
ld de, 457 
push de 
ld de. 401 
push de 
ld de. 314 



push de 



ld < 



,3 



620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 



po ld hl . (62407) 
ld de, -5227 
ld (-5220), de 
pop de 
ld b,4 

pp add hl , de 
ld de. (-5220) 
ld a, (de) 
inc de 

ld (-5220) ,de 
puah hl 
puah bc 
call 77 

pop hl 
ld de. 32 



djn: 
dec < 



PP 



O conteúdo do endereço -5228 é co- 
locado no acumulador. O nível de difi- 
culdade do jogo ficará armazenado nes- 
sa posição de memória. 

0 valor de A (0, 1,2 ou 3) será utili- 
zado para gerar o código da tabela de 
padrões que corresponde ao premio no 
nível vigente, ou seja: 

nível valor de A prémio código 

1 0 sanduíche 56 

2 1 maçã 60 

3 2 garrafa 64 

4 3 sorvete 68 

Armazenamos o código de padrão do 
sanduíche, 56, no registro B. Este será, 
portanto, o código-base. Em seguida, 
multiplicamos o conteúdo de A por qua- 
tro — a operação equivale a deslocar o 
conteúdo de A dois bits para a esquer- 
da, o que é feito pela instrução ria exe- 
cutada duas vezes. 

Somando o código-base com ido. em 
B ao valor de A, obtemos no acumula- 
dor o código do prémio certo. 

O endereço inicial da tabela de nomes 
de VRAM, que está nas posições de me- 
mória 62407 e 62408, é colocado no par 
de registros HL. Adicionamos a esse en- 
dereço o deslocamento correspondente 
ã posição na qual desejamos imprimir 
o prémio — 256, que equivale ao lopo 
da montanha. 

Para a impressão do bloco corres- 
pondente ao prémio, utiliza-se a sub- 
rotina 77 da memória ROM. Esta colo- 
ca o valor do acumulador A na posição 
da VRAM apontada pelo par HL. No 
nosso caso; ela coloca o código do blo- 
co do prémio na tabela de nomes. 

Lembre-se de que a tela, no modo de I 
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AS COBRAS ASSASSINAS 



alia resolução, é um rellexo da tabela ae 
nomes da VRAM. 



0 NÍVEL DE DIFICULDADE 



O conteúdo da posição de memória 
que guarda o nível de dificuldade é pos- 
to de volta no acumulador. Se for iqual 
a zero, a instrução jr z.ed salta para o 
final da rotina onde se encontra a ins- 
trução ret. Caso contrário, o processa- 
dor continua preservando o número do 
nível na pilha. A sub-rotina hls, que de- 
senha os buracos ao longo da encosta, 
é então chamada. 

O nível de dificuldade é recuperado 
da pilha e comparado a l . Nesse nível 
temos vários buracos, mas nenhuma ser- 
pente dentro deles. Logo, se A contiver 
1, a instrução cp 1 resulta em zero, o que 
ativa o indicador de zeros. A instrução 
jr z.ed salta novamente para o Final da 
rotina e retorna. 

Se o nível for superior a 1, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, é chamada e, depois, o progra- 
ma termina. Quando a rotina principal 
de controle estiver na memória, o pro- 
grama retornará a ela. Por enquanto, re- 
torna ao BASIC. 



A próxima sub-rotina é totalmente 
dedicada a cavar buracos ao longo da 
encosta. Ela começa com o rótulo ho, 
chamado pela rotina principal quando 
surge a necessidade de acrescentar os bu- 
racos ao cenário. Inicialmente, ho arma- 
zena na pilha o endereço da tela corres- 
pondente à posição de impressão do to- 
po de cada buraco. Como são três bu- 
racos, isso é feito três vezes. 



Todos são desenhados da mesma ma- 
neira, por intermédio do laço ho que co- 
loca no par de registros HL o endereço 
inicial da tabela de nomes da VRAM, 
adicionando a ele o endereço da tela cor- 
respondente a cada buraco. 

O registro C é usado como contador 
para os três buracos, e a instrução jr nz, 
ho testa o fim da rotina. 

Como cada buraco tem quatro blo- 
cos de profundidade, esse valor é colo- 
cado no registro B, que contém o núme- 
ro de execuções do laço hp. 

0 código da tabela de padrões do blo- 
co cor de céu é armazenado no acumu- 
lador A. Em seguida, a rotina 77 da 
ROM, cujo funcionamento explicamos 
anteriormente, é chamada. 

Para evitar possíveis alterações de 
correntes da rotina 77, as instruções 
pusch e pop são usadas para proteger os 
contadores no par BC e os endereços no 
par HL. O contador é recuperado da pi- 
lha e a instrução djnz subtrai uma uni- 
dade dele, saltando em direção ao rótu- 
lo hp se o registro B ainda não tiver si- 
do reduzido a zero. 

O laço, executado quatro vezes, tira 
uma "pá de terra" a cada volta. 



Cabe à rotina sn desenhar as cobras. 
O processo é basicamente igual ao da ro- 
tina ho e as cobras são desenhadas nas 
mesmas posições que os buracos. Há 
uma diferença fundamental: para cavar 
um buraco, precisamos colocar o mes- 
mo padrão do bloco cor de céu quatro 
vezes; já para desenhar uma cobra te- 
mos que mudar o código do padrão pa- 
ra cada parte do animal. 

Essa tarefa seria muito simples se os 
códigos dos padrões que formam a co- 
bra estivessem em sequência. Porém, co- 
mo você pode verificar na tabela de pa- 
drões, isso não ocorre. Armazenamos, 
assim, no início da rotina, os códigos dos 
padrões que formam a cobra — 37, 40, 
41, 44 — nos endereços de -5227 até 
-5224. Depois, basta assegurar que es- 
ses endereços sejam chamados sequen- 
cialmente para cada cobra a ser desenha- 
da. Isso é feito por intermédio do par 
DE, que serve como ponte, armazenan- 
do o endereço inicial da tabela (-5227) 
nas posições -5220 e -5219. Esses ende- . 
reços contêm o endereço do código do 
padrão correspondente a cada uma das 
partes da cobra. 

No mais, esta rotina é idêntica à que 
cava buracos. 



Para testar a rotina, digite o seguin- 
te programa BASIC: 

10 DEFU5R1 — 12M4 
20 DEFU8R2— 11973 
30 DEFUSH3=-1 18S4 
40 A=USR] (0) 
50 A=USRZ (0) 
60 AMISR3<0) 



70 l 



>T0 



en d;nd 

A linha 40 chama a rotina -12144, 
que coloca a tela no modo de alta reso- 
lução, e a 50 chama a rotina -1 1973, en- 
carregada de desenhar a montanha na 
tela. A linha 60 chama a rotina apresen- 
tada neste artigo. 

A tela é mantida no modo de alta re- 
solução pela linha 70. 

Para testar o funcionamento da ro- 
tina nos vários níveis de dificuldade, di- 
gite POKE -5228.A, atribuindo à variá- 
vel A os valores 0, 1, 2 ou 3. 



IIIIIIIIIIHH 



■■■■■IIIIIM 




CÓPIA DA TELA 



FUNÇÃO VARPTRE VÍDEO 



TRANSFERÊNCIA 



"aplicações 



IMPRIMINDO A TELA 



Pode-se consultar, com o BASIC, as 
posições da memória que armazenam o 
vídeo e as cadeias de caracteres. 
Usando esse recurso, você tornará seus 
programas bem mais rápidos. 



No artigo anterior desta série, vimos 
como manipular o conteúdo da memó- 
ria de vídeo do TRS-80 e compatíveis 
com o auxílio dos comandos PEEK e 
POKE. Podemos fazer isso porque o ví- 
deo do TRS-80 é mapeado diretamente 
em um segmento fixo da RAM, que co- 
meça na locação 15360 e se estende até 
a locação 16376. Cada caractere na tela 
é armazenado em uma posição corres- 
pondente dessa memória de 1024 bytes. 

Porém, os comandos PEEK e POKE 
são muito lentos quando usados dentro 
de laços FOR...NEXT para a transfe- 
rência, consulta ou escrita de grande 
quantidade de caracteres na tela. Há 
uma técnica bem mais poderosa e rápi- 
da, que aprenderemos neste artigo: é o 
uso da função VARPTR como aponta- 
dor de cadeias de caracteres para a tela. 

Essa técnica permite armazenar ins 
tantaneamente 255 caracteres em exibi 
ção na tela, em uma cadeia alfanuméri- 
ca (string). O limite de 255 caracteres 
(que corresponde a quatro linhas de ví- 
deo) é imposto pelo tamanho máximo 
de um string alfanumérico. Se quiser- 
mos deslocar a tela inteira, portanto, 
basta efetuar a transferência em "par- 
tes" de 255 bytes de cada vez. 

Para entender como a técnica funcio- 
na, precisamos conhecer o processo de 
armazenagem de cadeias alfanuméricas 
na memória do TRS-80. Existe um es- 
paço na memória RAM, criado toda vez 
que o BASIC é iniciaiizado. O argumen- 
to do comando CLEAR define o tama- 
nho desse espaço (o tamanho predefini- 
do é de cinquenta bytes). 

Sempre que uma variável alfanumé- 
rica é definida (ou seja, sempre que não 
é uma constante dentro de um progra- 
ma), o interpretador BASIC cria um par 
de bytes apontadores, que contém o en- 
dereço absoluto inicial da cadeia, na me- 
mória de strings. Nessa locação inicial, 
está armazenado um byte, que contém 



o comprimento da cadeia em bytes (daí 
a limitação intrínseca de 255 bytes por 
cadeia). Nas duas locações seguintes, en- 
contram-se os bytes (o menos significa- 
tivo e o mais significativo) do endereço 
inicial onde está armazenado o conteú- 
do da cadeia alfanumérica. 

Seu programa pode ter acesso direto 
a toda essa informação através da fun- 
ção VARPTR. Para uma variável V$, 
por exemplo, teríamos: 

VARPTR(VS) = locação do apontador de VS 
PEEK(VARPTR(V$}) - comprimento de VS 
PEEK(VARPTR(VSl+l) = endereço de V$ 
PEEK(VARPTR(VS> + 2) = endereço de VS 

Nada mais fácil, portanto, do que 
transferir 255 bytes da tela para uma va- 
riável alfanumérica: basta alterar o en- 
dereço armazenado nas locações 
VARPTR(V$)+1 e VARPTR(V$) + 2 
de modo que passe a apontar para a lo- 
cação inicial da memória de vídeo que 
queremos transferir. Nenhum byte do 
conteúdo da tel/i precisa ser movido! 

A sub-rotina seguinte coloca o com- 
primento desejado e o endereço inicial 
de vídeo no bloco de apontadores de 
uma variável V$: 
1000 1 SUBROTINA VTRANSF 
1010 US"" " r POKE VARPTR {VS) .Cl 
1020 POKE VARPTR(VS)+1. Vl-INT 
(W2S6)*256 

1030 POKE VARPTR(V$)+2, INT (Vt 

/2561+60 

1040 RETURN 

A linha 1010 define VS e armazena 
no primeiro endereço do bloco de apon- 
tadores o número de bytes de compri- 
mento (a variável inteira C^o). 

As linhas 1020 e 1030 tratam de ar- 
mazenar no bloco de apontadores, res- 
pectivamente, o byte mais significativo 
e o byte menos significativo do endere- 
ço desejado de início no vídeo (a variá- 
vel inteira V<7o). 

Observe que as variáveis CVo e V% 
estão definidas como inteiras. Para usar 
a sub-rotina, deve-se colocar em V% o 
endereço da posição de início na tela (0 
a 1023), e, em C%, o número de bytes 
a se transferir (0 a 255). Ao retornar da 
sub-rotina, VS conterá os caracteres que 
estavam armazenados na tela, da posi- 
ção V°?a a V%+C°?o. 



Essa rotina, que chamaremos de 
VTRANSF, possui numerosas aplica- 
ções. Eis aqui algumas delas: 

• copiar o conteúdo de uma tela de ví- 
deo na impressora; 

• armazenar o conteúdo de várias telas 
de vídeo na memória; 

• armazenar as telas em disco; 

• realizar animações gráficas, pela su- 
perposição rápida de porções de telas de 
vídeo previamente armazenadas em 
memória; 

• montar vídeos com várias '"janelas" 
superpostas, independentes. 

Nos próximos artigos desta série, tra- 
taremos em detalhe das aplicações da ro- 
tina VTRANSF. 



O programa que se segue é um pri- 
meiro exemplo de utilização da sub- 
rotina VTRANSF. Ele imprime o con- 
teúdo corrente da tela em uma impres- 
sora, linha por linha: 

10 CLEAR 500 
20 C»-64 

30 FOR Vt-Q TO 960 STEP 64 
40 GO SUB 1000 : LPRINT VS 
50 NEXT Vt 
60 END 

O programa funciona da seguinte 
maneira: a linha 10 reserva quinhentos 
bytes de memória para strings. A linha 
20 define o comprimento C% da variá- 
vel alfa que receberá cópia de uma linha 
de vídeo. A linha 30 inicia um laço, que 
vai até a linha 50, percorrendo os ende- 
reços de vídeo (V%) desde a primeira até 
a última linha, de 64 em 64 posições. Fi- 
nalmente, a linha 40 chama nossa sub- 
rotina VTRANSF (que deverá ser colo- 
cada logo após a linha 60) e imprime a 
variável V$, que recebeu a cópia do 
vídeo. 

Se sua impressora não for do lipo 
gráfico, use esse programa apenas para 
copiar telas de texto, pois ele não con- 
verte os caracteres gráficos (129 a 191) 
que encontra na tela. 
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As rotinas deste artigo permitem ao 
computador não só jogar pela 
raposa e pelos gansos como também 
estudar os próximos movimentos 
para melhorar o nivel da partida. 



Terceira e última parte do ]o%oA Ra- 
posa e os Gansos, este artigo apresenta 
rotinas que possibilitam ao computador 
jogar tanto pela raposa quanto pelos 
gansos. Na verdade, ele pode ser colo- 
cado a jogar sozinho ou simplesmente 
pode não jogar, se você tiver um par- 
ceiro humano; neste caso, o computa- 
dor servirá apenas como tabuleiro e for- 
necedor de peças. 



210 LET P-B(GU) >+B(G<2) )+B(G( 
3))+B [0(4)1 

220 LET X-F: IF B<B(32) THEN 

LET P-P-BX: LET X-33-F 

230 LET P-P*B(X): RETURN 

250 LET F-FN A (ABS P)-30: LET 

B-P/B(F): IF B<0 THEN LET B-B 

+BX: LET F-33-F 

260 FOB A-l TO 4: LET G(A)-FN 

A(B)+1: LET B-B-B (G (A) ) : NEXT 

A I RE TU RN 



D 



210 P-B(G(1))+B(G(2))+B<G<3))+B 
(G(4)) — -* 

220 X-F:1F P<B{31> THEN P-P-BX: 

X-31-F 

230 P-P*B(X) : RETUBN 

250 F-FNA{ABS(P))-31:B-P/B(F) :I 

F B<0 THEN B-B+BX:F-31-F 

260 FOR A-l TO 4 : G (A) -FNA (B) : B- 

B-B (G (A) ) : NEXT : RETURN 



210 P=B(G(l))+B(G(2))+B(G(3))-tB 
10(4)) 

220 X-F:IF P<B(31J THEN P-P-BX: 
X-31-F 

230 P-P*B(X) I RETURN 

250 F=FNA (ABS (P))-31:B=P/B(F) :I 

F B<0 THEN B-B+BX:F-31-F 

260 FOR A-l TO 4 : G (A) -FNA (B) : B- 

B-B (G (A) ) : NEXT; RETURN 



lores necessários para posicionar as pe- 
ças. Essas sub-rotinas são chamadas 
com muita freqiiência e, por isso, foram 
colocadas logo no inicio do programa. 



0 MOVIMENTO DA RAPOSA 



GE GD 



210 P - B(G(1)) + B(G(2>) + B(G 
(3)] + B(G(4>) 

220 X-F: IF P < B{31) THEN P 

■ P - BX:X - 31 - F 

230 P-- P * B(X} : RETURN 

250 F - FN Al ABS (P) ) - 31:8 

- P / B (F) : IF B < 0 THEN B-B 

+ BXtF - 31 - F 
260 FOR A • 1 TO 4 : G (A) - FN 
A(B):B - B - B(G(A)J: NEXT : RE 
TURN 

Essas são duas das mais importantes 
rotinas do programa. A rotina da linha 
210 à linha 230 avalia a posição em jo- 
go e a transforma em um número. De 
modo inverso, quando o computador ti- 
ver escolhido a melhor jogada, tem que 
converter um número em um movimen- 
to. As linhas 250 a 260 transformam o 
valor numérico em um conjunto de va- 



1010 GOSUB 210 

10Z0 OOSUB 310: GOBUB 250 

1030 IF F>28 THEN PRINT AT 21. 

0;"A RAPOSA VENCEU 

GOTO 1410 
1032 GOSUB 410: IF V-H THEN PR 




■fl 




JNT "OS GANSOS VENCERAM 

"I GOTO 1410 
1040 IF PF THEN GOTO 1110 
1050 INPUT "MOVER RAPOSA PARA " 
;B: IF B— 1 THEN GOSUB 2710: G 
OTO 1030 
1055 GOSUB 4000 

1060 FOR A-l TO X(F): LET X=M(A 
,F): IF X-B THEN IF NOT (FN X{ 
X) ) THEN LET F-B : GOSUB 210: G 
OTO 1200 

1070 NEXT A: PRINT AT 21,0:"ISS 
O NAO E LEGAL 

GOTO 1050 
111.0 LET L-SF: LET M-SF: LET V( 
M)=E*M: IF M>4 THEN DIM R (HF+3 
) : DIM S(HF+3) 
1112 GOSUB 1120: GOTO 1200 
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1120 IF L-l THEN GOTO 410 
1122 IF L<M-2 THEN G03UB 1610: 

IF VOO THEN RETURN 
1130 LET L-L-l: LET V(L)-H*L: L 
ET A(L)-X(F) : LET F(L)-F 
L140 LET F=M(A(L) , F ( L ) ) 
1150 IF FN X(F)=0 THEN GOSUB 1 
320: IF V>V(L) THEN LET V(L)-V* 
: LF.T P(L)-F: TF V>V(L+1) THEN 

LET f-F(L): LET I.-L+1 : RETURN 
1160 LET A(L)-A(L)-1: IF A(L1>0 
THEN «OTO ] 1 40 

1170 LET V«V(L): LET F-F(L): LE 
T L-L+l: IF L=M THEN LET F-PÍM 
-11: GO SUB 210: RETURN 
11,72 IF L<M-2 THEN OOSUB 1510: 
RETURN 
I 180 RETURN 



ê é ÊÊ • 



1010 SCREEN 1,0:GOSUB 210.-GOTO 
1030 

1020 XX-FNXX(G) : YY-FNYY (G> :PUT( 
XX,YY)-(XX+19.YY+19) ,SQ.PSET:XX 
-FNXX(G(C) ) : YY-FNYY <G (C) ) +5: PUT 
(XX,YY)-{XX+19,YY+9) .GS.PSET 
1030 CLS:IF F>27 THEN PLAY V$ : P 
RINT «7. "A RAPOSA VENCEU' : GOTO 
1410 

1032 GOSUB 410 :IF V-H THEN PLAY 
V$:PRINT e6."OS GANSOS VENCERA 

M':GOTO 1410 

1040 LINE (180. 0) - (255, 191) . PRES 
ET.BF : IF PF THEN DRAWBM180 . 50C 
4*+THS:G0TO 1110 



1050 DRAU"BM1B0.80C4"+MW$:XX-FN 

XX(F) :YY-FNYY(F) : GOSUB 181Q.B-4 

*INT{YY/20) :B-FNCN(B) 

1055 IF B--1 THEN PLAY V$:PRINT 

66 , "OS GANSOS VENCERAM" :GOTO 14 

10 

1060 FOR A-0 TO X (F) : X-M (A . F) : I 
F X-B AND NOT FNX(X) THEN A-X(F 
> :XX-FNXX(F) : YY-FNYY (F) :PUT(XX, 
YY)-(XX+19,YY+19> , SQ.PSET : F-B :G 
OSUB 210:NEXT:GOTO 1200 
1070 NEXT:GOSUB 5000:GOTO 1040 
1110 L-SF:M-SF:V(M)-E*M:IF M>4 
THEN FOR A-0 TO HF : R (A) -O : NEXT 
1112 LF=F:GOSUB 11 20 : XX-FNXX (LF 
) : YY-FNYY (LF) : PUT (XX , XY) - tXX+19 
,YY+19) ,SQ,PSET:GOTO 1200 
1120 IF L-l THEN 410 
1122 IF L<M-2 GOSUB 1610 :IF V<> 
0 THEN RETURN 

1130 L-L-1:V(L)-H*L:A(L)-X(F) :F 
(L)-F 

1140 F=M { A (L) ,F(L) ) 
1150 IF FNX(F)-0 GOSUB 1320:IF 
V>V(L) THEN V(L)-V:P<L)«F:IF V> 
V(L+11 THEN F=F{L) : L-L+l : RETURN 
1160 A(L)-A(L>-1:IF AtL)>-0 THE 
N 1140 

1170 V-V(L) :F-F(L) :L-L+1:IF L-H 
THEN F-P(M-l) :GOSUB 210:RETURN 
1172 IF L<M-2 GOSUB 1510 
1180 RETURN 



1010 GOSUB 210:GOTO 1030 
1020 GS(FNZZÍG) .1)=G(C) :XX-FNXX 
CG(C) ): YY-FNYY (G (C) ): PUT SPRITE 
GS{FNZZ(G(C) ) ,0) , (XX, YY) ,15 



1030 IF F>2? THEN PLAYVS:FORX-l 

TO500 : NEXT : 3CREEN0 : PRINT"A RAPO 

SA VENCEU!-'GOTO 1410 

1032 GOSUB 410 : IF V=H THEN PLAY 

VS:FORK-lTG50Q:NEXT:SCREENQiPRI 

NT"OS GANSOS VENCERAM ! " 'GOTO 14 

10 

1040 LINE(1fl8.0)-(255,191) .11.8 
F : IF PF THEN PRESET (1 88. 50) : PR 
INT41. -Pensando" ;GOTO 11J0 
1050 PRESET UflB.80) -PRTNTtl.T 
ara ?": XX-FNXX (F) : YY-FNYY (F) : GO 
SUB 181Q:B-4"INT( (YY-2J/Í0) :B-F 
NCN (B) 

1055 IF B--1 THEN PLAYVS : FOflK-1 

TO500:NEXT:9CRrEJin:PRTNT*OB CAN 

SOS VENCERAM! " :GOTO 1410 

1060 FOR A-0 TO X (F) :X-M(A . F) : I 

F X-B AND NOT FNX (X) THEN A=X ( F 

):F-B:GOSUB 210 : NEXT :GOTO 1200 

1070 NEXT:GOSUB 5000:GOTO 1040 

1110 L-SF:M*SF:V(M)=E*M:IF M>4 

THEN FOR A-0 TO HF : H (A) -O : NEXT 

1112 LF-F:GOSUB 1120-GOTO 1200 

1120 IF L-l THEN 410 

1122 IF L<M-2 THEN GOSUH 1610:1 

F VOO THEN RETURN 

1130 L-L-l!V(L)=H»L:A(L>"X(F) :S 

(L)-F 

1140 F-M (A (L) ,f ;., ) 

1150 IF FNX(F)-0 THEN GOSUB 132 

0:TF V>V(L) THEN V ( L) -V : P 1L) -F : 

IF V>V(L+1) THEN F-F IL> :L-L+1 : R 

ETURN 

1160 A(L)-A(L)-1:IF A(L)>-0 THE 
N 1140 

1170 V-V (L) :F=F (L) : L-L+l : IF L-M 
THEN F-P(M-l) :G03UB 210IRETURN 
1172 IF L<M-2 THEN OOSUB 1510 
1180 RETURN 
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1010 GOSUB 210: GOTO 3.030 

1020 XX - FN XX(G):YY - FN YY 

(G) : HCOLOR- 0: DRAW GS AT XX + 

7.YY + 5: HCOLOR- 3:XX - FN X 
X(G(C)):YY - FN YY(G(C)): DBAW 

GS AT XX + 7 , YY + 5 
1030 HOME : IF F > 27 THEN PR 
INT V$: HOME : VTAB 22: PRINT " 
A RAPOSA GANHOU!": GOTO 1410 
1032 GOSUB 410: IF V - H THEN 

PRINT VS: HOME ! VTAB 22: PRIN 
T "OS GANSOS GANHARAM!": GOTO 1 
410 

1040 HOME : VTAB 22: IF PF THE 
N PRINT "PENSANDO..."!: GOTO 1 
110 

1050 PRINT "MOVE PARA ONDE? "; 
:XX - FN XX(F):YY - FN YYÍF): 
GOSUB 1810:B - 4 * INT, (YY / 
20) :B = FN CN(B) 

1055 IF B ■ - 1 THEN PRINT V 
S: HOME : VTAB 22: PRINT "OS GA 
NSOS VENCERAM!": GOTO 1410 
1060 FOR A - 0 TO X(F) :X - M (A 
,F): IF X - B AND NOT FN X(X) 
THEN A - X(F) :XX - FN XX(F) :Y 
Y - FN YY (F) : HCOLOR- 0: DRAW 
FX AT XX + 2.YY + 8:F - B: HCOL 
OR- 3: GOSUB 210: NEXT : GOTO 1 
200 

1070 NEXT : GOSUB 5000: GOTO 1 
040 

1110 L - SF:M - SF:V<M) = E * M 
: IF M > 4 THEN FOR A - 0 TO H 
F : R (A) ■ 0: NEXT 

1112 LF » F: GOSUB 1120:XX - F 
N XX(LF):YY = FN YY (LF) : HCOLO 
R- 0: DRAW FX AT XX + 2 , YY + 8: 

HCOL0R= 3: GOTO 1200 
1120 IF L - 1 THEN 410 
1122 IF L < M - 2 THEN GOSUB 
1610: IF V < > 0 THEN RETURN 

1130 L - L - 1:V(L) ■ H * L : A IL 
} - XCF) :F(L) - F 
' 1140 F - M (A (L) ,F(D) 
1150 IF FN X(F) - 0' THEN GOS 
UB 1320: IF V > V(L) THEN V(L) 
- V:P(L) - F : IF V > V(L + 1) T 



HEN F - F{L) :L - L + 1: RETURN 

1.160 A (L) = A (L) - l; IF A ( L) > 

= 0 THEN 1140 
1170 V - V(L) :F - F{L) :L - L + 
\s IF L - M THEN F - P (M - 1) : 
GOSUB 210: RETURN 
1172 IF L < M - 2 THEN GOSUB 
1510 

1180 RETURN 

As linhas 1020 a 1 180 manipulam os 
movimentos da raposa. A sub-rotina 
que desenha o tabuleiro é usada para 
mostrar o posicionamento atual das pe- 
ças. Em seguida, verifica-se na linha 
1030 se a raposa ganhou. Feito isso, a 
rotina comprova na linha 1032 se há pe- 
lo menos um movimento legal para a ra- 
posa (caso contrário a vitória caberá aos 
gansos). 

Se o jogador estiver controlando a ra- 
posa, as linhas 1050 a 1070 receberão a 
jogada e verificarão sua validade. Se, ao 
contrário, quem estiver controlando a 
raposa for o computador, as linhas 1110 
a 1 1 12 decidirão pelo movimento. O nú- 
mero de lances que está sendo analisa- 
do, M, e o lance que é analisado no mo- 
mento, L, são definidos na linha 1 110. 
As linhas 1120 a 1180 avaliam qual a 
melhor jogada. 

Quatro matrizes são usadas nessa ro- 
tina: A contém o número de movimen- 
tos a serem analisados; V, o melhor re- 
sultado até o momento; P, a jogada que 
provoca (al resultado, e F indica a posi- 
ção prévia da raposa. 



502 NEXT A: NEXT C: LET V-l : 
RETURN 

1200 GOSUB 310: GOSUB 250 

1202 IF F>28 THEN PRINT AT 21, 

0;"A RAPOSA VENCEU 

" : GOTO 1410 
1204 GOSUB 500: IF V THEN PRIN 
T AT 21,0;"A RAP03A VENCEU 

■l GOTO 1410 
12.10 IF PC. THEN GOTO 131.0 
1220 INPUT "QUE GANSO QUER MOVE 
R ?";G: IF G— 1 THEN GOSUB 271 
0: GOTO 1202 
1225 GOSUB 4000 

1230 LET C-FN Z (G) : IF C=0 THEN 
PRINT AT 21.0;"NAO HA GANSO E 
M "iO;"": GOTO 1220 
1240 INPUT "PARA ONDE " ! I ! IF I 
— I THEN GOSUB 2710: GOTO 1202 
1250 IF FN X(J) THEN PRINT AT 
21,0; "AI JA TEM UM GANSO ! 

GOTO 1220 
.1260 IF T-F THEN PRINT AT 21.0 
;"AI JA TEM UMA RAPOSA 



COMO MOVER OS GANSOS 



500 LET V-0: FOR C-J. TO 4: LET' 
a-G(C) : FOR A-l TO 2 (G) : LET X 
-M(A.G): IF XOF THEN IF NOT 
FN X(X) THEN RETURN 




": GOTO 1220 
1270 FOR A-l TO Z(G): IF M(A.G) 
■I THEN LET G(C)»2: GOTO 1010 
1280 NEXT A: PRINT AT 2[.0:"TSS 
O E ILEGAL 

GOTO 1220 
1310 LET L = SG: LET M-SG: LET V( 
M)=H*M; CF M>4 THEN DIM R<HF+3 
) : DIM S(HF+3) 
131.2 GOSUB 1320: GOTO 1020 
1320 IF L-l THEN GOTO 510 
1322 IF L<M-2 THEN GOSUB 1610: 

IF VOO THEN RETURN 

324 LET L-t-l: LET V(L)=E*L: L 



ET i 



■1 



1330 LET C(L)«C: LET F(L)=G[C): 
LET A{l..)-1: IF A(L)>Z(G(C)) TH 
EN GOTO 1362 

1340 LET B--M (A ( L) , F (L ) ) : LET X = 
FN X(B): LET G(C)=B: IF X OR B= 
F THEN GOTO 1 360 
1.350 GOSUB 1120: LET C=C(L): IF 
V<V(L) THEN LET V(L)=V: LET P 
(L]=G(C)+C*32 

1355 IF V<V(L) THEN LET G(C)-F 
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(L) ! LET E-L+l! RETURN 

1360 LET A(L)-A[L)+1: IF A(L)<- 

2(F(D) THEN OOTO 1340 

1362 LET G(C)-F(L): LET C-C+l : 

IF C<5 THEN GOTO 1330 

1370 LET V-V(L): LET L-L+l : IF 

L-M THEN LET C-INT (P(L-l)/32) 

: LET G(C)-P(L-1)-C*32: O03UB 2 

10: RETURN 

1372 IF L<M-2 THEN GOSUB 1510: 

RETURN 
1380 RETURN 



500 V— l-.FOR C-l TO 4:G-C(C)rIF 

2(O)<0 THEN NEXT : RETURN 
502 FOR A-0 TO Z (G) : X-M (A ,G) : V- 
y AND(FNX(X) OR X-F) :NEXT A,C:R 
ETURN 

1200 GOSUB 250:XX-FNXX(F) :YY-FN 
YY (F) +5 : PUT (XX , ÍY) - (XX+19 , YY+8) 
.FX.PSET 




X+19.YY+19) ,SQ,PSET:G(C)-I:XX-F 
NXX{I) rYY-FNYY(I) : PUT (XX , YY+5) - 
(XX+19, YY+14) ,GS,PSET:A-Z(G) : NE 
XT:GOTO 1010 

1280 NEXT:GOSUB 5000:GOTO 1210 

1310 L-SG:M-SG:V(M)-H*M:IF MM 

THEN FOR A-0 TO HF : R (A) "0 : NEXT 

1312 GOSUB 1320:GOTO 1020 

1320 IF L-l THEN 510 

1322 IF L<«-2 GOSUB 1610:IF V<> 

0 THEN RETURN 

1324 L-L-1:V(L)-E*L:C-1 

1330 C(L)-C:F(L)-G(C) :A(L)-0:IF 

A(L)>Z(G(C)) THEN 1362 
1340 B-M(A(L) .F(D) :X-FNX(B) :G- 
G(C) :G(C)-B:IF X OR B-F GOTO 13 
60 

1350 GOSUB 1120:C-C(L) :IF U<V(L 
) THEN V(L)-V:P(L)-G(C)+C*32:IF 
V<V(L+1) THEN O-G(C) :G(C)-F(L) 
:L-L+1 : RETURN 

1360 A(L)-A(L)+1:IF A(LX-Z<F(L 
)) THEN 1340 

1362 O-G(C) :0{C)-F(L) :C-C+1:IF 
C<5 THEN 1330 

1370 V-V(L) :L-L+1:IF L-M THEN C 
-INT(P{L-1)/3Z) .-G-OÍC) :Q(C)-P(L 
-1) AND 31: GOSUB 210:fiETURN 
1372 IF L<M-2 GOSUB 1510 
1380 RETURN 



1202 IF F>27 THEN PLAY VS : PRINT 
«6. "A RAPOSA VENCEU" rGOTO 1410 
1204 GOSUB 500 : IF V THEN PLAY V 
3: PRINT "A RAPOSA VENCEU": GOTO 
1410 

1210 LINE(180.0)-(255,191) ,PRES 
ET . BF : IF PG THEN DRAW"BM180 , 50C 
4"+THS:GOTO 1310 

1220 XX-FNXX (Gd)) : YY-FNYY (G (1) 
) :DRAW"BM180,80C2"+WGS:COSUB 18 
10 

1225 G-4*INT(YY/20) :G-FNCN(G) 
1230 C-FN2(G):IF C-0 GOSUB 5000 
:GOTO 1210 

1240 DRAW"BM1BO,110C3"+MUS:GOSU 
B 1810:I-4*INT(YY/20) :I-FNCN(I) 
1245 IF 1-1 THEN PLAY V$:PRINT 
«7. "A RAPOSA VENCEU":GOTO 1410 
1250 IF FNX(I) GOSUB 5000:GOTO 
1210 

1260 IF I-F GOSUB 5000:GOTO 121 
0 

1270 FOR A— 1 TO Z(G):IF A>-0 T 
HEN IF M(A,G)-I THEN XX-FNXX(G{ 
O) : YY-FNYY (G(C) ) : PUT (XX . YY) - (X 



500 V=-l:FOR C-l TO 4:G=G(C):IF 

Z(GX0 THEN NEXT : HETURN 
502 FOR A-0 TO Z (G) : X-M (A . G) : V= 
V AND (FNX(X) OR X-F) : NEXT : NEXT 
: RETURN 

1200 GOSUB 250 : XX-FNXX (F) :YY"FN 
YY(F):PUT SPRITE FX.(XX,YY).6 
1202 IF F>27 THEN PLAYVS : FORK-1 
TO500:NEXT:SCREEN0:PRINT"A RAPO 
SA VENCEU ! " : GOTO 1410 
1204 GOSUB 500 :IF V THEN PLAYVS 
: FORK=lTO500 : NEXT : SCREENO : PRINT 
"A RAPOSA V£NCEU!":GOTO 1410 
1210 LINE (188 ,0} - (255, 191) , 11 . 
BF : IF PG TflEN PRESET [1B8,50):P 
RINTU."Pensando":GOTO 1310 



1220 XX-FNXX(Gd)) : YY-FNYY (G (1) 
):PRESET (188,80) : PRINT Jl , "Qual 

?" :GOSUB 1810 
1225 G-4«INT( (YY-2J/20) :G-FNCN[ 

a) 

1230 C-FNZ(G):IF C-0 THEN GOSUB 

5000:GOTO 1210 
1240 LINE (168,0) - (255, 191) ,11, 
BF : PRESET ( 188 , 80) : PRTNT*1 , "Par 
a ?":GOSUB 1810:I-4*INT(ÍYY-2)/ 
20) :I-FNCN(I) 

1245 IF 1-1 THEN PLAYVS : FORK-1T 
O500:NEXT:SCREEN0:PRINT"A RAPOS 
A VENCEU ! " : GOTO 1410 
1250 IF FNX(I) THEN GOSUB 5000: 
GOTO 1210 

1260 IF I-F THEN GOSUB 5000:GOT 
O 1210 

1265 GS(FNZ2(G) ,1)-I 
1270 FOR A=-l TO 2(G):IF A>-0 T 
HEN IF M(A,G)-I THEN XX-FNXX(I) 
;YY-FNYY(I) :PUT SPRITE GS(FNZZ( 
I) ,0) , (XX, YY) , 15:A-2(G) :G(C) -I: 
NEXT : GOTO 1010 

1280 NEXT:GOSUB 5000:GQTO 1210 
1310 L-SG:M-SG:V(M)=H"M:IF M>4 
THEN FOR A-0 TO HF : R (A) -0 : NEXT 
1312 GOSUB )320:GOTO 3020 
1320 IF L-l THEN 510 
1322 IF L<M-2 THEN GOSUB 1610:1 
F VOO THEN RETURN 
1324 L-L-1:V(L)-E*L:C-1 
1330 C(L)-C:F[L)-G(C) :A(L)-0:IF 
A(L)>2(G(C)) THEN 1362 
1340 B=M(A(L) ,F(L) ) :X=FNX(B) :G= 
G(C) :G(C)-B:IF X OR B-F THEN 13 
60 

1350 GOSUB 1120: C-C (D : IF V<V(L 
) THEN V(L)-V:P(L)-G(C)+C*32:IF 
V<V(L+1) THEN G-G(C) :G(C)-F(L) 
: L-L+l : RETURN 

1360 A(L)-A(L)+1:IF A(LX-2(F(L 
)) THEN 1340 

1362 G-G(C) :G(C)-F(L) :C-C+1:IF 
C<5 THEN 1330 

1370 V-V(L) :L-L+1:IF L-M THEN C 
-INT(P(L-1) /32) :G*G(C) :G(C)-P(L 
-l)AND31:GOSUB 210:RETURN 
1372 IF L<M-2 THEN GOSUB 1510 
1380 RETURN 
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500 U - 1; FOB C - 1 TO 4 iG - C 
(C) : IF G(C) < 0 THEN NEXT : P 
ETURN 

502 FOR A - 0 TO ZtG) :X - M (A, 
G) :V - V AND ( FN X(X) OH X - F 
) : NEXT : NEXT : RETUBN 



1200 GOSUB 250 :XX - FN XX (F) : 
YY - FN YY(F) : DRAW FX AT XX + 

2,YY + B 
1202 IF F > 27 THEN PRINT US: 

HOME : VTAB 22: PRINT "A RAPOS 
A VENCEU! ": GOTO 1410 
1204 GOSUB 500: IF V THEN PRI 
NT US: HOME : UTAB 22: PRINT "A 

RAPOSA UENCEU!": GOTO 1410 
1210 HOME : VTAB 22: IF PG THE 
N PRINT "PENSANDO..."!: GOTO 1 
310 

1220 XX - FN XX{G(1)):YY - FN 
YY (G (1 ) ) : PRINT "MOVE QUAL GAN 
30?": GOSUB 1810 
1225 G - 4 * INT (YY / 20) :G • 
FN CN(G) 

1230 C - FN ZtG) : IF C - 0 THE 
N GOSUB 5000: GOTO 1210 
1240 HOME : VTAB 22: PB INT "MO 
UE PABA ONDE? ": GOSUB 1810:1 - 
4 * INT (YY / 20) :I - FN CN ( 
I) 

1245 IF I - 1 THEN PB INT VS: 
HOME : UTAB 22: PRINT "A BAPOSA 

VENCEU! " : GOTO 1410 
)250 IF FN X(I) THEN GOSUB 5 





000: GOTO 1210 

1270 FOB A - - 1 TO Z (G) : IF 
A > - 0 THEN TF M (A, G) - I TH 
EN XX - FN XX(G(C)>:YY - FN Y 
Y(G(C)>: HCOI.OR- 0: DRAW GS AT 
XX + 7.YY + 5:G(C) - I:XX - FN 

XX(I):YY - FN YYÍI): HCOLOR- 
3: DRAW GS AT XX + 7 . YY + 5:A - 

Z(G) : NEXT : GOTO 1010 
1280 NEXT : GOSUB 5000: GOTO 1 
210 

1310 L - SG:M - SG:V(M) - H * M 
i IF M > 4 THEN FOR A - O TO H 
F : R (A) - 0: NEXT 
1312 GOSUB 1320: GOTO 1020 
1320 IF L - 1 THEN 510 
1322 IF L < M - 2 THEN GOSUB 
1610: IF V < > 0 THEN RETURN 
1324 L - L - 1:V(L) - E * L:C - 
1 



1340 B ■ M (A (L) ,F(L) > :X - FN X 
(B) iG - G(C):G(C) - B: IF X OB 
B - F THEN 1360 

1350 GOSUB 1120:C - C(L): IF V 

< U(L) THEN V(L) - V:P(L) - G( 
C) + C « 32: IF V < V(L + 1) TH 
EN G - G(C) :G(C) - F (L) : L - L + 

1: RETURN 
1360 A (L) = A (L) + 1: IF A (L) < 

- Z(F(LÍ) THEN 1340 
1362 G - G(C):G(C) - F(L):C » C 

+1: IF C < 5 THEN 1330 
1370 V - V(L) :L = L + 1: IF L = 

M THEN C - INT (P(L - 1) / 32 
):G - G(C):MD - 32:G(C) - FN M 
D{P(L - D): GOSUB 210: RETURN 

1372 IF L < M - 2 THEN GOSUB 
1510 

1380 RETURN 

A rotina que vai da linha 1200 ã li- 
nha 1380 é responsável pela manipula- 
ção dos gansos. Uma parte dela — li- 
nhas 1220 a 1290 — é utilizada quando 
o jogador controla os gansos. Quando 
esse controle cabe ao microcomputador, 
as linhas 1320 a 1380 encarregam-se da 
manipulação. 



410 LET V-H: FOR A-X (F) TO 1 
STEP -1: LET X-M(A,F)i IF FN X 
(X) THEN NEXT A: LET L-l : 
RETURN 

420 LET B-F: LET F-X: GOSUB 
210: LET V-P: LET F-B: LET L-l 
: RETURN 

510 LET V-E: FOR C-l TO 4: LET 
G-G(C): IF -B(G)>V THEN OOTO 
530 

520 FOB A-l TO ZtG): LET X-M(A 
,G) : IF FN X(X) OR (X-F) THEN 
NEXT A: GOTO 530 
52B LET V-B(X)-B(G): LET D-C: 
LET B-X 

530 NEXT C: LET G-G(D): LET G( 
DJ-B: GOSUB 210: LET V-P : LET 
G(D)-G: RETURN 



410 V-R:FOR A-X(F)TO 0 STEP -1: 
X-M(A,F):IF FNX(X)<0 THEN NEXT: 
L-l: RETURN 

420 B-F: F-X: GOSUB 2 1 0 : V-P : F-B : L 

-1:A-0:NEXT:RETURN 

510 V-E:FOR C-l TO 4:G-G(C):IF 

-B(G)>V THEN 530 

520 FOR A-0 TO Z (G) : X-M (A.G) : IF 
FNX(X) OR X-F THEN NEXT : GOTO 5 
30 

528 V-B(X)-B(G) :D-C:B-X 

S30 NEXT:G-G(D) ■ G £ D] -3 : GOSUB 21 

0:V-P:G(D)-G:IF 8G-1 THEN O(D)- 

B:C-D 

540 RETURN 



410 U-H:FOR A-X(F) TO 0 STEP-1:. 
X=M(A,F):IF FNX(X)<0 THEN NEXT: 
L- 1 ' RETURN 

420 B-F:F-X:GOSUB 210 :U-P : F-B : L 
= 1 : A-0 : NEXT : RETURN 
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520 FOR A-0 TO 2 (G) : X-M CA ,G) : IF" 
FNXfX) OR X=F THEN NEXT : GOTO 5 
30 

528 y-B(X)-B(G) :D-C:B-X 

530 NEXT:G-G(D) :G (D) -B rGOSUB 21 

0:V-P:G(D>-G:IF SG-1 THEN G (D) - 

B:C-D 

54 0 RETURN 

410 U - H: FOR A - X{F) TO 0 ST 
EP - 1:X - M(A.F) ! IF FN X(X) 
< 0 THEN NEXT : £. - 1 : RETURN 



V são determinadas da forma já descri- 
ta. Nos dois casos, a instrução GOSUB 
210 escolhe o melhor movimento entre 
os que são avaliados. 



A TABELA Di POSIÇÕES 




1.51.0 GOSUB 210! LET C-P 

1520 LET C-C-INT ( {C7HF+C) -C) *H 

F: IF C<0 OR O-HF THEN GOTO 1 



1660 V— S(A)MR(A>=P) :A-C+C:NEX 
T : RETURN 

1810 SCREEN 1,0:PUT(XX,YY)-ÍXX+ 
19.YY+19) ,SQ.NOT:FOR 2-1 TO 100 
: NEXT 

1820 PUT(XX,YY)-[XX+19,YY+19) ,S 
Q.NOT 

1830 KS-INKEYS:IF KS-**" AND YY 
>8 AND XX>8 THEN YY-YY-20 : XX = XX 
-20:GOTO 1810 

1840 IF KS-CHRSU0) AND YY<129 
AND XX<129 THEN YY-YY+20 : XX*XX+ 
20:GOT0 1810 

1B50 IF KS-CHRS(S) AND XX>28 TH 

EN XX-XX-40:GOTO 1810 

1860 IF KS-CHRSI9) AND XX<128 T 

HEN XX-XX+40:GOTO 1810 

1870 IF KS-CHRSI13) THEN RETURN 

1875 IF K3-"Q" THEN YY-0:XX— 12 

: RETURN 

1880 GOTO 1810 



ff/i 

'1510 GOSUB 210:O-P 
1520 C-C-INT < (C/HF+C)-C)*HF: IF 
C<0 OR O-HF THEN 1520 
1550 FOR A-C TO C+C:IF RtAJOO 
AND R{A)OP THEN NEXT : RETURN 
1560 R{A)-P:S(A)-V:A-C+C:NEXT:R 
ETURN 

1610 GOSUB 210:C-P 

1620 C-C-INT((CHF+C)-C)«HF:IF 

C<0 OR O-HF THEN 1620 

1.650 FOR A-C TO C+C:IF R(A)O0 




420 B - F:F - X: GOSUB 210:V - 
P:F - B:L - 1:A - 0: NEXT : RET 
URN 



510 V = E: FOR C»1T0 4:G=C 
(C) : IF - B(G) > V THEN 530 
520 FOR A - 0 TO 2{G) :X - M (A . 
G) r IF FN X(X) OR X *■ F THEN 
NEXT : GOTO 530 

528 V - BtX) - B(G):D = C:B = X 

530 NEXT :G - G(D):G(D1 - B: G 
OSUB 210:V - P:G(D1 ■ G: IF SG 
- 1 THEN G (D) - B:C - D: 
540 RETURN 

Essas sub-rolinas são usadas apenas 
quando o computador está nos meno- 
res níveis de dificuldade e analisam ape- 
nas o próximo movimento. 

As linhas 410 e 420 analisam todos 
os movimentos possíveis para a raposa, 
usando o mapa da matriz M, montada 
a partir da linha 2110. A sub-rotina de- 
volve um valor P (configuração após a 
melhor jogada) e um valor V (avaliação 
do melhor resultado). 

As linhas 5 10 e 530 funcionam de ma- 
neira similar às anteriores, só que se en- 
carregam dos gansos. As matrizes P e 



520 

1550 FOR A*C+1 TO C+4 : IF R (A) < 
>0 AND R(A)OP THEN NEXT A- RE 
TURN 

1560 LET R(A)=P: LET S (A) =U : RE 
TURN 

1610 GOSUB 210: LET C-P 

1620 LET C-C-tNT í (C/HF+CJ -C) «H 

F: IF C<0 OR C>=HF THEN GOTO 1 

620 

1650 FOR A-C+l TO C+4: IF R (A)< 
>0 AND R(A)OP THEN NEXT A: LE 
T U-0: RETURN 

1660 LET V-S(A)» (R <A) -P> : RETUR 
N 



D 



1510 GOSUB 210:C-P 

1520 C-C-INT (<C/HF+C)-C) «HF : IF 

C<0 OR O-HF THEN 1520 

1550 FOR A-C TO C+C:IF R (A) <>0 

AND R(A)OP THEN NEXT : RETURN 

1560 R(A)-P:S(A)-V:A-C+C:NEXT:R 

ETURN 

1610 GOSUB 210:C-P 

1620 C-C-INT{(C/HF+C)-C)'HF:IF 

C<0 OR O-HF THEN 1620 

1650 FOR A-C TO C+C:IF R(A)<>0 

AND R{A)OP THEN NEXT : U-0 : RETUR 
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AND B(A)OP THEN NEXT : V = 0 : RETUR 
kl 

1660 V--S(A) * (H (A) -P) : A-C+C:NEX 
T : RETURN 

1810 LINE (XX,YY-2)-(XX+19.YY+l 
7),14.BF:F0R 2*1 TO 100:NEXT 
1820 LINE {XX.YY-2)-{XX+]9,YY+l 
7).3,BF:F0R 2=1 TO 200:N£XT 
1830 KS-INKEYS:IF K$-CHRS(30) A 
ND YY>18 AND XX> 1 8 THEN YY-YY-2 
0:XX-XX-20:GOTO 18] 0 
1840 IF K$=CHn${3I) AND YY<141 
AND XX0 41 THEN YY-YY+20 : XX-XX+ 
20: GOTO 1810 

1850 IF KS-CHBSÍ29) AND XXX3B T 

HEN XX-XX-40:GOTO 1B10 

1860 IF KS-CHR5(2B) AND XX<138 

THEN XX-XX+40 :GOTO 1B10 

1870 IF KS-CHRSU3) THEN RETURN 

1880 GOTO 1B10 



1510 GOSUB 210:C ■ P 

1520 C - C - INT (<C / HF + C) 

- C) * HF: IF C < J OB C > = 
HF THEN 1520 

1550 FOR A - C TO C + C: IF R t 
A) < > 0 AND R (A) < > P THEN 

NEXT : RETURN 
1560 R(A) » P:S(A) - V:A - C + 
C: NEXT : RETURN 
1610 GOSUB 210:C - P 
1620 C - C - INT ((C / HF + C) 

- C) « HF: IF C < 0 OR C > - 
HF THEN 1620 

1650 FOR A • C TO C + C: IF R ( 




A) < > 0 AND R (A) < > P THEN 

NEXT :V => 0: RETURN 
1660 V - S(A) * (R (A) = P) :A = 
C + C: NEXT : RETUBN 
1810 XO - XX:Y0 - YY 
1820 HCOLOR- 0: GOSUB 1890: HC 
OLOR- 3:X0 - XX : YD - YY: GOSUB 
1890 

1830 GET KS: IF KS ■ "A" AND Y 
X > Yl + 5 AND XX > XI + 5 THEN 
YY - YY - 20:XX - XX - 20: GOT 
O 1820 

1840 IF K$ = "Z" AND YY < Y2 - 

38 AND XX < X2 - 38 THEN YY - 
YY + 20:XX - XX + 20: GOTO 1820 

1850 IF KS = GHR3 (8) AND XX 
> XI + 21 THEN XX = XX - 40: GO 
TO 1820 

1860 IF KS - CHRS (21) AND XX 
< X2 - 45 THEN XX - XX + 40: G 
OTO 1820 

1870 IF KS = CHBS (13) THEN 
HCOLOR= 0: GOSUB 1890: RETURN 
18B0 GOTO 1820 

1890 HPLOT XO + 1,Y0 + 1 TO XO 
+ 19, YO + 1 TO XO + 19, YO + 18 
TO XO + 1.Y0 + 18 TO XO + 1,Y0 
+ l! RETURN 

Nos níveis de maior dificuldade será 
necessário usar o algoritmo alfa-beta — 
veja o primeiro artigo da série (página 
872). Na verdade, ele já foi digitado co- 
mo parle das rotinas de movimentação 
da raposa e dos gansos. 

Antes de utilizá-lo, porém, o progra- 
ma verifica se ele é necessário no mo- 
mento — será o nível de dificuldade su- 
ficientemente alto para justificar o seu 
emprego? 

A rotina das linhas 1 1 10 a 1 150 cui- 
da da raposa, enquanto a rotina das li- 



nhas 1310a 1350 dedica-se ao quarteto 
de gansos. 

O algoritmo é aplicado quando se 
executa o último leste IF, no fim das li- 
nhas 1 150 e 1350, depois de V(M) ter si- 
do adequadamente definida, de acordo 
com o nível de dificuldade. 

O algoritmo alfa-beta é mais eficien- 
te quando o computador discrimina 
quais são os melhores movimentos rea- 
lizados inicialmente — para os gansos, 
o quadrado de número mais alto de ca- 
da fileira de quatro; para a raposa, o 
quadrado aberto a ela mais próximo do 
lado dos gansos. 

O algoritmo alfa-beta é usado em 
conjunto com uma tabela construída em 
função de movimentos que já foram 
considerados. Assim, o computador po- 
de se decidir mais rapidamente, quan- 
do se traia de uma jogada já estudada. 
Quanto maior for o tamanho da tabela 
que é possível montar no computador, 
mais rápido será o processamento. 

Inicialízada nas linhas 2500, 2750 e 
2800, a tabela tem seu tamanho ideal de- 
finido por meio de valores teóricos. Ela 
foi dimensionada, no entanto, no limi- 
te da memória RAM disponível em ca- 
da microcomputador. 

A tabela é zerada nas linhas 1110 e 
1 3 1 0; o conteúdo é veri ficado nas linhas 
1122 e 1322 e definido nas linhas 1172 
e 1372. 

O TRS-Color e o MSX usam um cur- 
sor para indicar as jogadas a serem exe- 
cutadas com as setas. O cursor do Ap- 
ple é movido para a esquerda e para a 
direita com as setas, e para cima e para 
baixo com as letras A e Z. 
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A AIRA 
MARCIANA (1) 



■ 


0 "ENREDO" 


■ 


DEFINIÇÃO DOS GRÁFICOS 


■ 


FREDDY, AS FLECHAS, 


OS BALÕES E A ARANHA 


■ 


INICIALIZACÃO DO JOGO 



i 



Uma enorme e assustadora aranha está 
pronta a atacar Freddy. Sem uma boa 
dose de precisão e sangue-frio, ele 
não escapará. Mas não se assuste: tudo 
não passa de um terrível pesadelo. 



O jogo A Aranha Marciana será mon- 
tado em dois artigos. Neste, os desenhos 
são definidos e o programa inicializado. 
No próximo, o jogo passa a funcionar, 
com a adição das últimas rotinas. 



O ponto inicial para a montagem de 
um jogo é a criação de aigum tipo de en- 
redo, ou mesmo de um personagem em 
torno do qual a ação se desenvolva. 

Neste jogo, nosso personagem é 
Freddy, um limpador de janelas que tem 
um medo doentio de aranhas. Ele pro- 
curou vários especialistas que tentaram, 
em vão, curá-lo da fobia. O problema 
chegou a uma tal gravidade que Freddy 
passou a ter sempre o mesmo pesadelo. 
Nele aparecem uma aranha marciana — 
particularmente grande, faminta e de 
aparência horrível — , uma coleção de 
balões, um arco e uma flecha. 

Com frequência, efe acorda banha- 
do em suor, após ler sonhado que esta- 
va em sua escada, tentando desespera- 
damente flechar balões que, se atingis- 
sem a gaiola da aranha, acima de sua ca- 
beça, destravariam a porta que aprisio- 



na o monstro. Ajude Freddy a estourar 
os balões, ou ele terá um trágico fim, co- 
mo almoço de uma horrenda aranha! 

Temos, assim, um enredo. Com re- 
lação aos pontos, eles serão dados 
cada balão estourado. Mas, mesmo que 
Freddy consiga interceptar todos os ba- 
lões, seu problema não estará resolvido 
a tortura continuará num nível de difr 
cu Idade ainda maior com balões mais 
rápidos. Se deixar que três deles passem, 
a aranha marciana sairá da gaiola. 



Nosso jogo requer a animação dé 
quatro figuras: a aranha, que se movi- 
menta na vertical e na horizontal; 
Freddy, que se move só na vertical; o I 
Ião, que pode aparecer em qualq 
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ponto da parte inferior da tela, mas que 
também se move na vertical, e a flecha. 
Esta normalmente se move na horizon- 
tal, mas acompanha o movimento ver- 
tical de Freddy. 

As figuras de maior interesse são a 
aranha e o balão. Muitas variáveis es- 
tarão associadas a elas, e será útil arma- 
zená-las em uma matriz unidimensional 
e usar uma constante como referência. 



Além do movimento, precisamos de- 
finir o desenho de todas as diferentes fi- 
guras — animadas ou não — que apa- 
recerão na tela. Como nos melhores jo- 
gos de computador, elas devem ser co- 
loridas. Freddy será montado em um 
bloco gráfico de três por dois caracte- 
res. Usaremos outros blocos de dois por 
dois caracteres para definir a aranha, 
um balão inteiro e um balão estourado, 



dois caracteres para o desenho da flecha 
e mais dois para o da escada. Assim, te- 
remos no final cerca de 26 caracteres. 



A primeira parte do programa defi- 
ne os gráficos e inicializa o jogo. 



DEFINIÇÃO DOS GRÁFICOS 



1000 D1M b(6) ! DIM a(7) 

1010 LET xpoB-1: LET ypos-2: LE 

T colour-3: LET pointo-4: LET c 




illlllllllINI » PHOGRAmçÃOOEJOCOS 36 1U||||||||||| 



Olint-5: LET majtcount-6 

1020 LET xinc-3: LET yinc-4 : LE 

T picture-7 

1030 LET dent-65268 

1040 FOB i-0 TO 26*8-1: BEAD j: 

POKE dest+i.j: NEXT i 
1050 DATA 15,63.127,255.255.255 
.255,127 

1060 DATA 240,252.254,255,255,2 
55, 255.254 

1070 DATA 127,63,63.31.15,7,3,6 
1080 DATA 254,252,252,248,240.2 
24 , 192,96 

1090 DATA 32,96,255,255,96,32,0 
.0 

1100 DATA 5.10,252,252,10,5,0,0 
1110 DATA 1,64,17,40,16.0,0,161 
1120 DATA 128,2,136,20,8.0,0,13 



1150 DATA 48.48,48,48,11.1,111,4 
8,48 

1160 DATA 12.12,12.12,246,246.1 
2,12 

1170 DATA 7,31,49,57,127,112,23 
7. Z55 

1180 DATA 224,248.140.204,254.1 
4, 18 3.255 

1190 DATA 127,59,51,99,115,35,6 
, 12 

1200 DATA 254,108,102,51,49,25. 
24,48 

1210 DATA 7,31.49,51,127.112,23 

5.255 

1220 DATA 224,248,140,156.254,1 
4,215,255 

1230 DATA 127.51,50,27,25,50,11 
2,224 

1240 DATA 254,204.108,102,54,22 
,3,6 

1250 DATA 15,31.19.55,55,63,63, 
15 

1260 DATA 240,248.248,252,252,2 
52,252,240 

1270 DATA 251,219,139.219.219,2 
51.247.239 

1280 DATA 252,254,254,254,254,2 
54.254.252 

1290 DATA 95.127,31,31.31,63.12 
7,127 

1300 DATA 188.168,188,188.188,1 
24,252,248 
1310 LET túBcore-0 
'1320 BETURN 



D 



1000 DIM B(6) ,S(7) .NUS(9) 
1010 XP-l:YP-2:PO-4:CT-5:MC-6 
1020 XI-3:YI-4:PI-7 

1022 DIM ADU4) ,EF(4) ,E{4) ,GJ(7 
) .KL (4) ,MP(7) ,f»T(7) ,UZU4) .SP (7 
) ,S1 (4) ,S2(7) , BL (4) 

1023 FMODE 4. 1 : PCLS1 :SG-PEEK (18 
8)*256 

1024 GOSUB 1500 

1025 GET(0,0)-(15,23) ,AD,G:PCLS 
1 



,0)-(7, 7) ,E,G:PCLS1 

1028 GOSUB 1500 

1029 OET(0,0)-(15,15) ,GJ,G:PCLS 

1 

1030 GOSUB 1520 

1031 GET(0.0)-(15,7) ,KL,G:PCL31 

1032 GOSUB 1500 

1033 GET(0,0)-(15,15> ,MP.G:PCLS 



1036 GOSUB 1500:SG*SG+512:GOSUB 
1520:SG-SG-512 

1037 GET(0,0)-(15,23) ,UZ.G:PCL3 
1 

103B G ET (0,0)- (15,15) , SP . G 

1039 GET(0,0)-(7,7) ,81, G 

1040 GET(O.O)- (15,7) ,S2,G 

1041 PCL90 : GET (0,0)-(7,7),BL,G 
1050 DATA 15.63.127,255,255,255 
,255,127 

1060 DATA 240,252,254,255,255,2 
55, 255, 254 

1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,2 
24,192,96 

1090 DATA 32.96,255,255,96,32,0 

.0 

1100 DATA 5.10,252,252,10,5,0,0 
1110 DATA 1,64,17,40,16,0,0,161 
1120 DATA 12B, 2, 136, 20, 8, 0,0, 13 



1150 DATA 48.46,48.48,111,111,4 

1160 DATA 12,12,12,12,246,246,1 
2,12 

1170 DATA 7,31,49,57,127,112,23 
7,255 

1180 DATA 224,246,140,204,254,1 
4,183,255 

1190 DATA 127,59,51,99,115,35,6 
.12 

1200 DATA 254,106,102.51,49,25, 
24,48 

1210 DATA 7.31,49.51,127,112,23 
5.255 

1220 DATA 224,248.140,156,254,1 
4,215,255 

1230 DATA 127,51,50.27,25,50,11 
2,224 

1240 DATA 254.204.108,102,54,22 
,3,6 

1250 DATA 15,31.19,55.55,63.63, 
15 

1260 DATA 240,248.248.252,252,2 
52.252,240 

1270 DATA 251.219,139,219,219,2 
51.247,239 

1280 DATA 252,254,254,254.254.2 
54.254.2S2 

1290 DATA 95.127.31,31,31.63,12 
7,127 

1300 DATA 188,166,188,186,188,1 
24,252,248 
1310 HS-0 
1320 RE TU RN 

1500 FOR. CL-0 TO l:FOB CH-0 TO 
l:FOB L-0 TO 7:BEAD J:POKE SG+C 



L*256+CH+L«32,255-J:NEXT L.CH.C 
L 

1510 BETURN 

1520 FOB CH-0 TO 1 : FOB L-0 TO 7 
: BEAD J:POKE SG+CH+L*32 , 255-J : N 
EXT L.CH 
1530 BETUBN 

1600 DATA R6D8L6U8BR8 , BR6ND8BR2 
, B6D4L6D4B6BB2BU8 , R6D4KL3D4NL6B 
R2BU8 , D4R6D4U8BB2 , NB6D4R6D4L6BE 



1620 FOB 1-0 TO 9 : BEAD NU5(I):N 
EXT 

1625 DRAW"C1;S2" 
1630 RETURN 

1650 NS-STBS (NU) : FOR 12-2 TO LE 
N(N3) 

1660 DI-ASC(MIDS(NS.I2,1))-48:D 
RAW NU$(DI)+"BR2":NEXT I2:BETUB 
N 

1700 COLOB 0:LINE (1 78 , 2) - (200 , 
7) ,PSET,BF:NU-H3:DRAW-C1:BM176, 
2-rGOSUB 1650:RETURN 



1000 DIM B(6) ,S(7) : SCREEN2 , 2 
1005 A1-1:A2-2:BA-3:BE-4:FD-5:F 
L-6 

1010 XP-l:XP-2:PO-4:CT=5:MC-6 

1020 XI=3:YI-4:PI«7 

1030 FOB 1-1 TO 6:AS-"" 

1040 FOR J=l TO 32 

1050 BEAD A: A$ = AS + <:HBS (A) 

1060 SPRITES(I)-A3 

1070 NEXT : NEXT 

1100 DATA 0,0,0,0,7,13,31,18,15 
,10,10,18,10.2,4,0,0.0,0,0,208. 
176,248,72,240,80.60.72,80.64,1 
28,0 

1110 DATA 0,0,0,0,7,13.31,18.1 
5,10.10,9,6,8,4.0,0,0.0.0,208.1 
76,248.72.240,80,80,144,16,16,8 
.0 

1-120 DATA 0,0,0,3,15,31,31.31, 
15, 15,7,3,3,1,0,0.0,0,0,192. 240 
.248.246.248.240,240.224,192,19 
2,128,0,0 

1130 DATA 0,0.0,0.6,4,0.13,1,0 

,4,4,8,0,0,0,0,0,0,16,32,0,0,12 

8,152.0.64,32,0,0.0,0 

1140 DATA 0,3,7,7,3,1,7,15,15. 

15,15,7,3,2,2,1,0,192,224,224,1 

92 , 128 . 224 , 240 , 240 , 240 , 240 , 224 , 

192,192,192,128 

1150 DATA 0,0,0,0,0,0.16.112,2 

55,112,16,0,0,0,0.0,0,0,0.0.0.0 

,8,16,240,16,8,0,0,0,0,0 

1310 HS=0 

1320 RETURN 

Esta parte do programa lè os dados 
das linhas DATA para montar os blocos 
gráficos (UDG ou sprites) do baião e da 
aranha nas matrizes B (ou b) e S (ou s), 
que são dimensionadas na linha 1000. 

As linhas lOlOe 1020 definem os va- 
lores iniciais para os apontadores das 357 



matrizes, antes dos UDG ou sprites se- 
rem montados. As linhas 1030 a 
I040(até 1070, no MSX) fazei 
a leitura dos dados em DATA p , 
e montam os blocos gráficos. Fi 
nalmente, a linha 1310 define o re 
corde como 0. Essa linha é execu- 
tada apenas uma vez. O programa 
para o TRS-Color inclui uma roti- 
na a mais, que começa na linha 1600 
Sua função é desenhar números na 
de alta resolução. 



MCIAUZACÃO DO JOGO 



3000 LET Bcore=0: LET level=l 
3010 LET «y-15 

3020 LET bl-15+5*level : LET ax' 
29: LET ay=16 : LET dead=0 : LET 

3090 GOSUB 5000 
3150 PAPER 0: BORDES 0: CLS 
3160 FOR x=0 TO 28: PRINT AT 3 
x: INK 0; PAPER 6;" * ; AT 0,x;" 
" ! NEXT x: GOSUB 6000 
3170 POKE 23607.60: PRINT AT 0 
0; INK 0; PAPER 6 ; "N-" ; leve 1 ; " 

B-":bl[" "; "SC-" ; açore; AT 0.: 
0;"RE>"ihiscore 
31B0 POKE 23607,252 
3190 FOR y-5 TO 21: PRINT AT y 
30; INK 6i-kl": NEXT y 
3200 POKE 23607,252 
3210 GOSUB 4000 
3220 GOSUB 4200 
3240 BETH RN 
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3000 SC-0:LV-1 
3010 HY-15 

3020 BL-15+5*LV:AX-29:AY-16:DD- 
0:PP-3 

3090 GOSUB 5000 

3150 PMODE 4,1: COLOR 0 , 1 : PCLS : S 
CREEN 1 . 1 

3160 FOR X-0 TO 28 : PUT <X»6 , 24) - 
(X»8+7 , 31 ) , BL , PSET : PUT (X*B , 0) - ( 
X*8+7 , 7) , BL , PS ET : NEXT X : GOSUB 6 
000 

3165 DRAW"S4;BM2,2;C1;D4R3BR2BU 
1R2BU1L2 ; BM48 , 2 :D4R4U2L4R3U2L3B 
R6BD2R2BD1L2;BM100 1 2;L4D2R4D2L4 
BR6NR4U4R4 ; BM160 , 2 ; D4U2R4D2U4BR 
2R4L2D4L2R4;S2" 

3170 DRAW"C1;BM14,2;":NU-LV:G0S 
UB 1650 

3171 DRAWBM58,2;":NU-BL:G0SUB 
1650 

3172 DRAWBM114 
1650 

3173 DRAWBM17B 
1650 

3190 FOR Y-5 TO 21 : PUT ( 240 , Y*8) 
-(255,Y"8+7) . KL . PSET : NEXT Y 
I 3210 GOSUB 4000 



" :NU»SC: GOSUB 
* :NU-HS:GOSU 




3000 SC=0:LV-1 
3010 MY-16 

3020 BL=15+5«LV:AX-29rAY=16:DD- 
0:PP-3 

3090 GOSUB 5000 

3160 LINE (0,0>-<231,3I) , 6 , BF : L 
T NE (0 , 7) - (80 , 24) ,14 , BF : LINE (8 
7, 7) -( 152. 24) ,14, BF : LINE (159,7 
)-(224,24) ,14,BF 
3170 GOSUB 1700 
31B0 GOSUB 6000 

3190 LINE (240,31) - (240, 190) ,1: 
LINE (255,31)~{255. 190) ,l:FOR I 
-2 TO 15:LINE ( 240 , 1*16) -( 255 . 1 
•16) ,1:NEXT 
3210 GOSUB 4000 
3220 GOSUB 4200 
3230 RETURN 

As linhas 3000, 3010 e 3020 zeram o 
placar, inicializam o nível de dificulda- 
de em I e definem uma série de variá- 
veis auxiliares. A linha 3150 determina 
as cores da tela (menos no MSX) e as 
linhas 3160 a 3170 exibem o placar e ou- 
tras informações necessárias. 

O programa do Spectrum inclui um 
POKE na linha 3170 e outro na 3)80. 
A posição de memória 23607 guarda o 
apontador do conjunto de caracteres. 
Normalmente, ela tem o valor 60, que 
aponta para o conjunto de caracteres da 
ROM. Nesse programa, entretanto, o 
valor colocado no endereço 23607 para 
indicar a posição dos caracteres é 252. 
Isso permite ao computador usar as le- 
tras minúsculas, além das maiúsculas e 
dos números, como gráficos. 

O programa reserva uma área da me- 
mória usando CLEAR e .ali coloca os 
UDG. Devido ao seu efeito sobre as sub- 
rotinas, esse comando deve ser utiliza- 
do no programa principal, o que fare- 
mos na segunda parte do jogo. Portan- 
to, se você quiser executar as linhas aqui 
apresentadas, digite antes CLEAR 
65287. 

A linha 3190 se incumbe de desenhar 
a escada, e as sub-rotinas chamadas nas 
linhas 4000 e 4200 desenham, respecti- 
vamente, Freddy e a aranha. 



4000 INK 7: PRINT AT my,30i"uv*, 
i AT my+l,30;"wx":AT ny+2,30;"yz 
:-: IF ax = 29 THEN PRINT AT ay.a 

4010 RETURN 

4110 INK 7: PRINT AT ay,ax;"ef" 
: RETURN 
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As Figuras montadas pelo programa lai como aparecem na tela 
dos microcomputadores da linha Speclrum. 



4000 PUT(Z40,MY*8)-(255,MY*8+23 
),UZ,PSET:IF AX-29 TH EN PUT(AX* 
8,AY*B)-(AX*8+7,AY*8+7) ,E.P3ET 
4010 RETURN 

4110 PUT(AX*8,AY«8)-(AX*8+15,AY 
•8+7) , EF . PSET : RETURN 



mi 

4000 PUT SPRITE Z , (240 , MY*8) . 1 . 
FD:IF AX = 29 THEN PUT SPRTTE 3,{ 
AX«8,AY*8) ,4,FL 
4010 RETURN 

4110 PUT SPRITE 3. (AX"8,AY*8) .4 
■ FL ■ RETURN 

Essa rotina desenha Freddy sobre a 
escada e sua flecha. A posição do nos- 
so personagem é determinada pelo va- 
lor de MY. A flecha, por sua vez, é de- 
senhada pela linha 41 10 na posição da 
tela indicada pelos valores de AX e AY. 



A ARANHA MARCIANA 




4200 IF s (Picture) -1 THEN GOTO" 
4250 

4210 PRINT AT a (ypoB) . s (xpoa) ; " 
mn";AT a (ypoa) +1 , 3 (xpoa) ; "op" ; 
RETURN 

4250 PRINT AT a <ypon) . s (xpoa) j " 
qr" : AT a (ypoa) +1 , a (xpoa) ; "Bt" : 
RETURN 



□ 

4200 X2-S(XP)*8:Y2-S(YF)*8:IF S 
EPD-l THEN 4250 



4210 PUT(X2,Y2)-(X2+15,Y2+15) ,M 

P . PSET : RETURN 

4250 PUT(X2,Y2)-(X2+15,Y2+15) .Q. 
T , PSET : RETURN 



m 

4200 X2=S(XP)*B:Y2=S(YP)*S:IF S' 
(PI)=1 THEN 4250 

4Z10 PUT SPRITE 1 , (X2 , Y2) , 12 , Al 
: RETURN 

4250 PUT SPRITE 1 , (X2 , Y2) . 12 , A2 
: RETURN 

A rotina que desenha a aranha se as- 
semelha à anterior, exceto num detalhe: 
duas imagens são usadas para essa figu- 
ra. Colocadas alternadamente no mes- 
mo lugar da tela, pelas linhas 4210 e 
4250, simulam o movimento das pernas 
da aranha. 



SOBEM OS BALÕES 




4300 PRINT AT b (ypoa) , b (xpoa) ; 
BRIGHT 1; 1NK b (colour ) ; "ab" ; AT 
b (ypoa) +l.b (xpoa) i"cd": RETURN 

5000 LET range=INT (RND*6) 

5010 LET b(xpoa)-(4*range)+INT 
(RNDM) 

5020 LET b(ypoa)-20 

5030 LET b(maxcount)-5-level 

5040 LET b(count)-l 

5050 LET b(colour)«INT (RND*5)+ 

3 

5060 LET b(pointa)-10-range 
5070 RETURN 

Q 

4300 X2-B(XP)*8:Y2-B(YP)*8:PUT{ 
X2,Y2)-(X2+15,Y2+23) ,AD. PSET:RE 



TURN 

5000 RG-RNDÍ6)-! 

5010 B(XP)-(4*RG)+RND(4)-1 

5020 B(YP)-20 

5030 B(HC)-5-LV 

5040 B(CT)-1 

5060 B(PO)-10-RG 

5070 RETURN 



fífi 



4300 X2=B{XP)*8:YZ«B(YP)«8:PUT 

SPRITE 4, (XZ.YZ) ,9,BA:RETURN 

5000 RG-INT(HND(1)"6) 

5010 B(XP)-(4*RG)+INT(RND(l)-5) 

5020 B(YP)-20 

5030 BIMO-5-LV 

5040 B(CT)-1 

5050 B(PO)=10-RG 

5070 RETURN 

A linha 4300 simplesmente desenha os 
balões na tela. As linhas restantes encar- 
regam-se de inflar um balão toda vez que 
um outro estourar ou alcançar a gaiola 
da aranha (os balões podem aparecer em 
qualquer um dos seis pontos da parte in- 
ferior da tela, flutuando em seguida pa- 
ra cima, na direção vertical. A variável 
MAXCOUNT (ou, ainda, maxeount ou 
MC, conforme o computador) determi- 
na o quanto o balão se moveu, ou seja, 
o nível que ele atingiu. Em seguida, o 
programa define a cor do balão e seu va- 
lor em pontos. Este dependerá de sua 
proximidade da escada de Freddy. 



AS PORTAS 




6000 IF levelOl THEN POKE 236' 
07,60: PRINT AT s (ypoa) , a ( xpoa) 

i" " ;AT a (ypoa) +1. a (xpoa) i" " 

: POKE 23607,252 

6010 FOR x-10 TO 30 STEP 9 

6020 PRINT INK 6;AT l.x;"" ; AT 

2,x;"" 

6030 NEXT x 

6040 LET B(Xpoa)"l: LET B(ypoaj 
-1: LET o(xinc)-l: LET a(yinc)" 
0: LET a(count)-4: LET s (naxeou 
nt)-4: LET a (picture) -1 
6050 RETURN 

D 



0000 IF LVOl THEN X2-S(XP)"8rY 
2«S(YP)*8:PUT(XZ.YZ)-(XZ+15,Y2+ 
15) , SP, PSET 

6010 FOR X-10 TO 30 STEP 9 
6020 PUT(X*B,8)- (X»8+7,15) ,BL,P 
SET:PUT(X*8,16)- (X"B+7,23) ,BL,P 
SET 

6030 NEXT X 

6040 S(XP)-1:S(YP)-1:S(XI)-1:S(. 
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YI)-0:S(CT)-4:S(MC)-4:S(PI>-1 
6050 BE TU BK 



fto 

6000 S(XP)-1 :S(YP)=1 !S(XI>-1:S(. 
YI)-0:SCCT>»4:S(MC)*4:S{PI)=1 
6010 RETUBN 

Três portas fecham a gaiola da ara- 
nha, para mantê-la presa. Os usuários 
do Spectrum notarão que o caractere lis- 
tado como ? é, de fato, um quadradi- 
nho gráfico, obtido com a tecla 8 em 
modo gráfico. 

A primeira seção do programa defi- 
ne os gráficos e inicializa o jogo. 



A INICIALIZAÇÃO 



1000 DIM B(6) ,S17) ,NUS<9) : SCA 
LE- 1: ROT" 0: HCOLOB- 3 
1010 XP - 1:YP - 2:PO - 4:CT - 
5 ! KC - 6 

1020 XI - 3 : YI - 4 •. PI - 7 
1025 Al = 1:A2 * 2 : BA - 3 : BE - 
4 : FD - 5 : FL - 6 

1030 DATA 6,0,14,0.75,0,136, 
0,1, 1.21 , 1. 15B. 1 

104 0 RATA 4 5 , 45 ,45 ,45 , 77 . 58 . 
63,63,63.63.63,63.55,173,240 
1050 DATA 43,45,45.44.45,53.4 
5,37.45,62,54,63,63.63,63,63,63 

1060 DATA 10,62,62,62,54,109. 
145,37,17,36,36,100,73.17,54,54 

1070 DATA 54,53,109,193,193,1 

93.45.36,39,39,36.0 

1080 DATA 45.45.45,45,117.57 

.63.63.63.63.63,63,55,45,2 22 

1090 DATA 45,45. 37, 45, 45, 46, 4 

5.44,53.55.62,63.63,63,63.63,39 

.151 

1100 DATA 49,54.62,62,62,79,7 
3.72,1,193,193.39.39,108,73 
1110 DATA 9.54,55.183.74,73,7 
3. 39, 39, 39. 36, 36. 0 
1120 DATA 45,45,45.53.63,63, 
63, 63, 55, 45, 45. 45, 45, 45, 44, 54 
1130 DATA 63, 63, 63, 63. 63, 63, 5 
5,45,45,45,45.45,45,45,44.54.63 

1140 DATA 63,63,63,63,63,63,5 
5.45.45,45,45,45,45.45.53.63 
1150 DATA 63,63.63,63,63,63.5 
5,45.45,45,45,45,45,45.53,63,63 

.63 

1160 DATA 63.63.63,63.46,45. 
45.45,45,45,45,62.63.63,63,6.3.6 

,3 

1170 DATA 55. 45. 45, 45, 45, 45, 5 
3,63.63,63.63.63,46.45,45.45.45 
.62 

1160 DATA 63.63.63,55,45.45.4 
■5,53,63.63,55,62,87.73,73,8.39. 



1190 DATA 46, 11.0,9.4 4, 172 , 146 
.57.223,219.59.191 , 146,45, 37, 77 
.9,53,46,45,0 

1200 DATA 45, 45, 45, 53, 63, 63. 
63,63,46.45,45,45,45.44.54.63 
121.0 DATA 63.63,63,63.46,45.4 
5 ,45 , 45 , 62 , 63. 63 , 63, 55 ,45 . 45 
1220 DATA 45 . 45. 222 ,63 ,63 , 62 . 
63,63.46,45,45,37,45.45.45.45.5 
3 ,63 ,63 

1 230 DATA 63 , 63 , 62 , 63 ,63 ,63 ,4 
6,45,45.45,37,45,45,45.53,63 
1240 DATA 63,63,62.63,63,63 
,63,46.45.45.4 5,45.45.44,45.53 
1250 DATA 63,55,62,63,63.63.6 
3,60.54,45,45,45,45,45.62,63,63 

1255 DATA 63.63.46,45,45.45.5 
3. 63, 63, 63, 63, 46, 45. 45, 45, 62, 63 
,63,55 

1260 DATA 45,45,45,62,63,63.4 
6,45,45,62,63,63,55.45,45.45,5, 
0 

1270 DATA 45,44.54. .119, 33. 36 
,44.54,54.37.36,172,42,45.45,45 
,45,5,0 

1280 FOR I - 16384 TO 1681.6: fí 

EAD C: POKE I.C: NEXT 

1290 P - 233: POKE P.64: POKE P 

- 1,0 
1300 HS ■ 0 
1310 BETURN 

Essa parte do programa lê os dados 
das linhas DATA para montar, nas ma- 
trizes B e S (dimensionadas na linha 
1000), os blocos gráficos do balão e da 
aranha. 

As linhas 1010 a 1025 determinam os 
valores iniciais para os apontadores das 
matrizes. As linhas 1280 a 1290 fazem 
a leitura dos dados em DATA (linhas 
1030 a 1270) e a montagem dos blocos 
gráficos. Finalmente, a linha 1310 defi- 
ne o recorde como 0. Essa linha será exe- 
cutada apenas uma vez. 

Adicione agora este programa: 
3000 SC = 0:LU = 1 
3010 MY - 15 

3020 BL = 15 + 5 * LV:AX - 28:A 
Y » 16:DD - Q:PP = 3 
309Q GOSUB 5000 
3150 HGB : GOSUB 1700 
3160 FOR Y - 0 TO 3: HPLOT 0.Y 
TO 234, Y: HPLOT 0.Y + 23 TO 23 
4,Y +-23: NEXT 

3170 FOR X - 0 TO 3: HPLOT X + 
77,3 TO X + 77.23: HPLOT X + 1 
54,3 TO X + 154,23: HPLOT X + 2 
31,3 TO X + 231.23: NEXT 
3175 GOSUB 6000 
3180 HPLOT 235,25 TO 235.160: 
HPLOT 255,25 TO 255,160 
3210 GOSUB 4000 
-3220 GOSUB 4200 
3240 RETUBN 

As linhas 3000, 3010 e 3020 zeram o 
placar, inicsalizam o nível de dificulda- 
de em 1 e definem uma série de variá- 
veis auxiliares necessárias ao jogo. As 
linhas 3160 a 3180 mostram o placar e 



outras informações. A linha 3190 dese- 
nha a escada, e as sub-rolinas chama- 
das nas linhas 4000 e 4200 desenham, 
respectivamente, Freddy e a aranha. 

A rotina seguinte desenha Freddy na 
escada e sua flecha. A posição do nos- 
so personagem é determinada pelo va- 
lor de MY. A flecha, por sua vez, é de- 
senhada pela linha 4110 na posição da 
tela indicada pelos valores de AX e AY. 

4000 DBAW FD AT 240 , MY * B: 1F 

AX = 28 THEN DRAW FL AT AX * 
B.AY * B 
4010 BF.TIJBN 

4110 DRAW FL AT AX * B,AY * 8: 
RETUBN 



A ARANHA MARCIANA 



4200 X2 - S(XP) * 8:Y2 - S(YP) 
- 8: TF SÍPI) = 1 THEN 4250 
4210 DRAW Al AT X2.Y2: RETURN 

4250 DRAW A2 AT X2.Y2: RETURN 

A rotina que desenha a aranha é mui- 
to parecida com a anterior, exceto por um 
detalhe: duas imagens são usadas para es- 
sa figura (Al e A2). Elas são colocadas 
alternadamente no mesmo lugar da tela, 
pelas linhas 4210 e 4250, simulando que 
as pernas da aranha se movem. 
4300 X2 - B(XP) ■ 8:Y2 - (B(YP) 
+1) «8: HCOLOR- 0: DBAW BA A 
T X2.Y2: HCOLOR- 3:Y2 - B(YP) * 

8: DBAW BA AT X2.Y2: RETURN 
5000 RG - INT { RND (1) * 6) 
5010 B(XP) - {4 * RG) + INT ( 
BND (1) * 5) 
5020 B(YP) - 20 
5030 B(MC) • 5 - LV 
5040 B(CT) * 1 
5050 B(PO) - 10 - BG 
5070 RETUBN 

A linha 4300 desenha os balões na te- 
la. As linhas restantes encarregam-se de 
inflar um balão toda vez que um deles 
estourar ou alcançar a gaiola da aranha. 

Os balões aparecem em qualquer um 
dos seis pontos da parte inferior da te- 
la, flutuando em seguida verticalmente. 
A variável MC determina o nível que o 
balão atingiu. Por fim, o programa es- 
tabelece o valor, em pontos, do balão, 
segundo sua proximidade da escada. 

A rotina final dessa parte do jogo é 
responsável pela coniagem do número 
de portas (máximo de três) que estão 
mantendo a aranha dentro da gaiola. 

6000 IF LV < > 1 THEN X2 = SI 
XP) * 8:Y2 = S(YP) * 8: DRAW AL 
GUMACOISA 

6040 3{XP) = 1:S{YP) = 1:31X1} 
= 1:SÍYI) = 0:3{CT) = 4:S(MC) ■ 

4:S{PI) - 1 
6050 RETURN 
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O JOGO 
DA VIDA 



AS REGRAS DA VIDA 
A DISPOSIÇÃO INICIAL 
DA COLÓNIA 
COMO CRIAR UMA COLÓNIA 
0 PROGRAMA EM CÓDIGO 



Programe seu micro para simular a 
eterna luta dos seres unicelulares 
pela vida. Depois, desafie um parceiro 
para jogar- O arranjo inicial da 
colónia de bactérias definirá o vencedor. 



Neste fascinante jogo, o vídeo repre- 
sem a uni unindo bidimensional, onde 
células podem viver, muliipliear-se e 
morrer. OJogoda Vida, como é deno- 
minado, foi inventado por ura cientista 
Inglês liá alguns anos. para ser jogada 
cm um tabuleiro como O de xadrez. Em 

sua versão computadorizada, bastante 
popular enire os usuários ile microcom- 
putadores, a leia é dividida em um pa- 
drão quadriculado (invisível para o jo- 
gador)- fada quadradinho pode abrigar 
uma célula — uma bactéria, por exem- 
plo. I ssa célula terá, de acordo com sua 
disposição no diagrama, até um máxi- 
mo de oito \ Ezmhos. 

\s regras do Jogo <iu ' 'ida determi- 
nam Quando uma célula deve sobrevi- 
ver ou morrer, e. também, quando uma 
nova célula deve nascei. São elas: 

• Uma célula nasCS sempre que existe 
um espaço cercado por cxatameuie três 




• As eélulas que não se enquadrarem nas 
situações anteriores morrem. Era um es- 
paço com mais de três vizinhos, por 
exemplo, supõe-sc que faltará alimento 
ou oxigénio paia todas as células. 

Baseado nessas regras, o programa 
determina o futuro de cada quadrado na 
leki e mostra como a colónia inicial, 
montada pelo jogador, se desenv olve de 
geração para geração. Cada geração 
corresponde a um ciclo completo de cál- 
culos para todo o quadriculado. 

Dependendo do tamanho da grade — 
ou seja. do numero de quadradinhos — , 
0 calculo de uma geração sera niuilo de- 
morado se se utilizar um programa es- 
crito em linguagem BASIC. l'or isso. 
montamos o programa em linguagem de 
maquina, o que lhe permitirá observar 
uma geração da eolõnia a cada segun- 
do, aproximadamente. 

Como as gerações são exibidas em 

cores diferentes, o efeito \ isual é muito 
interessante. Voei vera, na icia. como 
as colónias se espalham, mudam, frag- 
mentam-se em unidades menores, mor- 



VI) 



Cabe ao jogador estabelecer o padrão 
inicial, entrando as posições das primei- 
ras células. Um dos objetivos do jogo 
consiste em criar uma colónia que dure 
o maior número possível de gerações — 
o programa informa quantas gerações 

a pena competir simplesmente para ver 
quem compõe a colónia com eleito mais 
interessante. Existem alguns padrões, 

por exemplo, que se deslocam em uma 
direção, recriando sua forma original a 
cada quatro ou einco gerações, com um 
efeito adicional: a eliminação de Unias 
as células que vão sendo encontradas no 
caminho. 

Você poderá aproveitar tal efeilo pa- 
ra desenvolver um jogo em que dois 
oponentes montam formas "devorado- 
ras", ganhando aquele que destruir mais 
depressa a colónia do out.ro. 



uagem BASIC qi 

s POKh. e t SK. 



A fornia inicial da colónia é funda- 
mental para o desenrolar do jogo. Al- 
guns padrões condenam a colónia ao 
fim após algumas gerações; outros pos- 
sibilitam sua sobrev ivência por centenas 
e centenas de gerações, t erias compo- 
sições determinam, ainda, que a coló- 
nia oscile entre um padrão e outro en- 
quanto durar a simulação. 



5 OLEAR 2B671: FOR N=USR "A 
■ TO USR -A-+7: HEAD A : 
POKE N . A : NEXT N 

6 DATA 0.24.60.102,102.60.24 
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DADOS NA LINHA " ; L : STOP 
230 LET L-L+10 
240 NEXT N 
250 RETURN 

500 DATA 33,25,117.1.211,3,62, 
32.484 

510 DATA 119.35,13.32.249.5. 
242 ,6, 701 

520 DATA 112,33,46.46,34.0,113 
,34,422 

530 DATA 2,113.33,48.117.34, 
252,112.711 

540 DATA 33, 248. 11B, 34.254,112 
.201.243.1243 

550 DATA 42,252,112.6,1.197,88 
,6,704 

560 DATA 8.80.62.22,215.123, 
215.122.847 

570 DATA 215,126,35,254.32,40. 
10.214.926 

580 DATA 142.245,62,16,215,241 
,215,62,1198 

590 DATA 144.215,4,120,254.31, 
32,233.1033 

600 DATA 193.4.120.254.21.32, 
214.42,880 

610 DATA 252,112.237.91,254, 

112.229.213,1500 

620 DATA 1,200.1,197,221.33.4, 

113.770 

630 DATA 1,0,7.213.221,94.0. 
221, 757 

640 DATA 86,1.229,25,235,225. 
26,254.1081 

650 DATA 32,209,40.1.12.221.35 
.221, 771 

660 DATA 35,5.242.107.112.126. 
254,144.1025 

670 DATA 121.56,18,254.2,40.4. 
254, 749 

680 DATA 3.32,14.126.254.32.32 
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760 DATA 215, 62, 2, 215, .13, 0,11.1 
.62, 702 

770 DATA 16,215.62.6,215,6,4. 
126.650 

761) DATA 35.215.16,251,58.251, 
112,60,998 

790 DATA 254,151.32.2.62,144. 
50.251.946 

800 DATA 112.62.127,219,254,31 
.218,40.1063 

810 DATA 112,251.201.149,248. 

118,48. 117, 1244 

820 DATA 48.49,54.49.233.255, 

234.255,1177 

830 DATA 1.0,24.0.23,0.22,0.70 
840 DATA 255.255,232.255,0,0,0 
.0,997 



10 CLS0:CLEAB 200.30999 

20 FOR K-0 TO 11:T-0:FOR J-0 TO 

16 : READ A:POKE 310OO+K*17+J, A : 
T-T+A: NEXT : READ S 
30 IF TOS THEN PRINT* ERRO NOS 

DADOS DA LINA"íl000+K*lO;"NAO 
CORRA O PROGRAMA ! ! " : END 
40 NEXT 

50 CLS 0:FOR K-0 TO 3 : PRINT 8K* 

32, "geração" ; :POKE 31203+K,4S:N 

EXTiPOKE 65475,0 

60 PMODE 3.POKE 179,128:PCLS 

70 DEFUSRO-31000 

80 X«2064:Y«1 

90 P-PEEK(X) :POKE X, (P OR 5"Y)A 
ND(NOT<P AND 5*Y) ) 
100 AS-INKEYS:IF AS"" " THEN 90 
110 POKE X,P 

120 IF AS-""" AND X>1183 THEN X 
-X-32 

130 IF A3-CHRS(10) AND X<3040 T 
HEN X-X+32 

140 IF AS-CHRSI8) AND {X>1152 O 

R<X-1151 AND Y-l) ) THEN Y-Y+1:I 

F Y>2 THEN Y-1:X-X-1 

150 IF A3-CHRS<9) AND (X<3071 O 

R(X-3071 AND Y-2) ) THEN Y-Y-l : I 

F Y<1 THEN Y-2:X-X+1 

160 IF AS-CHRS<13> THEN 180 



o as teclas de controle (Re- 
me <ENTER> para criar 
a posição desejada, M pa- 



182,121.226.139,16,18 



ra matar uma célula, e O para terminar 3, 121 ,226, 142. 121 . 227, 108, 132 , l 
a entrada e iniciar o jogo. 66, 128, 129. 58. 2425 



s sobrevivem num padi 





1010 DATA 37,9,134,48,167.31.14 
0,121.231,37,239.198,4,206.4,11 
,142. 1759 

1020 DATA 121,231,166,130.167.1 
92, 140,121,227.38.247,51.200,28 
,90,38,23B,2425 

1030 DATA 142,13.0,204,0,0,237. 
129,140,28,128,37,249,142,4.128 
,206,1787 

1040 DATA 13,64,166,128.133.10, 
39, 2, 141, 47, 51, 65. 133. 5, 39, 2, 14 
1.1179 

1050 DATA 39,51,65,140,12,0.37, 
233,142,4,128,206,13,64.166,132 
,52.1484 

1060 DATA 2.230.192,134,10,141. 
52.230,192,134.5,141.46.53.2,16 
7,128.1859 

1070 DATA 140.12,0,37,231.57,52 
.2,108.200,192,108,200.64.31,48 
.196,1678 

1080 DATA 63.39.8,108,200.191,1 
08,95.108,200,63,193,63.39,8,10 
8,200,1794 

1090 DATA 193.108.65.108,200,65 
.53.130,165,98.39.19.193,2,39.3 
2,193, 1702 

1100 DATA 3,39,28,230.98.67,52, 
2.228.224,231.98,32,17,193,3.38 
.1583 

1110 DATA 13,230,98.196.143,250 
.121,226,52,2,234,224,231,98.57 
,0.0,2175 

Para entrar a colónia inicial, movi- 
mente o cursor utilizando as teclas de 
controle (flechas). Pressione a barra de 
espaço para criar ou eliminar uma célu- 
la na posição desejada, e a lecla < EN- 
TER> para terminar a entrada e iniciar 
o jogo. 

Um detalhe importante: este progra- 
ma não funcionará em um TRS-Color 
ou compatível que tenha um acionador 
de disquetes conectados, pois usa uma 
área de memó ria r eservada. 
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TABLETES 

GRÁFICOS 



Desenhar na tela do computador usando 
centenas de comandos em BASIC não é 
um procedimento razoável. Com o auxílio 
de um tablete gráfico, você trabalhará 
tão facilmente quanto com lápis e papel. 



Uma área de aplicação em que os 
computadores realmente excederam to- 
das as expectativas é a do desenho au- 
xiliado por computador, ou C AD (do in- 
glês Computer Aided Design). Máqui- 
nas de todos os tamanhos, dos micros 
domésticos aos computadores de gran- 
de porte (mainframes), têm sido usadas 
nas mais diversas áreas do desenho e do 
projeto gráfico. Desenhistas de moda, 
por exemplo, ou empresas de constru- 
ção civil, já empregam programas de 
CAD, e não apenas em projetos com- 
plexos. 

Muitos micros domésticos foram pla- 
nejados de modo a ter boa capacidade 
gráfica simplesmente para a implei 
tação de jogos do tipo videogame. Des 
se ponto de partida, porém, desenvol 
veram-se programas de desenho gráfi 
co com recursos es petacu lares, sobretu- 
do se levarmos em conta o tamanho e 



custo dos micros a que se destinam. 

Um dos periféricos mais úteis para a 
exploração da capacidade gráfica dos 
computadores é o tablete gráfico, tam- 
bém chamado de mesa digitalizadora. O 
tipo mais comum permite que o usuá- 
rio desenhe sobre uma superfície dura 
(o tablete), com o auxílio de uma cane- 
la. O movimento da caneta no tablete 
é duplicado na tela do computador por 
meio de uma criativa combinação de 
hardware e software. 

Para obter resultados equivalentes, 
sem empregar um tablete gráfico, seria 
preciso recorrer a um considerável vo- 
lume de programação. Mesmo assim, 
não se conseguiria o mesmo grau de fle- 
xibilidade, sobretudo na alteração ou 
eliminação de partes do desenho. 

Até os tabletes mais simples permi- 
tem o desenho de linhas sobre a tela. De- 
pendendo do programa com o qual são 



usados, podem-se "pintar" áreas intei- 
ras com uma certa cor, entre as dispo- 
níveis em seu micro. Os programas pos- 
sibilitam ainda a mudança instantânea 
de cores no desenho, sob o comando de 
algumas teclas ou por seleçâo feita no 
próprio tablete. Efeitos de "pinceladas" 
de diferentes larguras também podem 
ser simulados pelo programa, em com- 
binação com o tablete. 



Existem diversos tipos de tablete pa- 
ra microcomputadores pessoais. O mais 
conhecido no Brasil é o KoalaPad, des- 
tinado aos modelos da linha Apple. De 
baixo custo em relação aos demais, 
apresenta algumas limitações, como a 
baixa resolução gráfica. 

Muitos outros modelos de tablete, co- 
mo o DigiPad, o GrafPad (para o Spec- 
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tnim) e o BitPad One (para diversos ti- 
pos de micro), podem ser encontrado.' no 
exterior. No Brasil, são mais comuns os 
tabletes digitalizadores para uso profis- 
sional, como os da marca Digigraf, bas- 
tante caros. 

Os tabletes gráficos são vendidos em 
tamanhos que variam conforme a área 
de desenho disponível. Normalmente, 
suas medidas são especificadas segundo 
as dimensões padronizadas das folhas de 
papel (padrão DIN), tal como A3, A4, 
A6 etc. Medem, assim, de 100 x 100 
mm (os menores, como o KoalaPad) a 
250x 300 mm (tabletes médios, usados 
com micros pessoais). Os modelos uti- 
lizados com mesas digitalizadoras de 
grande porte, para aplicações em enge- 
nharia, chegam a ter 1 000 x 750 mm. 
O tamanho, evidentemente, afeta o grau 
de precisão que se consegue atingir ao 
desenhar na superfície do tablete. 



■ AS VANTAGENS 

DOS TABLETES GRÁFICOS 

■ OS DI FERE NTES TIP OS 

■ DIGITALIZAÇ ÃO 

E MAPE AMENTO 



Os tabletes variam também confor- 
me o cursor. Este pode ser um ponteiro 
ou uma caneta, preso ou não ao tablete 
por um fio, ou, então, uma "mira" for- 
mada por uma lente de vidro ou plásti- 
co, com uma cruz ao centro. 

Existem ainda alguns tipos de digita- 
lizadores gráficos que funcionam de mo- 
do diferente dos tabletes: são os pantó- 
grafos, ou traçadores de régua. Esses 
dispositivos utilizam um braço articula- 
do que se move em duas direções, X e 
Y. Na ponta do braço, prende-se uma 
caneta ou um lápis. O sistema pode ser 
mais barato do que um digitalizador de 
desempenho médio, mas, em contrapar- 
tida, sua precisão é menor. Além disso, 
não é fácil desenhar à mão livre com o 
pantógrafo. Em algumas situações, po- 
rém, esse dispositivo mostra-se de bas- 
tante utilidade — por exemplo, quando 
as coordenadas de pontos isolados pre- 
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cisam ser lidas rapidamente pelo com- 
putador. 



COMO FUNCIONA 



O tablete gráfico emprega o princí- 
pio da digitalização de curvas, ampla- 
mente usado em informática, já que 
muitas aplicações computacionais con- 
sistem na transformação adequada de 
um fenómeno analógico para uma se- 
quência de números binários (digitais). 

Um sinal analógico varia continua- 
mente e pode assumir qualquer valor 
fracionário, dentro de certos limites mí- 
nimo e máximo. Um exemplo de medi- 
dor analógico é o indicador de veloci- 
dade de um automóvel. Mas, como sa- 
bemos, o computador só é capaz de pro- 
cessar sinais digitais, ou seja, represen- 
tados por meio dos números binários 0 
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e 1 . A digitalização é justamente o pro- 
cesso de transformação de um sinal ana- 
lógico em um sinal digital que o com- 
putador possa "entender" e armazenar. 

O tablete gráfico, ou mesa digitaliza- 
dora, transforma desenhos em números 
(as coordenadas dos pontinhos que 
constituem as linhas do desenho). O 
computador, por sua vez, volta a trans- 
formar os números em desenhos, 
exibindo-os na tela com o máximo de fi- 
delidade ao original. Sem a tradução de 
uma figura em números, o computador 
não poderia "entender" o desenho. 

O processo de digitalização consiste 
em dividir uma curva no maior número 
possível de segmentos iguais, ou uma 
área no maior número possível de qua- 
dradinhos de igual tamanho. Quanto 
maior o número de partes, maior o de- 
talhamento do desenho a ser entrado no 
computador. Contornos de figuras ou 
retas inclinadas em ziguezague são típi- 
cos de desenhos de baixa resolução. 

O número e o tamanho dos quadra- 
dos de divisão da imagem dependem do 
tipo do tablete gráfico, assim como do 
computador. Em sistemas profissionais 
de alta resolução, o tamanho de um pi- 
xel chega a um centésimo de milímetro, 
e os contornos das figuras produzidas 
têm uma aparência continua (como os 
desenhos animados gerados por compu- 
| tador). Os tabletes gráficos para micros 



não têm uma resolução tão alta, eviden- 
temente, mas um décimo de milímetro 
já é suficiente para a produção de tra- 
balhos de boa qualidade. 

A área do tablete (bem como a do 
vídeo) é dividida em um quadriculado 
imaginário, cujo número de linhas e co- 
lunas varia de acordo com o computa- 
dor empregado ou, ainda, com o grau 
de resolução gráfica (baixa, média e al- 
ta, nos micros das linhas Apple, MSX 
e TRS-Color) selecionado pelo progra- 
ma ou pelo usuário. 

É importante lembrar que a resolu- 
ção máxima do tablete pode ser diferen- 
te da resolução gráfica da tela. Não tem 
sentido, por exemplo, utilizar um tablete 
com resolução de 100 000 pontos na 
área total, se a tela só representa 45 000 
pontos. Estaremos desperdiçando recur- 
sos, a um certo preço, pois o computa- 
dor não seria capaz de utilizar tanta in- 
formação gráfica. A situação contrária 
também ocorre — ou seja, pode-se uti- 
lizar um computador de alta resolução 
gráfica com um tablete de baixa re- 
solução. 

Muitos tabletes digitalizadores têm, 
no entanto, superfícies quadriculadas 
que permitem estabelecer uma corres- 
pondência com a representação na tela. 
As linhas e colunas podem ser numera- 
das, como se costuma fazer com a gra- 
de de referência de uma mapa. 



Nesse tipo de grade, cada quadradi- 
nho tem duas coordenadas — o núme- 
ro da linha e o número da coluna — que 
correspondem, aproximadamente, às 
coordenadas X e Y do ponto do centro 
do quadradinho. Em um sistema onde 
o ponto de origem estivesse no canto in- 
ferior esquerdo do tablete, o quadradi- 
nho de número 10/23, por exemplo, es- 
taria a uma distância de dez quadradi- 
nhos da esquerda, na horizontal, e a 23 
quadradinhos de distância da borda in- 
ferior, na vertical. Isso significa, portan- 
to, que um desenho — uma reta, por 
exemplo — pode ser convertido em uma 
série de números. Estes correspondem 
às coordenadas dos quadradinhos que 
a reta vai cruzar ao ser traçada sobre a 
superfície do tablete. 



A GERAÇÃO DO SINAL 



Existem diversas maneiras de produ- 
zir e enviar ao computador os pares de 
números correspondentes aos pontos da 
superfície do tablete. 

Alguns tipos de mesa digitalizadora 
requerem uma caneta ou um apontador 
especial e dependem do contai o direto 
da ponta desse dispositivo contra uma 
parte ativa da superfície; já outros exi- 
gem simplesmente o posicionamento 
próximo à superfície. 
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Entre as técnicas mais comuns de di- 
gitalização estão incluídas a conversão 
AD direta, a digitalização por grade de 
contato e a digitalização por grade de 
proximidade. 

A conversão AD direta é usada ape- 
nas pelos digitalizadores do tipo panto- 
gráfico ou de régua. O método mais 
simples é o do digitalizado!' de régua. 
Este tem dois braços articulados: um 
que se move na direção horizontal, e ou- 
tro, na vertical. Potenciómetros são co- 
nectados a cada braço, por meio de en- 
grenagens ou de polias. À medida que 
deslocamos os braços pela superfície, os 
potenciómetros giram, produzindo uma 
voltagem contínua proporcional à dis- 
tância percorrida naquela direção, des- 
de a origem. Desse modo, obtemos as 
coordenadas X e Y dos pontos. 

O digitalizador pantográfico, por sua 
vez, possui dois braços, articulados em 
um "ombro" e um "cotovelo", cada 
um dispondo de um potenciômetro. As 
coordenadas X e Y, nesse caso, têm que 
ser calculadas por métodos trigonomé- 
tricos, a partir dos ângulos de posicio- 
namento de cada braço. 

Um conversor AD, ou anaiógico- 
digital, é responsável pela conversão da 
voltagem gerada nos potenciómetros. O 
conversor AD utiliza um processo de 
comparação escalonada: uma voltagem 
de referência, gerada internamente no 
conversor AD, é aumentada passo a 
passo, em pequenos incrementos fixos. 
A cada passo, ela vai sendo comparada 
com o sinal de entrada. Quando, final- 
mente, as duas voltagens se igualam, o 
número de passos que foram necessários 
é enviado ao computador. A voltagem 
de referência é então zerada, e o proces- 
so recomeça para um novo ponto do si- 
na! de entrada. A frequência de amos- 



tragem corresponde ao número de ve- 
zes que isso é feito por segundo. 

O digitalizador pantográfico requer 
dois conversores AD, um para cada po- 
tenciômetro. A resolução do conversor 
(ou precisão) é dada pelo número má- 
ximo de "partes" (valor do incremen- 
to) em que uma voltagem de entrada po- 
de ser dividida, e está relacionada ao nú- 
mero de bits do conversor. Assim, um 
conversor de oito bits, por exemplo, po- 
de gerar apenas um número entre 0 e 255 
— ou seja, a voltagem máxima é dividi- 
da em 256 pedacinhos. 

A informação gerada por cada con- 
versor é transferida diretamente para a 
memória do computador, através de al- 
guma porta de entrada (serial ou para- 
lela). Se a frequência de amostragem for 
muito grande, será necessário utilizar 
uma quantidade muito grande de me- 
mória. Por isso, a maioria dos progra- 
mas gráficos não armazena toda a infor- 
mação de um desenho em detalhes, mas 
simplesmente vai convertendo as coor- 
denadas em tinhas na tela. 



O funcionamento dos tabletes exis- 
tentes para micros baseia-se, geralmen- 
te, em dois tipos distintos de mecanis- 
mo. Ambos dependem de sensores ocul- 
tos sob a superfície do tablete. 

Os tipos sensíveis ao contato direto 
são formados por duas folhas de plásti- 
co. Uma delas contém fios paralelos, es- 
paçados na direção horizontal; a outra, 
fios espaçados na direção vertical. Ao 
se encostar a ponta do estilete ou da ca- 
neta na superfície do tablete, o contato 
elétrico estabelecido entre os fios hori- 
zontais e verticais, naquele ponto, infor- 



ma ao computador as coordenadas do 
mesmo. Pode-se reconhecer facilmente 
esse tipo de tablete, já que qualquer ins- 
trumento pontiagudo, ou mesmo o pró- 
prio dedo, é capaz de ativar o sistema. 

As mesas digitalizadoras mais preci- 
sas, entretanto, utilizam o princípio da 
proximidade por indução eletromagné- 
tica. A malha de fios embutida sob a su- 
perfície recebe correntes elétricas em um 
sistema de varredura constante. Na pon- 
ta da caneta ou do cursor especial exis- 
te uma bobina detetora, que não preci- 
sa estar em contato direto com a super- 
fície. Pode-se, assim, colocar sobre es- 
ta uma folha de papel com o desenho 
já feito e copiá-lo. 



0 SOFTWARE 



Embora sejam muitas as diferenças 
dos tabletes digitalizadores quanto ao 
hardware, o que realmente conta, em 
termos da exploração dos recursos de 
cada um, é o software, Como este tam- 
bém é o responsável pela definição das 
características do desenho e pela facili- 
dade com que ele pode ser executado, 
a maior preocupação do usuário deve 
ser a escolha do programa aplicativo. 
Para que não se cometam erros, convém 
sempre assistir a uma demonstração 
completa do sistema. 

Evidentemente, o que o software é 
capaz de fazer depende muito do mode- 
lo do seu computador. Quanto mais rá- 
pido ele for, e quanto maior a sua me- 
mória, mais espaço existirá para a ope- 
ração de um tablete sofisticado. Aplica- 
ções em alta resolução, assim como pro- 
gramas com recursos embutidos, exigem 
muita memória. É interessante, portan- 
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to, utilizar disquetes, que facilitam o ar- 
mazenamento de telas e expandem a ca- 
pacidade do sistema, pelo uso do disco 
como memória virtual. 

O mesmo acontece com a capacida- 
de gráfica do sistema. Um bom progra- 
ma para tabletes gráficos explora até o 
limite máximo os recursos disponíveis 
no microcomputador. 

Muitos programas controlados ape- 
nas pelo teclado, como o publicado no 
artigo da página 414, são similares, em 
operação, ao software destinado aos ta- 
bletes. Porém, quanto à facilidade, ra- 
pidez, conveniência e flexibilidade, é 
enorme a diferença entre um sistema 
operado por teclado e o operado por um 
tablete. Um sistema controlado por te- 
clado não permite, por exemplo, o de- 
senho a mão livre. 



COMO UTILIZAR UM TABLETE GRÁFICO 



As combinações específicas entre 
computador/tablete variam bastante, 
pelas razões expostas anteriormente. 
Entretanto, todos os programas existen- 
tes foram projetados para trabalhar si- 
mulando o ato de desenhar ou pintar so- 
bre uma folha de papel. É isto, mais do 
que qualquer outra coisa, que dá aos ta- 
bletes gráficos tanta vantagem em rela- 
ção aos demais métodos de criação de 
imagens de alta resolução no microcom- 
putador. 

Em geral, um menu de abertura, co- 
mo o existente para o KoalaPad, ofere- 
ce ao usuário diversas opções quanto à 
técnica e tipo de desenho que se preten- 
de executar. A escolha pode ser feita pe- 
lo teclado, ou, mais comumente, usan- 
do-se o próprio tablete gráfico como se 
fosse a pateta de um artista. A tela exi- 



be potínhos de tinta, pincéis e outros 
materiais, que são selecionados com o 
cursor do tablete. Quando o cursor cor- 
respondente na tela estiver no lugar de- 
sejado, pressiona-se um botão ou tecla. 

O desenho é executado na tela a mão 
livre, seja usando apenas a imaginação, 
seja seguindo um modelo feito sobre pa- 
pel, que pode ser afixado ao tablete. Ca- 
be ao programa receber os sinais gera- 
dos pelo tablete, interpretá-los e colo- 
car instantaneamente a imagem traçada 
sobre a tela. 



OS PROGRAMAS E SEUS RECURSOS 



Algumas vezes, é difícil traçar uma 
reta, ou uma figura geométrica regular, 
a mão livre. Para isso, a maioria dos 
programas possui um menu de curvas e 
de figuras geométricas — como triângu- 
los, retângulos, arcos, círculos, elipses, 
retas etc. — que podem ser escolhidas, 
posicionadas sobre a tela e traçadas au- 
tomaticamente, no tamanho que se 
desejar. 

Os programas também oferecem o re- 
curso de apagar e corrigir partes do de- 
senho, ou, nos sistemas mais sofistica- 
dos, de voltar atrás, desfazendo-se a úl- 
tima operação realizada. Se isso não For 
suficiente para a obtenção do resultado 
pretendido, pode-se ainda recorrer ao 
recurso de apagar toda a tela e começar 
tudo de novo. 

É possível mudar a cor usada nos tra- 
ços do desenho, assim como no preen- 
chimento automático de áreas delimita- 
das (paint), a qualquer instante. Deve- 
se, inicialmente, delinear o desenho uti- 
lizando uma determinada cor. Em segui- 
da, coloca-se o cursor gráfico no inte- 



rior da área assim demarcada, e a sele- 
ção adequada è realizada. Se o espaço 
não estiver completamente fechado, a 
cor "escapa" para fora do mesmo, po- 
dendo tomar toda a tela. Por isso, con- 
vém sempre completar o desenho antes 
de começar a colori-lo. 

Opções mais especializadas variam de 
programa para programa. Alguns pos- 
sibilitam o traçado automático de ima- 
gens especulares (cópia invertida), ou a 
cópia de uma parte do desenho em ou- 
tra posição. Esta operação é chamada 
de "carimbo", pois permite ao usuário 
criar, por exemplo, uma floresta intei- 
ra a partir do desenho de uma única ár- 
vore, ou, para maior variação, de sua 
cópia especular. 



COMO GUARDAR UMA IMAGEM 



Se você completou um desenho bo- 
nito e elaborado, certamente desejará 
armazená-lo permanentemente. Muitos 
softwares gráficos oferecem essa possi- 
bilidade por meio de um comando — 
dentro, é claro, das limitações impostas 
pelo hardware que você tem à disposi- 
ção. As figuras armazenadas podem ser 
recuperadas depois, com um comando 
de leitura, e os recursos do programa 
permitirão, ainda, que você as modifi- 
que. Se quiser, combine-as com outras 
figuras, que podem ser obtidas da bi- 
blioteca de ícones, fornecidos junto com 
o sistema ou criados por você. 

Armazene o desenho por tempo in- 
determinado ou utilize-o em outro pro- 
grama — num jogo, por exemplo. 

Para obter uma cópia da sua "obra 
de arte", fotografe a tela usando um fil- 
me em cores, ou copie o desenho em um 
plotter ou impressora gráfica. 




' possibilita o desenho de pixels individuais. 



útil às composições é a repetição de elementos-chave. 



mim 
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ORIGEM 


■ 


ACERTOS INICIAIS 
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DANDO A PARTIDA 



Já criamos uma página-título e uma 
página de instruções. Temos um tema 
musical e um cenário. Para completar 
o jogo, falta apenas uma rotina que 
controle as demais e dê vida a Willie. 



Este é o sétimo artigo da série Ava- 
lanche e você deve estar pensando, com 
razão, que já é hora de colocar o pro- 
grama em funcionamento. 

Um jogo em linguagem de máquina, 
porém, precisa de uma rotina principal 
que chame as rotinas de instrução, de exe- 
cução musical e de criação do cenário. 
Essa rotina deve ainda acertar os valores 



das variáveis do jogo, tais como o placar, 
o número de vidas e o nível de dificuldade. 
Sua origem será o endereço a ser chama- 
do quando quisermos rodar o programa. 

Depois de pronto, o programa será 
executado automaticamente assim que 
for lido da fita cassete. Por enquanto, 
contudo, não há razão para isso. Além 
do mais, precisamos ter acesso aos có- 
digos do programa para terminá-lo, o 
que seria absolutamente impossível se 
sua execução fosse automática. 



A listagem apresentada a seguir cor- 
responde à rotina principal que dá iní- 



cio à versão do nosso jogo para os n 
crocomputadores Spectrum. 

10 BEM org 58576 

20 REM gbin call ti 

30 REM ld a, 5 

40 REM ld (57343) ,a 

50 REM ld a.O 

60 REM ld (57344) .a 

70 REM íd hl.O 

80 REM ld (57337) . hi 

90 REM ld (57339) ,hl 
100 REM ld (57341) ,hl 
110 REM nlv ld a, 19 
120 REM ld (mak+1 ) . a 
130 REM ret 
140 REM org 5B035 
150 REM ti * 
160 REM org 58281 
170 REM msk * 




A origem é o endereço que chamare- 
mos por intermédio do comando RAN- 
DOM USR para que o programa seja 
executado. Não se esqueça de anotá-lo. 

Os rótulos que fazem parte da lista- 
gem não sào chamados por esta seção 
do jogo. Eles serão utilizados por roti- 
nas futuras, quando nosso personagem 
tiver morrido e você quiser começar o 
jogo novamente. 



ENDEREÇOS 



O programa começa chamando a 
sub-rotina ti, que imprime os títulos e 
a página de instrução. 

Vários parâmetros relativos à conta- 
gem de pontos são então estabelecidos. 
O escore propriamente dito é colocado 
nos endereços 57337 a 57342. O núme- 
ro de vidas fica em 57343 e o nível de 
dificuldade em 57344. 



ACERTOS INICIAIS 



Para que o jogador tenha direito a 
cinco vidas, o número 5 é colocado em 



57343, com o auxílio do acumulador. 
Zero é colocado do mesmo modo em 

57344, fazendo com que o nível de difi- 
culdade inicial seja 0. 

O escore inicial, zero, é acertado co- 
locando-se 0 nos endereços 57337, 
57338, 57339, 57340, 57341 e 57342, por 
meio do par de registros HL. 

Em seguida, A recebe o valor 19, e 
a rotina musical msk é ajustada para 
executar as dezenove primeiras notas da 
melodia Greensleeves. 



□I 




Esta é a rotina que dá início à versão 
do nosso jogo para o TRS-Color. 

10 ORO 19426 

20 GB IN JSR START 

30 LDA »5 

40 STA 18239 

50 CLR 18236 

60 LDX «18240 

70 LD8 «6 

80 GBINI CLR , X+ 

90 DECB 

100 BNE GBINI 

110 RTS 

120 START EQU 19000 



A origem corresponde ao endereço a 
ser chamado por intermédio da instru- 
ção EXEC, quando quisermos iniciar a 
execução do programa. Não se esqueça 
de anotar esse número. 

Os rótulos da listagem não são utili- 
zados nesta parte da rotina. Eles serão 
chamados por outras seções do progra- 
ma, que publicaremos mais tarde. Sua 
função é recomeçar o jogo, caso você 
queira prosseguir quando Willie for fa- 
talmente vitimado. 



DANDO A PARTIDA 



Antes de mais nada, o programa cha- 
ma a sub-rotina START, responsável 
pela impressão da página-título e da pá- 
gina de instruções, que abrem o jogo. 
Em seguida, são estabelecidos diversos 
valores iniciais que influem na contagem 
final de pontos. 

O nível de dificuldade do jogo é ar- 
mazenado no endereço de memória 
18238. O número de vidas, por sua vez, 
fica em 18239. O escore propriamente 
dito é guardado em seis bytes, a partir 
do endereço 18240. 





PRIMEIROS ACERTOS 



O número inicial de vidas de Willie, 
5, é colocado no acumulador e transfe- 
rido para 18239. A instrução CLR lim- 
pa a posição de memória 18238, para ze- 
rar o nível de dificuldade. 

O registro X recebe o endereço ini- 
cial dos bytes de escore e o contador B 
recebe o número 6 — número de bytes 
de escore. A instrução CLR ,X + lim- 
pa o conteúdo da posição de memória 
apontada por X e soma uma unidade ao 
valor de X. DEC B diminui B em uma 
unidade. A instrução BNE retorna ao 
rótulo GBINI para apagar o próximo 
byte até que B seja zero. Esse pequeno 
laço limpa todas as posições de 1 8240 a 
18245 — o que equivale a zerar todos 
os endereços que se referem ao escore, 
um depois do outro. 




Esta é a rotina principal que dá iní- 
cio ao jogo na versão do MSX. 

10 org -11670 

20 oin rali -1228B 



30 call -12166 

40 ld a, 5 

50 ld (-5221) .3 

60 ld a.O 

70 ld (-5228) ,a 

80 ld hl ,0 

90 ld (-5219) ,hl 

100 ld (-5217) ,h) 

110 ld (-5215) .hl 

1.20 hl v ld a. 19 

130 ld (-12162) .a 

140 ret. 

150 end 

A origem dessa rotina é o endereço 
que você chamará por intermédio de 
dois comandos, DEFUSR e USR(0), pa- 
ra começar a execução do jogo. Não se 
esqueça de anotar esse número. 

Os rótulos que precedem as instru- 
ções não são chamados nesta parte do 
programa. Serão utilizados pelas rotinas 
que inicializam o jogo quando o pobre 
Willie tiver sido morto e você quiser jo- 
gar de novo. 



DANDO A PARTIDA 



Inicialmente a rotina chama as 
sub-rotinas -12228 e -12166. Enquanto 



a primeira imprime o título e a página 
de instruções, à segunda cabe executar 
a música Greensleeves. 

Os vários parâmetros da contagem de 
pontos são, então, inicializados. O es- 
core propriamente dito é colocado nos 
endereços -5219 até -5214. O número de 
vidas fica em -5221 e o nível de dificul- 
dade, em -5228. 



ACERTOS INICIAIS 



O número 5 é colocado em -5221, por 
meio do acumulador, para que o joga- 
dor inicie a partida dispondo de cinco 
vidas. Do mesmo modo, 0 é colocado 
em -5228, para que o nível de dificulda- 
de inicial seja igual a 1. 

Os endereços -5219, -5218, -5217, 
-5216, -5215 e -5214, por sua vez, são 
preenchidos com o valor 0, por intermé- 
dio do par de registros HL, zerando o 
escore inicial. 

Em seguida, a rotina responsável pela 
música — colocada no endereço -12166 
— é ajustada para executar exclusiva- 
mente as dezenove primeiras notas da 
melodia Greensleeves. 
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Programas sofisticados e rápidos 
exigem a combinação de código 
de máquina e BASIC. Aprenda aqui 
uma série de truques para tornar 
mais eficaz a interação entre ambos. 



As mais modernas versões do inter- 
pretador BASIC desenvolvido pela em- 
presa norle-americana Microsoft foram 
implementadas nos microcomputadores 
das linhas TRS-80, TRS-Color, MSX e 
IBM-PC. Tanto elas quanto o MBASIC 
(usado em qualquer micro que tenha o 
sistema operacional compatível com o 
CP/M) possuem diversos recursos para 
dar acesso direto às posições absolutas 
de memória do computador, bem como 
à execução de programas em código de 
máquina a partir de um programa em 
BASIC. 

Já estudamos os principais elementos 
do BASIC para efetuar essas funções: 
o PEEK e o POKE. Porém, para uma 
interação mais eficaz entre programas 
em linguagem de máquina e programas 
em BASIC, outros comandos são neces- 
sários. Destacam-se, entre eles, o DE- 
FUSR, o USR e o VARPTR. 

Em artigos anteriores, vimos diver- 
sos exemplos de como executar um pro- 
grama em linguagem de máquina a par- 
tir de um programa em BASIC. O mé- 
todo mais comum consiste em armaze- 
nar o programa em código de máquina 
em uma parte não usada da memória 
RAM (ou seja, em uma parte não sujei- 
ta a ser invadida pelo programa BASIC 
ou por sua área de variáveis), e execu 
tá-lo por meio de um comando USR co 
locado em um ponto qualquer do pro- 
grama em BASIC. O comando DE- 
FUSR, ou equivalente, é usado para in- 
dicar a locação inicial do programa em 
linguagem de máquina. 

Esse método, entretanto, apresenta 
alguns problemas: 

• O programa em código de máquina 
precisa ser montado à parte e armaze- 
nado em fita ou disco, para, então, ser 
carregado na memória. 

• É necessário reservar uma parte pro- 
tegida da memória para armazenar o 
programa, o que pode ser inconvenien- 
te em muitos tipos de aplicação. 



Examinaremos, neste artigo, uma 
técnica alternativa, que consiste na uti- 



lização da função VARPTR para arma- 
zenar programas em linguagem de má- 
quina dentro do próprio programa em 
BASIC. Essa técnica proporciona pode- 
rosos recursos de programação para os 
usuários das linhas TRS-80, TRS-Color 
e MSX (os micros das linhas Sinclair e 
Apple dispõem do comando CALL, 
equivalente ao USR, mas não têm a fun- 
ção VARPTR). Veremos aqui como em- 
pregar a função VARPTR em micros da 
linha TRS-80; em artigos futuros trata- 
remos do TRS-Color e do MSX. 

O "truque" é muito simples: em vez 
de armazenarmos um programa em có- 
digo de máquina numa parte reservada 
de memória, nós o "enxertamos" dentro 
do programa em BASIC que o utilizará. 
Assim, quando o programa em BASIC 
for carregado da fita ou disco, para ser 
executado, trará junto, automaticamen- 
te, o programa ou programas em lingua- 
gem de máquina. Esse método permite 
a definição e armazenamento do núme- 
ro que quisermos de rotinas em lingua- 
gem de máquina, cada qual bem identi- 
ficada dentro do programa em BASIC. 

Mas onde armazenar código de má- 
quina dentro de um programa em BA- 
SIC? Existem diversas técnicas disponi 
veis. As mais flexíveis, entretanto, usam 
o seguinte recurso: uma constante alfa- 
numérica (por exemplo, PG$) é defini 
da dentro do programa, com um i 
primento correspondente ao número de 
bytes do programa em código de máqui- 
na. Suponhamos, por exemplo, que a 
rotina em código de máquina terá doze 
bytes de extensão. Definimos, então: 

20 PGS-" 

Observe que foram colocados doze 
espaços em branco entre as aspas da li- 
nha 20. No lugar desses espaços, porém, 
poderiam introduzir quaisquer caracte- 
res, iguais ou diferentes. O que vale é 
o número correto de caracteres. Muitos 
programadores preferem usar uma se- 
quência numérica para assegurar que o 
número de bytes seja correto: 
20 PGS--123456769012" 

Feito isso, carregamos os bytes dis- 
poníveis (que estão automaticamente fi- 
xos e reservados na área de memória de 
programa) na variável PGS, com os có- 



digos decimais, binários, octais, ou he- 
xadecimais correspondentes ao progra- 
ma em código de máquina. 

Um pequeno programa, contendo 
um laço FÕR...NEXT, pode se encar- 
regar dessa tarefa. Ele lerá os códigos, 
armazenados em linhas DATA, e os co- 
locará nas locações absolutas de memó- 
ria, correspondentes à variável PGS, 
usando comandos POKE. 

A operação só precisa ser feita uma 
vez. Depois, o programa de carregamen- 
to pode ser apagado. 

O processo é simples, mas há um de- 
talhe técnico a ser resolvido: a localiza- 
ção das posições da memória onde PGS 
está armazenada. Teoricamente, pode- 
mos fazer esse cálculo para qualquer 
programa, desde que saibamos a loca- 
ção absoluta da memória onde ele co- 
meça (geralmente fixa para cada tipo de 
computador), e quantos bytes gasta ca- 
da linha do programa até chegarmos à 
linha em que PGS é definida. 

Na prática, porém, tal cálculo é difí- 
cil e demorado, podendo tornar-se real- 
mente trabalhoso se o programa ainda es- 
tiver em desenvolvimento. Nesse caso, ca- 
da alteração no programa, feita acima da 
linha onde a variável PGS é definida, al- 
tera a sua locação na memória. 



ONDE ESTÃO AS VARIÁVEIS' 



Felizmente, é possível encarregar o 
próprio programa de calcular automa- 
ticamente a localização de PGS na me- 
mória, Para isso, devemos usar a fun- 
ção VARPTR, cujo nome deriva da ex- 
pressão inglesa VARiable PoinTeR, ou 
apontador de variável. 

Para entender como essa função tra- 
balha, precisamos saber como o compu- 
tador armazena cadeias alfanuméricas 
na memória. Como vimos no artigo da 
página 947, seu programa pode ter aces- 
so direto a toda essa informação por 
meio da função VARPTR. 

Recapitulando: toda vez que uma va- 
riável alfanumérica é definida, o inter- 
pretador BASIC cria três bytes aponta- 
dores, que contêm o comprimento da 
cadeia alfanumérica e o endereço abso- 
luto de onde ela se inicia. Por exemplo, 
para uma variável AS: 
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■ 


0 USO DE ROTINAS EM 




USR EM UM PROGRAMA 




CÓDIGO DE MÁQUINA 


■ 


DIFERENÇAS ENTRE 0 BASIC 




DENTRO DE PROGRAMAS BASIC 




PARA CASSETE E PARA DISCO 


■ 


OS COMANDOS USR E DEFUSR 


■ 


UM PROGHAMA PARA 


■ 


COMO ARMAZENAR ROTINAS 




PREENCHER A TELA 



YARPTRIAS) = locação do apontador de A$ 
PEEK(VARPTR(AS)) - comprimento de AS 
PEEK(VARPTR(AS)+ D = byte menos 
significativo 
do endereco 
de AS 

PEEK(VARPTR(AS) + 2) - byte mais 
significativo 
do endereço 
de AS 



UM PROGRAMA COMPLETO 



Sabendo como determinar o endere- 
ço inicial de uma variável string na me- 
mória, fica fácil escrever um programa 
para carregar código de máquina na 
mesma. Vejamos, por meio de um 
exemplo, como isso funciona. 

A rotina em linguagem de máquina, 
apresentada a seguir, preenche toda a te- 
la com um caractere qualquer, previa- 
mente colocado na primeira posição da 
tela (por exemplo, se colocarmos * na 
posição 0 da tela, uma chamada à roti- 
na preencherá a tela com asteriscos qua- 
se que instantaneamente). 



ORIGEM 

HL APONTA P/0 
DE APONTA P/l 
POR 1023 VEZES 
REPETE 

VOLTA AO BASIC 



10 ORG OBFFOH 
20 LD HL, 15360 
30 LD DE. 15361 
40 LD BC, 1023 
50 LDIR 
60 RET 
70 END 

Quando traduzido por um Assem- 
bler, esse curto programa daria doze 
bytes em hexadecimal: 
Linha 20: 21 00 3C 
Linha 30: 11 01 3C 
Linha 40: 01 FF 03 
Linha50: ED BO 
Linha 60: C9 

que, em decimal, correspondem a: 

33,0,60,17,1,60.1.255,3,237.176 
,201 

Vamos escrever agora nosso progra- 
ma principal — ou seja, o programa em 
linguagem BASIC que utiliza a rotina 
em código de máquina. 

Não rode o programa ainda, pois o 
código de máquina não foi carregado: 



10 CLS : PRINT" PROGRAMA DE TESTE 
20 PGS-" 

30 D=PEEK(VARPTR(PG3)+1) + 256 
* PEEK(VARPTR(PGS)+2) 
40 DEFUSR0-D 

BO PRINT: INPUT "CARACTERE ";CS 
90 CLS: PRINT CS 
•100 X-USR0(0) 
110 FOR 1-1 TO 1000:NEXT I 
120 GOTO 10 

O programa funciona da seguinte 
maneira: a linha 20 define um string fi- 
xo, PGS, na memória de programa, 
com o comprimento de doze bytes. 

As linhas 30 e 40 localizam o endere- 
ço da variável PGS e o definem como 
início de uma rotina de máquina. 

O comando usado para isso denomi- 
na-se DEFUSR, que é uma abreviatura 
da expressão DEFine (JSeR function. 
Seu objetivo é informar ao programa 
principal o endereço absoluto inicial da 
rotina. Nos microcomputadores da li- 
nha TRS-80 com BASIC para disco, 
podem-se definir até dez rotinas de 
usuário simultaneamente, por meio dos 
comandos DEFUSR0 a DEFUSR9, que 
corresponderão às chamadas USR0 a 
USR9. 

Para os microcomputadores da linha 
TRS-80 com BASIC para cassete, pode- 
se definir apenas uma rotina USR. Nesse 
caso, não se pode contar com o coman- 
do DEFUSR para informar o seu ende- 
reço de partida. Temos, assim, que dar 
dois POKE em um apontador específi- 
co da memória de trabalho do compu- 
tador. Eles correspondem aos bytes de 
endereço 16526 (para o byte menos sig- 
nificativo) e 16527 (para o byte mais sig- 
nificativo). Esse processo torna possível 
copiar diretamente os bytes obtidos pe- 
la função VARPTR. Para computado- 
res com BASIC para cassete, portanto, 
devemos substituir as seguintes linhas no 
programa anterior: 

30 POKE 16526,PEEK(VARPTR( 
PG3J+1) 

40 POKE 15527 , PEEK {VARPTR ( 
PGSJ+2) 

Como a variável PGS está fixa den- 
tro do programa, a definição com DE- 
FUSR ou com POKE só precisa ser rea- 
lizada uma vez. 

A linha 80 pede ao usuário que entre 
pelo teclado o caractere com que deseja 



preencher a tela. A linha 90 limpa a mes- 
ma e coloca o caractere indicado na pri- 
meira posição. 

Finalmente, a linha 100 executa a ro- 
tina, por meio da Tunção fictícia USR (da 
expressão, em inglês, USeR function). 
Como não se trata de um comando, USR 
pode ser colocada dentro de uma expres- 
são matemática válida. No exemplo, não 
precisamos passar nenhum argumento 
para a rotina de máquina (o que seria fei- 
to por meio do ( vaIor entre parênteses), 
nem obter um valor de retomo (o que se- 
ria feito através do próprio valor da fun- 
ção USR). Como vimos anteriormente, 
nos microcomputadores com BASIC pa- 
ra disco, cada DEFUSRn (onde n é um 
número inteiro entre 0 e 9) corresponde 
à rotina USRn. 

Como os computadores com lingua- 
gem BASIC para cassete aceitam ape- 
nas uma rotina de usuário, devemos 
substituir a linha 100 por: 

100 X=USR(0) 



PROGRAMA DE CARREGAMENTO 



Antes de usar ou gravar o programa 
principal, é necessário carregar o pro- 
grama de código de máquina na variá- 
vel PGS. Para fazê-lo, anexe ao progra- 
ma anterior as seguintes linhas: 
50 FOR Il-D TO D+12 :READ Nt : 
POKE II. NI : NEXT It 
60 DATA 33, 0. 60, 17, 1, 60, 
1, 255, 3, 237, 176, 201 
70 STOP 

O programa pode ser apagado com: 

DELETE 50-70 

Você notará que, ao listar o progra- 
ma principal, a linha 30 não estará mais 
vazia: ela conterá códigos gráficos e até 
mesmo comandos em linguagem BA- 
SIC, dependendo da linha do computa- 
dor que você estiver usando. 

Você pode agora gravar e executar o 
programa quantas vezes quiser, sem ter 
que carregar separadamente o progra- 
ma em linguagem de máquina. E, é cla- 
ro, até dez variáveis alfanuméricas di- 
ferentes poderão ser usadas no mesmo 
programa. Elas definirão rotinas de má- 
quina separadas, que serão chamadas de 
USR0, USR1, USR2 etc. 
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O jogo está completo. Armado com suas 
flechas, Freddy observa os balões que 
começam a subir. Precisará de muito 
sangue frio para estourá-los e impedir 
que a aranha venha em sua direção. 




Já digitamos as rotinas encarregadas 
de inicializar o jogo e de fazer a monta- 
gem dos gráficos. 

Vamos agora completar o programa, 
adicionando as rotinas de animação. 




10 TEXT : HOME : PUI NT "UM MOMj 
ENTO ..." 

15 HIMEM: 18817 
OOSUB .1000 
GOSUB 3000 
IF AX < > 



26 THEN GOSUB 



CI.EAR 6528? 
GOSUB 1000 
GOSUB 3000 

IF ax.02'4 THEN GOSUB 300 
GOSUB 400 
90 GOSUB 500 

00 GOSUB 200: TF dead-0 THEN 



O 50 



10 CLS 3: PBINT «266, "INICIAIIZ 
ANDO" ; i SCREEN 0,1 
20 GOSUB 1000 
25 GOSUB 1600 
30 GOSUB 3000 

50 IF AX<>29 THEN GOSUB 300 
70 GOSUB 400 
90 GOSUB 500 

100 GOSUB 210:IF DD-0 THEN 50 



fffi 



10 CLS:COLOH 1,14,14 

15 OPEN "GHP : " FOR OUTPUT AS |1 

20* GOSUB 1000 

30 GOSUB 3000 

50 IF AX<>29 THEN GOSUB 300 
70 GOSUB 400 
90 GOSUB 500 

100 GOSUB 210 :IF OD-0 THEN 50 



GOSUB 400 
GOSUB 500 
GOSUB 210: 



Esse programa, o principal do jogo, 
foi estruturado de modo a chamar ape- 
nas as sub-roiinas necessárias. Primei- 
ramente, ele define a tela e reserva es- 
paço na parte superior da memória (Ap- 
ple, TK-2000 e Spectrum). As sub- 
rotinas chamadas nas linhas 20 a 30 (lis- 
tadas no artigo anterior) têm a função 
de definir os blocos gráficos e iniciali- 
zar o valor do recorde. 

O laço principal do programa vai da 
linha 50 à linha 100, e se repete enquan- 
to Freddy estiver vivo (variável dead ou 
DD maior do que zero). Esse laço é res- 
ponsável pelo movimento da flecha, da 
aranha, de Freddy e dos balões. Cada 
rotina chamada atualiza as variáveis 
dentro do laço. 



105 LET n(xinc:) = l 

110 FOR x=a{xpoH) TO 29: GOSUB 

500: NEXT x 

120 LET s(yinc)=] : LET a(xinc) 
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m 0 JOGO COMPLETO 


■ 


FLECHAS CONTRA BALÕES 


m LACO PRINCIPAL 


■ 


FREDDY SOBE 


m A ARANHA 




E DESCE A ESCADA 


ATACA FREDDY 


■ 


A ANIMAÇÃO DA ARANHA 


k BALÕES EM MOVIMENTO 


■ 


ESTOURANDO BALÕES 





105 SÍXI) 
110 FOR X = S(XP) TO 29: GOSUB 

500: NEXT X 
120 S(YI) - 1:S(XI) - 0 
125 FOR Y ■ S(¥P) TO 19 
130 HCOLOR- Or FOR X = 16 TO 2 
4: HPLOT 230, Y * 8 + X TO 260 , Y 

* 8 + X: NEXT : HCOLOR= 3 
140 GOSUB 500 
ISO NEXT ¥ 

160 FOR SL - 1 TO 5; PRINT CH 
H3 (?);: NEXT : TEXT : HOME : P 
RINT "VOCÊ ESTA MORTO!": VTAB 1 
5: PRINT "QUER RECOMEÇAR? (S/N) 



170 GET AS 

180 1F AS - "S" 

OTO 30 

190 HOME : END 



THEN HOME 



Z10 L.ET b(count)=b(o 
IF b(couiit)<>0 THEN 
220 LET b(COUIlt) 
PRINT AT b (ypoH) 
":: LET b ( ypoh) =b (ypoa) -í : IF 
b(ypoa)=4 THEN GOSUB 600: 
POKE 23607.60: PRINT AT l,10+( 
3-props) "9 i " " ; AT 2 . 10+ { 3-props 
)*9(" ": POKE 23607,252: L.ET 
props=props-l 

225 IF propa=0 THEN LET dead = 
1 

230 TF {(ayOb(ypos) AND ayOb 
(ypoa)+l) OH Ux<b(xpos} 1 011 
ax>b(xpos)+l) ) THEN GOTO 250 
240 LET gcore = score + b(poinr.a) : 
GOSUB 600: TF acore>hiscore 
THEN LET hl atrore-acore : POKE 
23607,60: PRINT AT 0,23; INK 0 
; PAPER 6:hiacore: POKE 23607, 
252 

245 GOTO 380 
250 GOSUB 4300 
280 RETURN 



TF B(CT)<>0 T 



220 B(CT)=B(MC) 

222 B (YP) =B (YP) -1 : TF H[YP)=4 TH 
EN GOSUB 600: LINE { 1 10+ ( ( 3-PP) * 
9} ) *8, 7) - ( (10+ ( (3-PP) "9) ) *B+7, 2 
4) , 14, 8F: PP=PP-l 
225 TF PP=0 THEN DD=1 
230 IF ( (AYOB (YP) AND AYOB (YP 
)+l) OR (AX<B(XP)-1 OR AX>B(XP) 
+1)) THEN 250 

240 SC = SC + B(PO) :G0S1JB 600 : 1 F SC 
>HS THEN HS=SC:GOSUB J 700 
245 GOTO 400 
250 GOSUB 4300 
2R0 RETURN 



Kl El 



IF B (CT) 



B ( YP) 



Após a remoção de todas as portas da 
gaiola da aranha, a variável dead (ou 
DD, nos outros microcomputadores) as- 
sume o valor 1 e as linhas 105 a 180 são 
executadas (190 no Apple e no TK-2000). 

A aranha move-se horizontalmente 
até chegar logo acima de Freddy. Em se- 
guida, realiza um movimento vertical, 
alcançando nosso infeliz personagem, 
que é, então, devorado. Quando isso 
ocorre, o jogador tem a opção de jogar 
mais uma vez (linhas 160 a 180). No pro- 
grama do Spectrum, deve-se colocar o 
valor 60 na posição 23607 para que to- 
do o conjunto de caracteres seja usado 
novamente. 



El 



210 B(CT)-B(CT)-1:IF B(CT)O0 T 
HEN 280 

220 BfCT)-B(MC) 

221 B(YP)-B(YP)-1 : IF B(YP)-4 T 
HEN X2-B(XP)«8:Y2-B(YP)*B+8:PUT 
<X2,Y2) -(X2+15.Y2+15) ,SP,PSET:G 
OSUB 6Q0:X2-U0+O-PP)*9)*8:PUT 

(X2,8)- (X2+7.15) ,S1,PSET:PUT{X 
2. 16)-{X2+7, 23) ,S1 , PSET : PP-PP-1 
225 IF PP-0 THEN DD-1 
230 IF ( (AYOB (YP) AND AYOB (YP 
)+l) OR (AX<B(XP)-1 OR AX>B(XP) 
+1) ) THEN 250 

240 SC-SC+B<PO) :X2-B(XP)«8:Y2-< 
B(YP)+1)*B:PUT(X2.Y2)-(X2+15.Y2 
+15) ,SP,PSET:OOSUB 600:IF SOHS 



210 B(CT) = B (CT) 

< > 0 THEN 280 
220 B(CT) ■ B(MC) 
222 B(YP) • B(YP) 

= 4 THEN X2 - B(XP) * 8:Y2 = B 
(YP) * 8 + 8: HCOLOR= 0: DRAW B 
A AT X2.Y2: GOSUB 600: HCOLOR- 
0: FOR X = 0 TO 6: HPLOT X + (4 

- PP) * 77,4 TO X + (4 - PP) * 

75.22: NEXT : PP - PP - 1 
225 TF PP = 0 THEN DD-1 
230 IF ((AY < > H(YP) AND AY 
< > B(YP1 + 1) OR (AX < B(XP) 
- 1 OR AX > BtXP) + D) THEN 25 
0 

240 SC = SC + B(PO):X2 = BtXP) 



HCOLO 
HCOLOR- 
HS THEN 



Y2 = (B(YP) 
R = 0: DRAW BA AT X2.Y2 
3: GOSUB 600: TF SC > 
HS = SC: GOSUB 1700 
245 GOTO 400 
250 GOSUB 4300 
280 RETURN 



Os elementos mais importantes da 
matriz do balão são b (count) e b (max- 
count), para o Spectrum, e B (CT) e B 
(MC), para as outras linhas. Cada vez 
que a rotina é acionada, a linha 210 de- 
crementa b (count) ou B (CT), quando 
ela atinge 0, o balão se move. Em segui- 



38 PROGRAMAÇÃO DC JOGOS 38 




da, a linha 220 copia o número de b 
(maxcount) para b (count) — ou B (MC) 
para B (CT), nos demais computadores. 
A velocidade do balão c determinada pe- 1 
lo valor de b (maxcount) — ou B (MC). 
A linha 220 verifica se o balão foi atin- 
gido ou se chegou ao topo da tela. . \ 
Se o balão foi atingido, o placar é ir* 
crementado; se ele chegou ao topo, umí| 
porta é removida. Quando todas as por- 
tas forem removidas, a variável dead (ou 
DD) assume o valor 1 . 



0 ESTOURO DO BAIÃO 



300 PRINT AT ay, ax: " 
ax-ax-1: IF ax<0 THEN 
29: PRINT AT WY+I . 29 ; "e" : 
ay-BY+l: RETUBN 
310 IF (laybíypos) OR ay 
oa)+l) AND (ax*b(xpoa) OR 
<xpoa)+l)) THEN LET acort 
re+b(pointa) : GOSUB 600: IF ac 
ore>hiacore THEN LET hiacore- 
score: POKE 23607,60: PRINT AT 

0,23; INK 0; PAPER 6;hlscore: 

POKE 23607,252 
330 IF ax<>29 THEN GOSUB 4100 
340 BETURN 



■ i 



300 PUT(AX*8.AY*6)-(AX*8+15.AY* 
8+7) ,S2,PSET:AX-AX-1:IF AX<0 TH 
EN AX-29:PUT(232, (MY+1 ) *8) - ( 239 
, (MY+l) *8+7) ,E.PSET:AY-MY+1 :RET 
URN 

310 IF ((AY-B(YP) OB AY-B(YP)+1 
) ANO (AX-B(XP) OR AX-B (XP) +1 ) ) 

THEN SC-SC+BÍPO) : X2-B (XP) *8 : Y2 
-B(YP)*8+8:PUT(X2,Y2)-<X2+15,Y2 
+15) ,SP,PSET:GOSUB 600:IF SOHS 

THEN HS-SC:GOSUB 1700 
330 IF AX<>29 THEN GOSUB 4110 
340 RETURN 



300 AX-AX-1:IF AX<0 THEN AX=29: 
PUT SPRITE 3. (232, (MY)*R) ,4. KL: 
AY=MY : RETURN 

310 IF ( (AY=B { YP) OR AY=B(YP)+1 
) AND (AX = B(XH) OR AX = B(XP) + D) 



THEN SC = SC+B(t>0) :GOSUB 
SOKS THEN HS=SC:G 
330 I E AX<>29 THEN 
340 RETURN 



300 HCC)L0R= 0: DRAU FL AT 

8,AY * 8: HCOLOR- 3:AX " , 
1: IF AX < 0 THEN AX = 28: 

FL AT AX * B , tMY + 1) * 8:AY - 

MY + 1 : RETUBN 
310 IF ( (AY = B(XP) OR AY = B[ 
YP) + 1) AND (AX = B(XP> OB AX 
- B(XP) + 1 ) ) THEN SC = SC + B( 
PO):X2 - B(XP) * 8:Y2 - B[YP) * 

B: HC0LOB= 0: DHAW BA AT X2 , Y2 
: HCOLOR= 3: GOSUB 600: IF SC > 

HS THEN HS = SC: GOSUB 1700 
330 IF AX < > 28 THEN GOSUB 
4110 

340 BETURN 

Esta e a rotina que anima a flecha. 
Ela apaga a imagem anterior e coloca a 
nova na posição seguinte, determinada 
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445 PRINT AT my,30; INK 6;"k.l" 
: LET my-my+1: PBINT AT ay.29; 
■ -: IF ax-29 THEN LET ay-ay+ 

446 GOTO 4 70 

450 IF my-5 THEN RETURN 

460 PRINT AT my+2 , 30 [ INK 6;" 

kl": LET wy-my-l: PRINT AT ay . 

29;" ": IF ax=29 THEN LET ay- 

ay-1 

470 GOSUB 4000: RETURN 

Q 

400 IF PEEKI337J-255 THEN RETUR 
N 

410 IF PEEKI34D-247 THEN 450 

420 IF PEEKI342J-247 THEN 440 

430 IF PEEK(345)<>247 THEN RETU 

432 IF AX029 THEN RETURN 

434 AX-28:PUT(232,AY*8)-(239.AY 

■8+ 7) ,S1 . PSET: RETURN 

440 IF MY-19 THEN RETURN 

445 PUT(240,MY*8) - (255,MY«8+7) , 
KL . PSET : HY-MY+1 : PUT (232 . AY*8) - ( 
239,AY«8+7) ,S1 . PSET : IF AX-29 TH 
EN AY-AY+1 

446 GOTO 470 

450 IF MY-5 THEN RETURN 

460 PUT(240,MY«B+16)-(255,MY*8+ 

23) , RL, PSET :MY-MY-1: PUT (232, AY* 

8>-(239.AY"8+7) ,S1,PSET:IF AX-2 

9 THEN AY'AY-1 

470 GOSUB 4000:RETURN 

1M 

400 
410 
420 
430 
432 
434 
440 
445 
+1 
446 
450 
460 



THEN DRAW FL AT AX * 8,AY * 8: 
AY c AY + 1 

446 HCOLOR- 3: DRAW FD AT 240, 
MY * 8 

448 GOTO 470 

450 IF MY - 5 THEN RETURN 
460 HCOLOR- 0: DRAW FD AT 240. 
MY « 8:MY - MY - 1: IF AX - 28 
DRAU FL AT AX * B.AY * 8: 



AS=INKEY$ 

IF A3=CHR3(30) THEN 450 

IF AS-CHH$(31) THEN 440 

IF AS<>CHR3(32) THEN RETURN 

IF AX029 THEN RETURN 

AX-28: RETURN 

IF MY-21 THEN RETURN 

MY=MY+1:IF AX=29 THEN AY=AY 

GOTO 470 

IF MY-5 THEN RETURN 
MY-MY-1:IF AX-29 THEN AY-AY 



470 GOSUB 4000 : RETURN 



LHE] 



400 POKE - 16368,0: FOR X - 1 
TO 10: IF PEEK ( - 16384) > 1 
27 THEN X - 10: NEXT : PK - PEE 
K ( - 16384) : GOTO 410 
405 POKE - 16368,0: NEXT : RE 
TUHN 

410 IF PK - 218 THEN 440 
420 IF PK - 193 THEN 450 
430 IF PK < > 160 THEN RETUR 



432 IF AX ' 



28 THEN RETURN 



' AY 



1 



465 
470 
URN 

Em todos os programas, as linhas 400 
a 420 lêem o teclado, enquanto as linhas 
430 e 440 verificam se a barra de espa- 
ços foi pressionada e se Freddy está com 
a flecha. 

Enquanto nosso personagem se mo- 
vimenta para cima ou para baixo na es- 
cada, os caracteres desta têm que ser re- 
postos (ou a escada acabará desapare- 
cendo). Se AX = 29 (28, na versão pa- 
ra o Apple e o TK-2000), a flecha tam- 
bém deve ser movimentada. 

Para que o programa funcione ade- 
quadamente no TK-2000, os usuários 
precisarão adaptar o trecho que vai da 
linha 400 até a linha 405. Consulte o ar- 
tigo de Programação BASIC que trata 
da substituição da função INKEYS nes- 
se microcomputador e faça, então, as al- 
terações que forem necessárias. 



ai)0 LET temp-s(xpoa)+a(xinc) 
510 IF temp<l OR te»p>8+ (3-pro 
pn)"9 THEN LET a (xi nc) —a (xin 

c) : GOTO 500 

520 POKE 23607,60: PRINT AT s( 
ypoa) . a (xpoa) ; " " ; AT s(ypoa)+ 
],a{xpos);" POKE 23607.252 

5.10 LET a typos) -a (ypoa) +a {yinc 
): LET B(xpoa)-temp: LET a(pic 
ture)-l-a(picture) : GOSUB 4200 
540 RETURN 



500 TE-S<XP)+S(XI) 

510 IF TE<1 OR TE>8+(3-PP)*9 TH 

EN StXI)--S(XI) :OOTO 500 

520 X2-S(XP)*8:Y2-S(YP)"B:PUT(X 

2,Y2)-(X2+15,Y2+15) , SP, PSET 

530 8(YP)-S(YP)+fl(YI) :S(XP)-TE: 

SÍPI)-l-S(PI) :<JOSUB 4200 

540 RETURN 



500 TE - S(XP) + S(XI) 

510 IF TE < 1 OR TE > B + (3 - 

PP) * 9 THEN S(XI) - - S(XI): 

GOTO 500 
520 X2 - S(XP) * 8:Y2 - S (YP) * 

8: HC0LOR= 0: DRAW S(PI) + 1 A 
T X2.Y2: HCOLOR- 3 
530 S(YP> - S(YP) + S(YI):S(XP) 

= TE:S{PI) - 1 - S(PI): GOSUB 
4200 

i40 RETURN 

A última rotina de animação trata da 
aranha marciana, Para tornar o jogo 
mais emocionante, ela não fica parada 
esperando por seu "almoço". Ao con- 
trário, movimenta-se impacientemente 
entre a parede e as portas. Desenhamos, 
por isso, duas figuras para a aranha. O 
número da figura corrente, manipulado 
pela linha 530, é guardado em s (piclu- 
re), no programa do Spectrum, e em S 
(PI), no dos demais micros. 

As linhas 500 e 510 têm a função de 
impedir que a aranha escape de sua gaio- 
la antes que (odas as portas tenham si- 
do removidas. 



ERA UMA VEZ UM BALÃO 



600 PRINT AT b (ypoa) . b (xpob) ; 

BRIOHT 1; INK b (colour) ; "gr»" t 

AT b(ypoa)+l,b(xpoa) ;"ij" 

610 POKE 23607,60 

620 PRINT AT 0,14; INK 0: 

PAPER 6;acore 

630 SOUND .5,-20 

635 LET bl-bl-1: PRINT AT 0,7j 

INK 0: PAPER 6:bl:: IF bl-9 

THEN PRINT INK 0; PAPER 6;" 

637 IF bl-0 THEN LET bl-15+5* 
levei: LET level«level+l : LET 
propa-propa-1 : PRINT INK 0: 
PAPER 6;AT 0,7;bl;AT 0.2:level 
: GOSUB 6000 

640 PRINT AT b (ypoa) . b (xpoa) : " 

" ; AT b(YPoa)+l,b(xpoa) j" " 
650 PRINT AT ay.ax;" " : LET a 
x-29: LET ay-my+1 
660 POKE 23607.252: GOSUB 4000 
: GOSUB 5000: RETURN 



ftU 



MY * 8:MY - MY + 1 : IF AX - 28 



500 TE-S(XP)+S(XI) 

510 IF TE<1 OR TE>S+(3-PP)*9 TH 

EN S(XI)--S(XI) :GOTO 500 

530 S(YP)-S(YP)+S(YI) :9(XP)-TE: 

S(PI)-1-S(PI) :G0SUB 4200 

540 RETURN 



600 X2-B(XP)*8:Y2-B(YP)»B:PUT ( 
X2, Y2)-(X2+15,Y2+1S) ,GJ , PSET 
620 COLOR 0:LINEU14,2)-{150,7) 

, PSET , BF :NU-SC :DRAW"C1 ; BM1 14,2" 

: GOSUB 1650 

630 PLAY"V31;T200:O2;BACFEDC;Ol 
iBAGFEDC" 

635 BL-BL-l:COLOR0:LINE(58.2)-( 
68, 7) , PSET . BF : DRAW"BM58 . 2;S2iCl 
- :NU«BL:GOSUB 1650 

637 IF BL-0 THEN PP-3 : LU-LV+1 : B I 
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L-15+5*LV:COLOR0 : LINE (14 , 2) - (24 
.7) ,PSET.BF:LINE(58.2>-(68, 7) ,P 
SET . BF : NU-LV : DRAW "BM14 , 2 i Cl " : GO 
SUB 1650:GOSUB 6000 :NU-BL : DRAW" 
BM58 . 2;C1" :GOSUB 1650 
640 X2-B(XP)*B:Y2-B(YP)"8:PUT(X 
2.Y2) - (X2+15. Y2+15) ,SP,PSET 
650 PUT(AX*B,AY*8)-(AX*8+15,AY* 
8+7) ,S2,PSET:AX-29:AY-MY+1 
660 GOSUB 400O:GOSUB 5000:RETUR 



El GE 



600 X2=B{XP)*8:Y2=B{YP)*B:PUT S 
PRITE 4, (X2.YZ) , 9 . BE 
630 BL=BL-1 

640 IF BI. = 0 THEN PP = 3 : LV=LV+I : B 

L=15+5"LV 

650 GOSUB 1700 

660 PUT SPR1TE 3, (AX"B,AY*B) ,4, 
FL-AX=29!AY=MY 

670 GOSUB 4000:GOSUB 50Q0:RETUR 



HEN PP ■ 3:LV = 



610 BL = BL - 
620 1F BL - 

LV + 1:BL - 15 + 5 * LU 
630 GOSUB 1700 

640 HCOLOR- 0:X2 - B(XP) * 8: 
2 = B(YP) * 8: DRAW BE AT X2 , Y 

650 DRAW FL AT AX * B.AY * 8: 
X - 2B:AY - MY + 1: HCOL.OR= 3 
660 GOSUB 4000: GOSUB 5000: R 
TURN 



Essa rotina promove o estouro do ba- 
lão quando ele é atingido pela flecha. 
Ela é muito simples: apenas coloca na 
tela a imagem do balão estourado, apa- 
gando-a em seguida. 

Depois de cada estouro, atualiza-se 
o número de balões restantes e, se for 
necessário, também o nível de dificul- 
dade. A flecha deve voltar, então, à po- 
sição de Freddy, para que ele possa es- 
tourar o próximo balão, 
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DISTANCIA X PESO 



SISTEMAS DE POLIAS 



POUPANDO ESF ORÇOS 



0 ELEVADOR HIDRÁULICO 



A mecânica é a área da física que 
estuda as forças que interagem entre 
os corpos, Utilize o computador para 
analisar alguns de seus princípios, 
simulando situações da vida cotidiana. 



Os grandes monumentos antigos — 
como as pirâmides do Egito e os tem- 
plos incas — sempre nos intrigaram, 
pois os povos que os construíram não 
possuíam a avançada tecnologia de que 
dispomos nos dias de hoje. 

Nenhum construtor contemporâneo 
se atreveria a executar uma obra como 
aquelas sem ter em mãos um equipa- 
mento que o ajudasse a cortar, transpor- 



tar e erguer a grandes alturas as gigan- 
tescas pedras que as compõem. No en- 
tanto, nossas mais sofisticadas máquinas 
são projetadas a partir dos mesmos prin- 
cípios que orientavam os antigos enge- 
nheiros. A ciência que estuda tais prin- 
cípios é a mecânica. 

As forças que atuam sobre um siste- 
ma estático (como um edifício) ou dinâ- 
mico (como as engrenagens de uma má- 
quina) são percebidas de modo quase 
instintivo. Assim, quando levantamos 
uma xícara de café, calculamos automa- 
ticamente a força exata para fazê-lo sem 
derramar o líquido. Do mesmo modo, 
ao escolhermos uma tábua para uma es- 
tante, sabemos mais ou menos qual a es- 
pessura que ela deve ter para suportar 
um determinado peso. 



Em situações simples, como as men- 
cionadas, apenas estimamos as forças 
em questão. Porém, em alguns casos, os 
cálculos devem ser muito precisos. E aí 
que entram os computadores. 

Você pode, é claro, usar dados obti- 
dos através de suas próprias experiên- 
cias para planejar simulações envolven- 
do forças. Assim, em programas de jo- 
gos, é possível estimar, com uma boa 
margem de acerto, a que distância uma 
bola vai parar depois de ter sido golpea- 
da por um bastão. 

Mas o computador em geral requer 
dados muito precisos. Quando um en- 
genheiro está projetando uma ponte, 
por exemplo, ele precisa saber exata- 
mente a força que atua sobre cada es- 
trutura e o seu limite máximo de resis- 
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tência. Aprendemos, aqui, a calcular 
forças em sistemas simples, onde as car- 
gas podem ser variáveis. 



A ALAVANCA 



O transporte de cargas muito pesadas 
torna-se um sério problema à medida 
que vão sendo construídas estruturas ca- 
da vez maiores. Durante a década de 60, 
o foguete Saturno V, que levaria o ho- 
mem até a Lua, era transportado em 
uma grande plataforma móvel, a maior 
até então fabricada. 

Atualmente, as plataformas de petró- 
leo do mar do Norte são transportadas 
por terra em veículos que flutuam sobre 
um colchão de ar. Esses equipamentos, 
e muitos outros mais simples, dependem 
sempre de algum tipo de máquina que 
lhes dê pressão, tracão ou movimento. 
Essas máquinas, por sua vez, não pas- 
sam de montagens mais complexas de 
alguns instrumentos básicos, já conhe- 
cidos e usados há séculos. 

Entre os mais primitivos deles está a 
alavanca. Em sua forma mais simples, 
ela consiste de um bastão. Uma das ex- 
tremidades desse bastão fica embaixo da 
carga e a outra é levantada para empur- 
rá-la. Usando esse artifício, uma pessoa 
pode mover objetos muitas vezes mais 
pesados que ela. Como afirmava Arqui- 
medes, o grande matemático do mun- 
do antigo, poderíamos levantar a Ter- 
ra, se tivéssemos um bastão bem longo 
e um ponto de apoio. 

Esse ponto de apoio está situado em 
algum lugar entre as duas extremidades 
do bastão. Digite este programa para ver 
uma simulação do funcionamento de 
uma alavanca. 




30 BORDES 0: PAPER 0: INK 7: 
CLS ! OVER 1 

40 INPUT -Dintancia do apoio 
a partir da esquerda {1-8 

Dl) "li 

50 IF d<) OH d>8 THEN GOTO 
40 

60 LET w=(10-(Í)/d 

70 PRINT AT 1,0; "Peão necesaa 

rio para equilibrar 100 KG-"; 

w*100:"KG- 
100 PLOT INK 4; 0,15: DRAW 
INK 4;255,0: FOR n-0 TO 55: 
PLOT (28+20*d)-n/3,71-n 
110 DRAW INK 7:2* 1 (28+20*0')- 
PEEK 23677) ,0: NEXT n 
120 LET a=d-10: LET a=ATN (a/ ( 
l-a*a) )+2«ATN (1) 
130 FOR b=a TO 2*ATN (1) STEP 
<2*ATN (l)-a)/10 
140 FOR k-1 TO 2: GOStIB 1000: 
GOSUB 1500 
160 NEXT k 
170 NEXT b 

1B0 LET B=2*ATN (1): GOSUB 

1000: GOSUB 1500 

190 IF INKEYS-"" THEN GOTO 

190 

200 RUN 

1000 PLOT 120-100*STN tb) , 71-20 
*d*COS (b) 

101] DRAW 127+100*SIN (b) -PEEK 
23677, 71+C200-20*d>*COS (b)-PEE 
K 23678 

1025 DRAW 0.-8: DRAW -10,0: DRA 
W 0.-10: DRAW 20,0: DRAW 0,10: 
DRAW -9.0: POKE 23678. (PEEK 236 
78) +6 

10 30 RETURN 

1500 PLOT 128-100*SIN (b) . 70-20 
*d*C0S (b) 

1510 LET e-SQR (SQR u) 
1520 DRAW 0.-B: DRAW -10*e,O: D 
RAW 0,-10*e: DRAW 20*e , 0 : DRAW 
0,10*e: DRAW -9*e,0 



1530 RETURN 

D 

10 PMODE 3,1:PCLS 

20 COLOR 3:LINE {0 . 180) - (255 , 19 

1) .PSET.BF 

30 CLS 

40 INPUT" DISTANCIA DO APOIO A 
PARTIR DA ESQUERDA (1-8 H) "j 

D 

50 IF D<1 OR D>8 THEN 30 
60 W-(10-D)/D 

70 PRINT:PRINT"PESO NECESSÁRIO 
PARA EQUILIBRAR 100 KG --;W*100 
i "KG" 

80 FOR G-l TO 4000:NEXT 
90 SCREEN 1,0 

100 COLOR 2:LINE(28+20*D,150)-( 

1B+20*D.179) ,PSET 

110 LINE - (38+20*D. 1 79) , PSET:L1 

NE - (28+20*D. 150) . PSET : PAINT { 28 

+20"D,160) .2 

120 A=10-D:A=ATN(A*A-1) 

130 FOR AN-A TO 2*ATN(1) STEP ( 

2*ATN(1)-A)/10 

140 C=4:GOSUB 1000 : C= 3 :GOSUB 15 

00 

150 FOR G-l TO 500:NEXT 

160 C-l: GOSUB 1000:GOSUB 1500 

170 NEXT 

180 AN=2*ATN (1) :CM : GOSUB 1000: 

3: GOSUB 1500 
190 IF INKEYS=" " THEN 190 
200 RUN 

1000 COLOR C: LINE (128-100 *S IN (A 
N) . 149-20*D*COS (AN) ) - (134+100*S 
IN (AN) ,149+(200-20*D)*COS(AN) ) . 
PSET 

1020 DRAW' , D2L6D6R10U6LB■' 
1030 RETURN 

1500 COLOR C':L1NE(132-100*SIN(A 
N) , 147-20*D*COS(AN) )- [132-100*S 
IN{AN)-SQR(W)*/.14 7-20*D"COS(AN 
) -SQR(W) -7) .PSET.BF 
1530 RETURN 



um 



OCRAMACAC 
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5 SCREEN O : MAXF I L ES = 1 : COLOR 15, 

1.1 

10 INPUT-diatância do ponto de 



apoi 



(1- 



15 IF DO OB D>8 THEN 10 
20 W-(10-D)/D 

25 SCREEN 2 : OPEN-GHP : " FOR OUTP 

UT AS |1 

30 PRESET(O.O) 

35 PRINT II , " PESO QUE EQUILIBRA 

100 KG»" ; INT(W*10Q) : "KG" 
40 LINE<0.180)-(255,191) . 3.BF 
45 FOR 1-0 TO 10 

50 LINE (28+20*1, 180) - (2B+20*I . 
191) ,6 
55 NEXT I 

60 LINE(28+20*D,150)-(18+20«D,1 
79) ,2:LINE-(38+20*D,179) ,2:LINE 
-(28+20-D.150) ,2:PAINT(28+20*D. 
160) ,2 

65 A-10-D:A=ATN(A*A-1) 

70 FOR AN=A TO 2*ATN(1) STEP (2 

«ATN(1)-A)/10 

80 C=4 :GOSUB 1000 : C=3 :GOSUB 1500 
90 FOR G=l TO 500:NEXT G 
100 C»l: GOSUB 1000:GOSUB 1500 
110 NEXT AN 

L20 AN-2*ATN(1) :C«4:GOSUB 1000: 

C-3:GOSUB 1500 

130 IF INKEYS-"" THEN 130 

140 RUN 

1000 LINE (128-100*SIN(AN) .149- 
20*D*COS(AN) )- (134+100*SIN(AN) , 
149+[200-20*D)*COS(AN) ) ,C 
1010 DRAWD2L6D6H10U6LB" 
1020 RETURN 

1500 LINE (132-100*S1N(AN) .147- 
20*D*COS(AN) ) - (132-100*SIN(AN)- 
SQR CU) *7 . 147-20»D*COS (AN) -SQR (W 
)*7) .C.BF 
1510 RETURN 



10 UTAB (23): INPUT "DISTANCIA 

DO PONTO DE AP0I0(1-8M)-";D 
15 IF D < 1 OR D > 8 THEN 5 
20 W - (10 - D) / 10 
30 VTAB (24): PRINT "PARA EQUI 
LIBRAR 100 KG E PRECISO " :W * 1 



00 ; 



KG" 



D, 120 TO 18 



40 HPLOT 28 4 

+ 20 * D, 149 
50 HPLOT TO 38 + 20 * D, 149 T 
O 28 + 20 * D, 120 
60 A - 10 - D: A - ATN (A * A - 

1) 

70 FOR AN - A TO 2 * ATN (1) 
STEP (2 * ATN (1) -A) /10 
80 HCOLOR- 3: GOSUB 1000 
90 FOR G ■ 1 TO 1000: NEXT G 
100 HCOLOR- 0: GOSUB 1000 
110 NEXT AN 

120 AN = 2 * ATN (1): HCOLOR- 
3: GOSUB 1000 
130 GET AS: RUN 

1000 X - 12B - 100 • SIN (AN) : 
t - 119 - 20 * D ■ COS (AN) :R 
- 134 + 100 • SIN (AN):S - 119 

+ (200 - 20 * D) « COS (AN) 
1010 HPLOT X.Y TO R.S 
1020 HPLOT R.S TO R,S + 2 TO R 

- 6,S + 2 TO R - 6,3 + 8 TO R 
+6.S+8T0R + 6,5 + 2 TO R.S 

+ 2 

1500 HPLOT 132 - 100 « SIN (A 
NJ.117 - 20 * D * COS (AN) TO 
132 - 100 * SIN (AN). 117 - 20 

* D * COS (AN) - SQR (W) « 7 
TO 132 - 100 * SIN (AN) - SQR 

(W) * 7,117 - 20 * D * COS (A 
N) - SQR (W) • 7 
1510 HPLOT 132 - 100 * SIN (A 
N) - SQR (U) * 7.117 - 20 * D 

* COS [AN) - SQR (W) * 7 TO 1 
32 - 100 * SIN (AN) - SQR (W) 

* 7,117 - 20 * D * COS (AN) T 
O 132 - 100 * SIN (AN). 117 - 2 




Ao executar o programa, o compu- 
tador pedirá que você digite a distância 
do ponto de apoio (D), a partir da ex- 
tremidade esquerda de uma barra de 10 
m. Ele imprime, então, o peso necessá- 
rio para equilibrar 100 kg na outra pon- 
ta (W). O ponto de apoio é desenhado 
pelas linhas 100 e 110 (TRS-Color e 
Spectrum), 40 e 50 (Apple e TK-2000) 
e 60 (MSX). Um faço controla a anima- 
ção da alavanca — linhas 130 a 170 
(TRS-Color e Spectrum) e 70 a 110 
(MSX, Apple e TK-2000) — , chaman- 
do a sub-rotina 1000, que desenha a bar- 
ra, e a 1500, que desenha os pesos. 

Introduza diferentes valores para D 
e note que, quanto mais distante do pon- 
to de apoio, menor é o peso necessário. 
Do mesmo modo, uma distância mais 
curta requer um peso maior. 



Existe uma fórmula matemática bem 
simples para o cálculo de distâncias e pe- 
sos em alavancas; basta que você saiba 
onde se encontra o ponto de apoio. Se- 
gundo essa fórmula, a carga, multipli- 
cada pela distância até o ponto de apoio, 
é igual ao peso usado vezes a distância 
até esse ponto. Em termos de variáveis, 
seria o seguinte: 

C x DC - Px DP 

No programa anterior, usamos W no 
lugar de P. A barra mede 10 m, logo, 
DC é igual a 10 menos DP. Se a carga 
fosse de 1 kg, o peso necessário para 
equilibrá-la seria então: 

W = (10 - DE)/DE 



conforme usamos nas linhas 60 (TRS- 
Color e Spectrum) e 20 (MSX. Apple e 
TK-2000). A variável DE (D, no progra- 
ma) foi introduzida por você. 

As balanças mecânicas utilizam esse 
princípio. Toma-se um ponto de apoio 
no meio da barra e coloca-se o peso a 
ser medido em uma das extremidades. 
A partir daí, adicionam-se massas já co- 
nhecidas do outro lado, até atingir o 
equilíbrio. O peso do objeio será a so- 
ma dessas massas. Isso funciona muito 
bem para pequenos pesos, mas, quan- 
do se trata de grandes cargas, o proce- 
dimento é outro. Nesse caso, o ponto de 
apoio é colocado bem próximo da car- 
ga e calcula-se o peso aplicando a fór- 
mula já explicada. 

Depois de ter brincado um pouco 
com seu programa, você estará pronto 
para identificar o funcionamento de ala- 
vancas em qualquer tipo de máquina. I 



Ao trabalhar com uma chave inglesa ou 
com o macaco do seu carro, nunca se 
esqueça de que a distância que você to- 
mar do ponto de apoio poderá reduzir 
muito o seu esforço. 



SISTEMAS DE POLIAS 



As alavancas são muito úteis para pu- 
xar e empurrar objetos, mas, quando se 
quer levar uma carga a grandes alturas, 
é necessário utilizar as polias. Digite o 
programa a seguir para vê-las em fun- 
cionamento. 




10 CLEAR 32399: HE3TOBE : 
GOSUB 5 10: BORDEB 0: PAPER 0: 

IKK 7: CLS 
20 PRINT AT 10,0;"Quantas rol 
danaa (2, 4 ou 6)? - 
30 LET aS-INKEY$: IF a$<>"2" 
AND aS<>"4" AND aS<>"6" THEN 
GOTO 30 

40 PRINT TAB (10);a$: LET np= 
VAL (aS) : LET l-25*np-50 

45 IF np-2 THEN POKE 32431, 
25 

46 IF np-4 THEN POKE 32431, 
1? 

47 IF np-6 THEN POKE 32431, 
14 

50 PRINT I PRINT "Sao neceaaa 
noa ";INT (1000/np);" quilog 
ramas" : PRINT "para levantar 
1 tonelada" 

55 FOR m-1 TO 500: NEXT m 

60 CLS : GOSUB 1000 

70 LET sp-120 

90 FOR k-1 TO 50 
100 RAND USB 32400 
105 PLOT OVER 1 ; 191- 1 -np , ap : 
DRAW OVER L;B,0 
110 PLOT OVEH 1 r 191-1-np, Bp: 
DBAU OVER ] ,8,0 
120 LET sp-sp-np: IF np< = 0 
THEN LET sp-120 
150 NEXT k 



160 IF INKEYS" " " THEN GOTO 
160 

170 RIPN 

510 FOR n=32400 TO 32491 
520 READ a: POKE n.a 
530 NEXT n 

540 DATA 62,60,79.230,192,15, 
15. 15, 198. 64. 103, 121, 230, 7, 132 
,103,121.135,135,230.224,111. 
62 

550 DATA 175,254.192,208,145, 

216,8,14,14.125,177,111,62,30, 

254,32,208,145.216,60.79.6,0, 

197,229.17,224,91,237,176,225 

560 DATA 193, 217, B, 167, 40, 30, 

71,217,124,60,87,93,230.7,32, 

10.123.198,32,95.56,4,122,214, 

6,87.235 

570 DATA 229.197,237,176,193, 

225.217,16,227.217,201 

580 BETURN 
1000 PLOT 0.170: DRAW 255,0 
1010 FOB k=l TO np STEP 2 
1020 CIBCLE (232-k*26) ,140.13 
1030 CIRCLE (25B-k*26) .50,13 
1040 NEXT k 

1050 PLOT 245.170: DRAW 0,-125 

1060 FOR k=l TO np-1 

1070 PLOT 246-k*26,140: DBAW 0. 

-90 

1080 NEXT k 

L090 PLOT 197-l-np,140: DBAW 0, 
-140 

1100 PLOT 208,141: DRAW (256-np 

*26)-PEEK 23677,0 

1110 PLOT 234.50: DRAW (282-np* 

26) -PEEK 23677,0 

1120 PLOT 206,170: DBAW 0,-28: 

PLOT 258-np*26,170: DRAW 0,-28 

11.30 PLOT 231-1*2/3,50: DRAW D. 

-20 

1140 PLOT 232-1/3,50: DRAW 0.-2 

0 

1145 DBAW <231-l*2/3)-PEEK 2367 
7,0 

USO PLOT 231-1/2.29: DBAW 0,-1 
0 

1160 DRAW -9,0: DRAW 0,-10: DRA 
W 19.0: DRAW 0,10: DRAW -9,0 
1170 PLOT 180-1,0: DBAW (180-1- 
20/SQB (np))-PEEK 23677,0: DRAW 
0,(20/SQR (np)J-PEEK 2367B: DB 



AW (180-1 } -PEEK 23677,0: DRAW 0 
,0-PEEK 23678 
1210 RETUBN 

■ ■ 

10 PM ODE 3,1:DIM P{280) 

20 CLS: PBINT "QUANTAS ROLDANAS 

(2. 4 OU 6) ? " ; 

30 AS-INKEVS:IF AS<>"2" AND AS< 

>"4" AND AS<>"6" THEN 30 

40 PRINT AS:NP-VALIAS) :L-25*NP- 

50 

50 PRINT:PRINT"SAO NECESSÁRIOS 
" ; 1000/NP : PRINT "QUILOGRAMAS PAB 
A LEVANTAR 1 T0N.":FOB G-l TO 4 
000 : NEXT 

60 PCLS:SCREEN 1,0: GOSUB 1000 
70 GET(249.172}-(215-L.106) ,P.G 
:SP=36 

80 COLOB 4.1 

90 FOR K=106 TO 49 STEP -1 

100 PUT (249.K+66)- (215-L.K) ,P. 

PSET 

110 LINE(191-L-NP.SP)-(199-L-NP 
,SP) , PBESET 

120 SP-SP+NP:IF SPM91 THEN SP- 
38 

130 LINE(195-L-NP.33)-(195-L-NP 
, 191) , PSET 

140 LINE(191-L-NP.SP>-U99-L-NP 
, SP) ,PSET 
150 NEXT 

160 IF INKEYS=" " THEN 160 
170 RUN 

1000 LINE(0,0)-(255.10) ,PSET.BF 

1010 FOB K=l TO NP STEP 2 

1020 CIRCLE(232-K*26,33) ,13.2:P 

AINT(232-K*26,33) ,2 

1030 CIRCLE (232-K*26,33) ,14,4, 

1, .5,1 

1040 CIRCLE (256-K*26, 121) .13,2 

:PAINT (258-K*26,121) ,2 

1050 CIRCLE (258-K*26. 121) .14,4 

, 1,0. .5 
1060 NEXT 

1070 LINE(245, 10) - (245.121) ,PSE 
T 

1080 FOR K-l TO NP-1 

1090 LINE (246-K*26,33)-(246-K« 

26,121) ,PSET 

1100 NEXT 



1110 LINE(195-L-NP,33)-(195-L-N 
P.191) ,PSET 

1120 COLOR 4.3:LINE(208,32)-(25 
6-NP*26.34) , PRESET . BF 
1130 LINE(234.120)-(282-NP*26.1 
22) , PRESET, BF 

1140 LINE(206,10) - (206, 33) ,PSET 
:LINE(258-NP*26.10)-<25B-NP*26, 
33) ,PSET 

1150 LINE(232-L*2/3.121)-(232-L 
•2/3, 141) , PRESET 

1160 LINE{232-L/3,1211-!232-L/3 
. 141) , PHESET 

1170 LINE -(232-L*2/3,14í) , PRES 
ET 

UBO LINE{232-L/2,141)-(232-L/2 
.151) , PRESET 

1190 DRAWL9D19R19U19L.9" 

1200 LINE[180-L.191)-<180-L-20/ 

SQR(NP) .191-20/3QR(NP)) , PRESET , 

BF 

1210 RETUHN 

m 

100 SCREEN OtCOLOR 15,1.1'PRIN 

T TAB(7) "Quantas pollaa(2,4 ou 
6)?"i 

110 AS-INKEYS:IF AS<>"2" AND AS 
0'4" AND AS <>"6" THEN 110 
120 PRINT AS:NP-VAL'(AS) :L-25»NP 
-50 

130 PRINT : PRINT TAB(7) "Força n 

ecesBária ; INT (1000/NP) ; "Kg" : 

PRINT TAB(7)"para levantar 1 to 

n*lada":FOR G-l TO 4000:NEXT 

1000 CLS:SCREEN 2 

1010 LINE(0,0)-<255,10] , 5 , BF 

1020 FOR K-l TO NP STEP 2 

1030 CIRCLE(232-K*26.33) ,13,2:P 

AINT(232-K*26.33) ,2 

1040 LINE(232-K*26.33)-(232-K*2 

6,10) 

1050 NEXT K 

1060 LINE(208.32)-(256-NP*26.34 
) . . BF 

1070 FOR V-0 TO -30 STEP -5 
1080 GOSUB 1500 
1090 FOR 1-1 TO 300:NEXT I 
1100 NEXT V 

1110 FOR 1=1 TO 2000:NEXT I 
1120 GOTO 100 



1500 LJNE(194-L-NP-12/NP.75-3*( 
U+5) ) - (196-L-NP+12/NP. 75+30/NP- 
3MV+5)) ,1.BF 

1510 LINE(195-L-NP,33)-(195-L-N 
P,75-3«V) ,2 

1520 L1NE(194-L-NP-12/NP,75-3*U 
)-(196-L-NP+12/NP,75+30/NP-3*V) 
.10. BF 

1530 LINE(249,175+V)-(215-L,107 
+U) , l.BF 

1540 FOR K=l TO NP STEP 2 
1550 CIRCLE(258-K*26,121+V) .13, 
2:PAINT(259-K*26,121+V) ,2 
1560 NEXT K 

1570 LINE(245,10+V)-(245.121+V) 
,2 

1580 FOR K-l TO NP-1 

1590 LINE(246-K*26,35)-(246-K*2 

6.121+V) ,2 

1600 NEXT K 

1610 LINE(234,120+V)-(282-NP"26 
,122+U) , .BF 

1620 LINE(232-L*2/3,121+'V)-(232 
-L*2/3,141+V) 

1630 LINE(232-L/3,121+V)-(232-L 
/3,141+V) 

1640 LINE-(232-L«2/3.141+V) 
1650 LINE(232-L/2,141+V)-(232-L 
/2,151+V) 

1660 DRAWCBL9D19R19U19L9" 
1670 RETURN 

HltSl 

10 E - 780 

20 F - INT (E / 256) 

30 POKE 232, E - F • 256: POKE 

233, F 

40 FOR I ■ E TO E + 41 + 1 " 3 

2 

50 READ A: POKE I.A 
60 NEXT 

70 SCALE- 1: ROT- 0 
80 DATA 20 ,0 ,42 ,0 .74 ,0 
,106 ,0 ,138 ,0 ,170 ,0 ,202 ,0 
.234 .0 ,10 ,1 ,42 ,1 ,74 ,1 , 
106 ,1 .138 ,1 ,170 ,1 .202 ,1 
,234 ,1 .10 ,2 ,42 ,2 ,74 ,2 ,1 
06 ,2 ,138 ,2 

90 DATA 0 ,72 ,45 ,109 ,209 
,251 ,219 .23 .77 ,73 ,169 ,25 
1 ,219 ,27 ,110 ,73 ,9 ,213 ,22 



IIIIIIIIHMH 
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3 ,219 ,115 .77 ,9 ,141 .219 ,6 

3 ,255 ,2 .0 ,0 .0 .0 

100 TEXT : HOME : UTAB (10) : H 

TAB (7) : PRINT "QUANTAS POLIAS 

? (2.4 OU 61 *f. GET NP 

110 IF NP < > 2 AND NP < > 4 

ANO NP < > 6 THEN 100 
120 PBINT NP 

130 HGB : HCOLOH- 3: VTAB (23) 
: PHINT "FORCA NECESSÁRIA"" ; IN 
T (1000 / NP);" Kg": PRINT "PAR 
A LEVANTAR 1 TONELADA" 
1000 FOB I - 0 TO 9 
1010 HPLOT 0.1 TO 255,1 
1020 NEXT I 

1030 FOR K - 1 TO NP STEP 2 
1040 DRAW 1 AT 147 - K * B,33 
1060 NEXT K 

1070 FOR I = 1 TO NP STEP 2 
1080 HPLOT 135 - (I - 2) * 8,1 
0 TO 135 - (I - 2) * 8, 34 
1090 NEXT I 

1100 HPLOT .143,34 TO 143 - (NP 

- 2) "8,34 

1110 FOR V = 0 TO 36 STEP 3 
1115 HCOLOR- 3: GOSUB 1500 
1120 FOB T ■ 1 TO 500: NEXT T 
1125 IF V - 36 THEN GOTO 1150 
1130 HCOLOR" 0: GOSUB 1500 
1140 NEXT V 

1150 FOR T - 1 TO 2000: NEXT T 
1160 GOTO 100 

1500 FOR K - 1 TO NP STEP 2 
1510 DRAU 1 AT 155 - K * B.121 

- V 

1520 NEXT K 

1530 HPLOT 155.10 TO 155,123 - 
V 

1540 FOB K - l TO NP - 1 
1550 HPLOT 155 - K * 8.34 TO 1 
55 - K ■ 8,123 - V 
1560 NEXT K 

1570 HPLOT 138 - (NP - 2) * 8. 
34 TO 138 - (NP - 2) * 8,38 + N 
P / 2 * V 

1580 FOR I - - 1 TO 1 

1590 HPLOT 138 - (NP - 2) * B 

+ 1,38 + NP / 2 • V TO 138 - (N 

P - 2) * 8 + 1,38 + 36 / NP + N 

P / 2 * U 

1600 NEXT I 

1610 HPLOT 151.123 - V TO 151 

- (NP - 2) * 8,123 - V 

1620 HPLOT 151 - (NP / 2 - 1) 

• B.123 - V TO 151 - (NP / 2 - 
1) » 8.12B - y 

1630 FOR I = - 4 TO 4 

1640 HPLOT 151 - (NP / 2 - 1) 

* 8 + 1.128 - V TO 151 - (NP / 
2 - 1) « B + T.135 - V 

1650 NEXT I 
1660 BETUBN 

O programa começa perguntando se 
você quer um sistema de duas, quatro 
ou seis polias. Em seguida ele mostra na 
tela o peso necessário para levantar uma 
carga de 1000 kg. A partir da linha 1000, 
o computador desenha as roldanas fi- 
xas, e, na linha 1 500 (na versão para o 
MSX, Apple e TK-2000) ou 90 (TRS- 



Color e Spectrum), ele constrói e movi- 
menta as roldanas e os pesos. 

No programa para o Apple e o 
TK-2000, as linhas 10 a 90 introduzem 
uma tabela de dados que permite dese- 
nhar círculos por meio do comando 
DRAW. 

Ao executar o programa, você obser- 
vará que quanto maior for o número de 
polias menor será o peso necessário pa- 
ra levantar a carga. Para calcular o peso 
em um sistema desse tipo, basta dividir 
a carga pelo número de polias. Se você 
quiser levantar 1000 kg, usando seis po- 
lias, deverá empregar um peso de apro- 
ximadamente 166 kg. Em alguns casos 
ocorre o contrário: sabe-se quanto pesa 
a carga e qual a força máxima disponí- 
vel. Nesse caso, divide-se a carga pela 
força e arredonda-se o resultado para o 
maior número par. Por exemplo, você sa- 
be que consegue levantar 60 kg usando 
só uma polia; logo, para levantar 250 kg, 
você deverá utilizar seis polias. 



POUPANDO ESFORÇOS 



Como no caso da alavanca, também 
em um sistema de polias a força está re- 
lacionada com a distância. Você pode 
notar, em nossa simulação, que quanto 
maior é o número de polias mais a ex- 
tremidade livre da corda se aproxima do 
chão. Isso mostra que, para levantar um 
peso a uma certa altura usando uma for- 
ça menor, você terá que puxar, para 
compensar, uma corda de comprimen- 
to maior. Na verdade, em um sistema 
desse tipo, o número de polias já deter- 
mina qual será o comprimento da cor- 
da que precisaremos puxar para que a 
carga suba em uma unidade. Por exem- 
plo, em um sistema de duas polias, te- 
mos que puxar dois metros de corda pa- 
ra que a carga suba um metro. 

O sistema que nosso programa simu- 
la na tela do microcomputador não é o 
mais comum. Em geral, as barras pas- 
sam pelo centro das roldanas, manten- 




Simulaçâo das polias no MSX. 



do-as paralelas e bem próximas. Um sis- 
tema de seis polias seria visto, então, co- 
mo três discos colados um ao outro, na 
vertical, e, abaixo deles, pendurados pe- 
las cordas, mais três discos, onde se 
prende a carga. 



0 ELEVADOR HIDRÁULICO 



Outro instrumento que funciona da 
mesma maneira que a alavanca é o ele- 
vador hidráulico. Ele é utilizado para le- 
vantar grandes cargas — de automóveis 
até foguetes e aviões. 

O freio dos automóveis atuais, que 
funciona baseado em um princípio idên- 
tico, mostra como a força de nossos pés 
pode ser amplificada a ponto de parar, 
em um tempo muito reduzido, o movi- 
mento de um corpo tão pesado. 



SIMULAÇÃO 



Para observar o funcionamento do 
elevador hidráulico, digite e rode o pro- 
grama a seguir. 




30 BORDER 0: PAPER 7: INK 0 : 
CLS 

50 GOSUB 300 

90 INPUT "Curso do embolo (1- 

90) ? "itr 
100 IF tr<l Ofi tr>90 THEN 

GOTO 90 
110 FOR k-1 TO tr 
120 PLOT 40,12B-(k-l) : DRAU 
INK 7;10,0: PLOT 40,12B-k: 
DRAU 15.0 

130 PLOT 175,127+(k-l)/10: 

DRAU INK 1;56,0: PLOT 175.127 

+k/10: DBAU INK 1;56,0 

135 PRINT INK 0;AT 3,5;k; INK 

0 i AT 3.25;INT (k/10) 

140 NEXT k 

150 INK 0: PRINT AT 21.0;" 

Novamente ? (a OR n) 

160 IF INKEYS-"a" THEN RUN 

170 IF INKEYS<>"n" THEN GOTO 

160 

180 3TOP 

300 FOR n-6 TO 18: PRINT 
PAPER l.;AT n,5i" ": NEXT n 
310 FOB n-6 TO 18: PRINT 
PAPER 1;AT n,22j" ": 
NEXT n 

320 FOR n=18 TO 21: PRINT 
PAPER 1;AT B,3(" 

" : NEXT n 
330 PLOT 39,155: DRAU 0,-155: 
DRAU 192,0: DRAU 0.155: PLOT 
56.155: DRAU 0,-124: DRAU 120. 
0: DRAU 0,124 

340 PLOT 40.127: DBAW -2.0: 
PRINT AT 6,3;"0": PLOT 40.37: 
DRAU -2,0: PRINT AT 17,2;"90": 
PLOT 232,127: DRAU 2,0: PRINT 



IIIIHIIHIHH 
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AT 6,30;"0" 

350 PLOT 232,137: DRAW 2,0: 
PRINT AT 4.30;"9" 
360 FOR n-127 TO 37 STEP -10 
370 PLOT 40, n: DRAW -2,0: NEXT 

380 PLOT 232,132: DP AH 2,0 
390 PLOT 120.35: DRAW 0,-35 
400 PLOT 110,40: DRAW 20,0: 
DRAW -5,5: DRAW 5.-5: DRAW -5, 



■ ■ 



10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 DIM P{4> ,R(31) 

50 GOSUB 300 

60 GET(32,52)-(43,38) ,P,G 

70 GET(182,52)-(223.23) ,R,G 

80 IF INKEYS-"" THEN 80 

90 CLS:INPUT"DESLOCAMENTO DO EM 

BOLO (1-90) " iTR 

100 IF TR<1 OR TR>90 THEN 90 

110 SCREEN 1,0: FOR K-l TO TR 

120 PUT(32,52+K)-(43. 38+K) ,P.PS 

ET 

130 PUT(182,52-K/10)-{223,23-K/ 
10] .R.PSET 
140 NEXT 

150 IF INKEYS-"" THEN 150 
160 CLS:PRINT " NOVAMENTE (S/N) 
?" 

170 AS-INKEY$:IF ASO"S" AND AS 

<>"N" THEN 170 

180 IF AS="S" THEN RUN 

190 CLS : END 

300 DRAWBM30.30C2D131R19SU131B 

L45D20NR45D96H35U96NL15U20" 

310 PAINT(200 , 70) . 3, 2 

320 DRAWBM32.50C3R10BR140R41" 

330 DRAWBM127. 161C2U20BH8C4R16 

NK5G5" 

340 LINE(34.48)-(41,41) .PSET.BF 
3S0 LINEU91.48)-(215.23) ,PSET, 
BF 

360 FOR K=0 TO 9 

J70 COLOR 2:LLNE(26.50 + KM0)-(3 
0,50+KMO) ,PSET 
380 NEXT 

390 DRAWBM20 . 46C4D6L4U6R4BD90N 

L4D6L4U6BL4ND6L4D3R4C2" 

40U FOR K-0 TO 9 STEP 3 

410 LINE(225,50-K)-(229,50-K) ,P 

SET 

420 NEXT 

430 DRAW"BM232,48C4D6R4U6L4BU9N 

R4U3R4D6" 

44 0 R t TU RN 



70 LINE(34,50+I)-(39.43+I) ,15.B 
F 

80 LINEU81,SO-I/10)-(225,50-I/ 
10) .2 

90 LINE(191.23-I/10)-(215,4B-I/ 
10) . 15. BF 
100 NEXT I 

110 IF INKEYS-"" THEN 110 ELSE 
GOTO 10 

300 SCREEN 2 : COLOR 15.14,14 

310 DRAW"BM30,3OC2D131R195U131B 

L45D20NR45D96L135U96NL151J20" 

320 PAINT(200,70) .2,2 

330 DRAW"BM32,50C3R10BR140R41" 

340 DRAW"BM127,161C2U20BH8C4R16 

NH5G5" 

350 LINE(34,48)-(39,41) , ,BF 
360 LINE (191,48)-(215,23) , ,RF 
370 FOR K-0 TO 9 

380 LINE(26.50+K«10)-(30,50+K*1 
0) .2 

390 NEXT K 

400 DRAW" BM 20 , 46C4D6L4U6R4BD90N 

L4D6L4U6BL4ND6L4D3R4C2" 

410 FOR K-0 TO 9 STEP 3 

420 LINE(225.50-K)-(229.50-K) 

430 NEXT K 

440 DRAWBM232 , 46C4D6R4U6L4BU9N 

R4U3R4D6" 

450 RETURN 



20 HOME : HTAB (5) : VTAB (10) 

30 INPUT "QUAL O CURSO DO EMBO 

LOU-90)? 'íC 

40 GOSUB 300 

50 FOR I - 1 TO C - 1 

55 HC0LOR- 0 

60 HPLOT 31,49 + I TO 44,49 + 

I 

70 HPLOT 34.42 + I TO 39,42 ♦ 



I 

100 HPLOT 181,50 - T / 10 TO 2 
24,50 - I / 10 

110 HPLOT 191,25 - I / 10 TO 2 
15,25 - I / 10 
120 NEXT I 

130 FOR T - 1 TO 5000: NEXT T: 

TEXT : GOTO 20 
300 HGR2 : HCOLOR- 3 
310 HPLOT 30,30 TO 30,161 TO 2 



10 SCREEN 0:COLOR 1,14.14 
20 LOCATE 3,10:INPUT"Qual i 
ao do Babolo(l-90)";C 
30 IF CO OR C>90 THEN 20 
40 GOSUB 300 
50 FOR 1-0 TO C-l 
60 LINE(31,37+I)-(44.50+I) ,14,B 




A alavanca na tela do TRS-Color. 



25,161 TO 225,30 

320 HPLOT 180,30 TO 180.146 TO 

45,146 TO 45,30 
330 FOR I - 0 TO 96 
340 HPLOT 30,50 + I TO 45,50 + 

X 

350 HPLOT 160,50 + I TO 225.50 

+ I 
360 NEXT I 
370 FOR I - 0 TO 15 
380 HPLOT 30,146 + I TO 225,14 
6 + 1 

390 NEXT I 

400 FOR I - 0 TO 9 

410 HPLOT 26,50 + I * 10 TO 30 

,50 + I * 10 

420 NEXT I 

4 30 FOR I - 0 TO 9 STEP 3 

440 HPLOT 225,50 - I TO 229,50 

- I 
4S0 NEXT I 

460 HPLOT 20.46 TO 20.53 TO 15 

,53 TO 15,46 TO 19,46 

470 HPLOT 11,140 TO 7,140 TO 7 

,136 TO 11.136 TO 11.143 TO 7,1 

43 

480 HPLOT 20,136 TO 20,143 TO 
15,143 TO 15,136 TO 20.136 
490 HPLOT 232,46 TO 237,46 TO 
237,55 TO 232,55 TO 232.48 
500 HPLOT 232,42 TO 237.42 TO 
237,35 TO 232,35 TO 232,39 TO 2 
37, 39 

510 HPLOT 103,140 TO 117,140 T 
0 110,136: HPLOT 117.140 TO 110 
,144 



550 NEXT J 

560 FOR K - 1 TO 26 

570 HPLOT 191,24 + K TO 215,24 



Inicialmente, o computador pergun- 
ta quanto você quer que o êmbolo des- 
ça, em um intervalo de 1 a 90. A rotina 
que começa na linha 300 desenhará o 
elevador e o laço da linha 110 (na ver- 
são para os micros Spectrum e TRS- 
Color) ou da 50 (MSX, Apple e 
TK-2000) deverá movimentá-lo. 



Quanto maior for o diâmetro do êm- 
bolo maior terá que ser a força aplica- 
da. Na nossa simulação, ele é bem me- 
nor que o diâmetro do elevador; portan- 
to, a força para empurrá-lo para baixo 
será bem menor que o peso do objeto 
a ser levantado. Observamos, porém, 
que, assim como no caso das polias, o 
trajeto do êmbolo é maior que a altura 
da carga — ou seja, teremos que mover 
o êmbolo em várias unidades para que 
o elevador suba uma só. 



IIIIIIIIIIIUMI 



CONTROLE POR 
TECLAS MÚLTIPLAS 



No controle de jogos, o joystick ganha 
em sofisticação, enquanto o teclado 
se destaca pela versatilidade. Veja 
como fazer para que sejam detectadas 
várias teclas ao mesmo tempo. 



Uma das características mais impor- 
tantes num jogo é a qualidade de inte- 
ração computador-usuário. Na maioria 
dos casos, o joystick oferece um contro- 
le mais sofisticado, mas o teclado o su- 
pera, sem dúvida alguma, no que diz 
respeito à versatilidade. 

Em geral, utilizam-se os comandos 
INKEYS e GETS para detectar se uma 
tecla está sendo pressionada. Esses co- 
mandos, porém, apresentam uma defi- 
ciência: só são capazes de detectar duas 
teclas a o me smo tempo caso uma delas 
seja SHIFT (ou similares, como CTRL 
ou SYMBOL/SHUT). 

A detecção de tais combinações é su- 
ficiente para a maior parte dos propcV 
sitos, mas não para todos. Se quisésse- 
mos, por exemplo, controlar os movi- 
mentos vertical e horizontal de uma 
ve, disparar o laser e lançar bombas, si- 
multaneamente, seríamos obrigados a 
acionar quatro teclas. A solução para es- 
se tipo de problema depende do próprio 
computador. 



EFEITO DO ACIONAMENTO DAS TECLAS 



Para entender como se dá a detecção 
múltipla, precisamos examinar os meca- 
nismos que permitem ao computador 
saber qual tecla está sendo pressionada. 
Os micros pessoais utilizam, comumen- 
te, dois processos. O primeiro consiste 
em "varrer" o teclado de tempos em 
tempos, verificando se alguma tecla foi 
pressionada. No TRS-Color, por exem- 
plo, o teclado é "varrido" a cada 1/100 
de segundo; já no MSX, isso ocorre a 
cada 1/60 de segundo. 

No segundo processo, o acionamen- 
to de uma tecla gera uma mensagem — 
chamada interrupção — , que é enviada 
ao processador. O computador inter- 
rompe sua tarefa e verifica o teclado, em 
busca da tecla pressionada. Esse méto- 
do é bem mais eficiente e versátil que o 
da varredura, porque dispensa a verifi- 
cação das teclas quando não estão sen- 
do acionadas — ou seja, o primeiro mé- 
todo varre o teclado de tempos em tem- 
pos, mesmo que nenhuma tecla seja 
acionada; o segundo só faz a varredura 
quando há acionamento de teclas. 

Seja qual for o método utilizado, o 



computador deve ser capaz de identifi- 
car a tecla acionada o mais rapidamen- 
te possível. A maioria dos teclados em- 
prega um sistema denominado gerador 
de matriz, fornecendo ao computador 
um número que identifica a posição da 
tecla na matriz. O que vai ocorrer de- 
pois da geração do número varia de má- 
quina para máquina. 



O teclado do Spectrum compôe-se de 
quatro fileiras com dez teclas cada. Su- 
pondo que cada fileira seja dividida ao 
meio, teremos oito fileiras com grupos 
de cinco teclas. Cada grupo, por sua 
vez, tem comunicação com uma porta 
de entrada/saída. O teclado do Spec- 
trum facilita a detecção de várias teclas 
acionadas ao mesmo tempo, pois pos- 
sui 65536 dessas portas, identificadas 
por números de 0 a 65535. A tabela a 
seguir fornece o endereço da porta pa- 
ra cada um dos oito grupos: 



Cada endereço de porta na tabela da- 
da anteriormente assume um valor, de- 
pendendo da tecla pressionada. 

Para usar corretamente o próximo 
programa, remova a impressora ou 
qualquer outra interface. Caso contrá- 
rio, os resultados serão alterados. Digi- 
te estas linhas, rode, e acione de dife- 
rentes maneiras as teclas de 1 a 5, inclu- 
sive várias ao mesmo tempo: 



Observe que os números exibidos na 
tela mudam conforme a combinação de 



TECLAS 


GRUPO 


PORTA 


V C X 2 CAPS/SHIFT 


0 


65276 


GFDSA 


1 


65022 


QWERT 


2 


64510 


5 4 3 2 1 


3 


63486 


6 7 8 9 0 


4 


61438 


Y U I 0 P 


S 


57342 


H J K L ENTER 


6 


49150 


B N M SYM/SHIFT ESPAÇO 


7 


32766 



Para calcular o endereço da porta de 
cada grupo, use esta fórmula: 

254 + 256*(255-2ín) 

Nessa fórmula, n significa o número 
do grupo listado na tabela. 

Digite e rode o programa a seguir. Ele 
calcula o endereço da porta para um cer- 
to grupo de teclas. 

10 INPUT "DIGITE NUMERO DO GR 

UPO DA TECLA ";n 

20 PRINT ' "NUMERO DO GRUPO DA 

TECLA "in 
30 PRINT "ENDERECO DA PORTA " 
:Z54+2S6*(Z55-2"n) 
40 GOTO 10 
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0 EFEITO DO ACIONAMENTO 


■ 


0 CONTROLE DO JOGO 




DAS TECLAS 


■ 


A MATRIZ DO TECLADO 


■ 


COMO FUNCIONA 


■ 


DETECÇÃO MÚLTIPLA 




0 SEU TECLADO 




DE VARIAS TECLAS 


■ 


OS DIFERENTES MÉTODOS 


■ 


UM TECLADO A QUATRO MÃOS 



teclas acionadas. O valor no endereço 
da porta é armazenado em um único 
byte, no qual o quinto bit é sempre 1 . 
Normalmente, o sexto e o sétimo bits 
são 0. Porém, quando houver um sinal 
no soquete EAR, ou quando o compu- 
tador esquentar, o sexto bit passa a ser 
1 . Os bits de 0 a 4 representam as teclas 
do grupo. Cada bit assume valor 1 
quando a tecla correspondente a ele não 
estiver sendo pressionada e valor 0, 
quando esta for pressionada. O quarto 
bit corresponde à tecla da extrema es- 
querda do grupo e o bit zero à tecla da 
extrema direita. 



Quando um determinado bit contém 
o valor 1 , ele contribui para o valor que 
está na porta; quando seu valor é 0, não 
contribui com nada. A contribuição de 
cada bit para o valor na porta está na 
tabela a seguir: 

BIT 8 7 6 5 4 3 2 1 

CONTRIBUIÇÃO 1 28 64 32 1 6 8 4 2 1 

Portanto, se o sexto bit for 0 (nada co- 
nectado em EAR) e a tecla 5 estiver sen- 
do pressionada, a disposição dos bits na 
porta 63486 será 00101111, o que equi- 
vale aO+0-t- 32+0+8 + 4 + 2 + 1=47. As- 




sim, podemos detectar o acionamento 
das cinco teclas de um grupo. O mesmo 
se aplica aos outros grupos de teclas. 
Poderíamos, por exemplo, acrescentar 
ao programa linhas que imprimissem na 
tela o valor de cada porta. 



As teclas do TRS-Color estão dispos- 
tas numa matriz de sete linhas por oito 
colunas. São necessários nove bytes de 
memória para armazenar o estado de 
uma linha e de seus oito elementos. Dos 
nove bytes, o primeiro contém o estado 
da linha e os outros oito, o de cada um 
dos oito elementos dela. O arranjo da 
matriz e o método usado na decodifica- 
çào da linha fazem com que, normal- 
mente, seja impossível detectar mais de 
uma tecla ao mesmo tempo. 

No entanto, podemos "enganar" o 
varredor de teclado, levando-0 a não de- 
tectar nenhuma tecla numa certa Unha, 
o que, na varredura seguinte, o obriga* 
ria a assumir qualquer tecla como uma 
nova ocorrência. Para isso, é necessá- 
rio colocar no primeiro byte o valor he- 
xadecimal FF, produzindo uma altera- 
ção no estado das linhas. 

Esse método não é muito satisfató- 
rio, pois requer frequentes mudanças ao 
longo do programa. Mas há uma solu- 
ção alternativa: chamar uma rotina em 
linguagem de máquina para forçar uma 
varredura completa do teclado, sempre 
que precisarmos. Como você verá, este 
foi o sistema usado nos programas que 
apresentaremos mais adiante. 



No TK-2000, as teclas estão dispos- 
tas num gerador de matriz de oito linhas 
por seis colunas. Existem dois endere- 
ços de memória que trabalham com a 
matriz: o endereço - 16384, ao qual de- 
mos o nome de KBOUT, e o - 16368, 
que chamamos de KB1N. KBOUT con- 
trola o estado das linhas da matriz. Ca- 
da um de seus bits é responsável por 
uma linha na matriz de tecla. Se um bit 
de KBQUT possui valor 1, todos os ele- 
mentos (teclas) da linha corresponden- 
te também serão iguais a I . 

KBIN, por sua vez, controla o esta- I 
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ROGRAMAC. 




O que é roll-overl 

Esta é uma expressão inglesa que 
designe uma característica do proces- 
sador de teclados de algumas linhas de 
microcomputadores: a possibilidade de 
armazenar em uma memória interme- 
diária Kbuffer de teclado) as n últimas 
teclas pressionadas. 

0 número de teclas digitadas que o 
computador consegue armazenar de- 
pende do tamanho do buffer de tecla- 
do (se for fixado em hardware) e do 
software de processamento do tecla- 
do. Por isso, falamos em n-key-roll- 
over, ou seja, quantas teclas o roll-over 
e capaz de processar. Alguns compu- 
tadores têm roll-over de duas a cinco 
teclas; outros, de até 128. 

Qual é a vantagem de dispor de roll- 
over no teclado de um micro? Bem, cer- 
tos softwares {sobretudo processado- 
res de textol náo conseguem acompa- 
nhar um ritmo mais acelerado de digi- 
tação. Se não houver a capacidade de 
roll-over, o computador acaba limitan- 
do o usuário, que começa a "perder" 
várias teclas pressionadas rapidamen- 
te, levando a erros irritantes de digita- 
ção. 0 roll-over afaste esse risco, pois, 
mais cedo ou mais tarde, o programa 
acaba "alcançando" o digitador. 



do dos elementos de cada Unha. Somen- 
te os bits de 0 a 5 de KBIN são usados, 
já que existem apenas seis elementos em 
cada linha. Os bits de KBIN só lêem o 
valor contido nas teclas corresponden- 
tes quando estas são pressionadas — ou 
seja, se nenhuma tecla estiver sendo 
pressionada, KBIN vale 0 (todos os bits 
são iguais a zero). Esse endereço requer 
uma atenção especial, uma vez que lê ex- 
clusivamente colunas. Se quisermos sa- 
ber a que linha pertencem os elementos 
(teclas) lidos por KBIN, precisaremos 
identificar o valor contido em KBOUT. 

Para forçar a varredura do teclado, 
foi necessário montar uma rotina em lin- 
guagem de máquina. Essa rotina, arma- 
zenada a partir do endereço 770 no pri- 
meiro programa, procura pelo aciona- 
mento de cinco teclas específicas: as 
quatro setas e a barra de espaço. A pres- 
são sobre qualquer outra tecla não terá 
nenhum efeito. 

A rotina usa os endereços 900 a 904 
como indicadores do estado das tecias. 
Se o valor for 1, a tecla foi acionada; 



se for 0, não houve pressão sobre ela. 
Como se pode observar nas linhas 135 
a 155, esses endereços são constante- 
mente zerados. Isso è feito para a roti- 
na não "pensar" que a tecla correspon- 
dente está sempre pressionada. 

Remova o POKE 900,0 da linha 135 
e veja o que ocorre com a mira quando 
se aperta a tecla T. Ela começa a subir 
e não pára mais. Foi preciso usar ende- 
reços (900 a 904) como indicadores por- 
que, coincidentemente, todas as cinco 
teclas em questão são lidas pelo mesmo 
bit de KBIN — ou seja, na matriz, elas 
estão em linhas diferentes mas em colu- 
nas iguais. 

A rotina do segundo programa fun- 
ciona de maneira semelhante, detectan- 
do seis teclas em vez de cinco. O ende- 
reço inicial foi deslocado para 36900 e 
os indicadores aparecem a partir de 
36800. Essa rotina apresenta um aper- 
feiçoamento: os indicadores são zerados 
dentro dela própria, 



A matriz que contém as teclas do 
MSX é maior que a dos outros micros: 
compõe-se de dez linhas com oito colu- 
nas cada, totalizando, assim, oitenta te- 
clas. Nela existem duas portas de con- 
trole. A de endereço 170 ativa a linha 
que desejamos ler, enquanto a de ende- 
reço 169 contém o estado das teclas da 
linha ativada, sendo que cada tecla cor- 
responde a um de seus bits. 

Para simplificar, chamaremos a por- 
ta que ativa as linhas (170) de porta C, 
e a que lê as colunas, de porta B. A por- 
ta C usa somente os bits de 0 a 3 para 
ativar sequencialmente cada uma das 
dez linhas. Isso é possível graças a um 
decodificador localizado entre a porta 
Cea matriz. As linhas da matriz de te- 
clas são numeradas deOa 9. Para ativá- 
las, basta fornecer à porta C o número 
da linha desejada. Ao se ativar uma li- 
nha, todas as suas colunas (teclas) assu- 
mem o valor I. Quando se pressiona 
uma tecla pertencente a uma linha ati- 
vada, o bit da porta B correspondente 
a essa tecla é zerado. Portanto, se ati- 
varmos uma linha através da porta C, 
e, logo em seguida, lermos a porta B sem 
que nenhuma tecla seja acionada, vere- 
mos que a porta B tem valor 255, ou se- 
ja, todos os oito bits têm valor igual a 1. 

O programa a seguir ativa a linha 8 
da matriz — que contém as teclas das 
setas e barra de espaço — e, em segui- 
da, Iè a porta B, verificando quais bits 
foram zerados, isto é, quais teclas foram 
acionadas. 



Os usuários do Apple devem ter no- 
tado a ausência de programas para esse 
micro. É que o método utilizado pelo 
Apple para detectar teclas torna quase 
impossível — dentro dos propósitos des- 
te artigo — criar rotinas que detectem 
acionamento múltiplo de teclas. 

Os programas apresentados a seguir 
permitem-nos mover uma mira pela te- 
la e também atirar. Nos micros TRS- 
Color, MSX e TK-2000, use as setas pa- 
ra mover e a barra de espaço para ati- 
rar. No Spectrum, use as setas para mo- 
ver e o número 9 para atirar. Os pro- 
gramas do TRS-Color e do TK-2000 re- 
querem um pequeno programa em lin- 
guagem de máquina para detectar as 
teclas. 

Q 

10 CLEAR 200.32746 

20 FOR K-32747 TO 32767 :READ A: 

POKE K, A: NEXT 

30 DATA 4B, 140, 9, 191, 1,155, 134, 
126.183,1,154,57,52,3,134,127,1 
83,1,81,53,131 
35 EXEC 32747 

40 V«247:P-1295:L-1295:CLS3 

50 IF PEEK(341)-V AND P>1055 TH 

EN P-P-32 

60 IF PEEK(342)«V AND P<1504 TH 
EN P-P+32 

70 IF PEEK(343)-V AND P>1024 TH 
EN P-P-l 

80 IF PEEKC344J-V AND P<1535 TH 
EN P-P+l 

90 IF PEEK(345)-V THEN SOUND 20 
0,1 

100 POKE L.175:POKE P,43:L-P:GO 
TO 50 

Digite e rode o programa do TRS- 
Color para se certificar de que não há 
erros. Em seguida, acrescente a linha 35 
e rode-o novamente. 
35 EXEC 32747 



10 BORDER 0: PAPER 0: INK 7 
20 CLS 

30 LET y-11: LET X-15 
40 LET P-634B6 

50 GOSUB 220 

60 IF 1-31 THEN GOSUB 290 
70 LET p-61438 
BO GOSUB 220 

90 IF 1-59 THEN GOSUB 380 
100 IF 1-47 THEN GOSUB 320 
110 IF 1-55 THEN GOSUB 350 
120 IF 1-61 THEN GOSUB 410 
130 IF 1-57 THEN OOSUB 380 
GOSUB 410 

140 IF 1-45 THEN GOSUB 320 
GOSUB 410 

150 IF i-53 THEN GOSUB 350 
GOSUB 410 

160 IF i-43 THEN GOSUB 360 
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GOSUB 320 

170 IF i-51 THEN GOSUB 380: 
GOSUB 350 

180 IF i-41 THEN GOSUB 380: 

GOSUB 320: GOSUB 410 

190 IF 1-49 THEN GOSUB 380: 

GOSUB 350: GOSUB 410 

200 GOSUB 250 

210 GOTO 40 

220 LET 1-IN P 

230 IF i>191 THEN LET i-i-6 
240 RETURN 

250 PRINT AT y,x;' + " 
260 PRINT AT y+l,x;" 
270 PRINT AT y-l,x;" 
260 RETURN 

290 IF x<l THEN RETURN 
300 LET X-X-l 
310 RETURN 

320 IF y>19 THEN RETURN 
330 LET y-y+1 
340 RETURN 

350 IF y<2 THEN RETURN 
360 LET y-y-1 
370 RETURN 

380 IF x>2B THEN RETURN 

390 LET x-x+1 

400 RETUBN 

410 SOUND .004,20 

420 SOUND .004,10 

430 PRINT AT y,x;* 

440 RETURN 



95 HCOLOR- 0 

100 HPLOT H,V TO H + 4.U 

105 HPLOT H + 2,U - 2 TO I 

TO y + 2 
110 H - X:V - ? 



115 
120 
125 
,Y + 
130 



10 COLOR 1.5.5:SCREEN2,1 

20 X-120:Y-90:H-240:B-169:C-170 

30 FOR K-l TO 8 : READ A 

40 BS-BS+CHRS(A) 

50 NEXT 

60 DATA 129.66,60,36,36,60,66,1 
29 

70 SPRITE3(0)-B$ 

80 OUT C,(INP(C) AND H>OR 8 

90 I-INP(B) 

100 IF(I AND 12BJ-0 THEN X-X+3 
110 IF(I AND 64)-0 THEN Y-Y + 3 
120 IF(I AND 32)-0 THEN Y-Y-3 
130 IFI1 AND 16)-0 THEN X-X-3 
140 IF(I AND l)-0 THEN PLAY"L64 
BAC- 

150 PUT8PRITE 0 , {X . Y ) ,1,0 :GOT0 
BO 



E3 



10 HOME 

15 FOR K - 800 TO 804 

20 READ A 

25 POKE K.A 

30 NEXT 

35 DATA 64,32,16,8,4 

40 FOR K - 770 TO 793 

45 READ A 

50 POKE K.A 

55 NEXT 

60 DATA 162,0,189,32,3,141 

65 DATA 0 , 192 , 169 , 1 , 45 . 16 

70 DATA 192,240,3,157,132,3 

75 DATA 232,224,5,208,235,96 

BO HGR2 

85 H - 138:V - 96 

90 X - 138:Y - 96 



HCOLOR- ; 
HPLOT X,Y TO X + 4,Y 
HPLOT X+2.Y-2TOX- 



CALL 770 
135 IF PEEK (900) - 1 AND Y > 

3 THEN Y - Y - 2: POKE 900,0 
140 IF PEEK (901) ■ 1 AND Y < 
188 THEN Y - Y + 2: POKE 901.0 



150 IF PEEK (903) - 1 AND X > 

1 THEN X - X - 2: POKE 903,0 
155 IF PEEK (904) - 1 THEN P 
RINT CHR$ (7): POKE 904,0 
160 GOTO 95 



UM TECLADO A QUATRO MA0S 



Rodando o programa a seguir, você 
verá, logo após a introdução, dois seres 
vestindo "traje lunar", em posição de 
duelo. Este jogo foi feito para dois jo- 
gadores. No Spectrum, as teclas de co- 
mando são as seguintes: 1 move o ser da 
esquerda para cima, Q, para baixo, e A 
dispara o laser; 0, P e E controlam os 
movimentos do ser da direita. No TRS- 
Color, o jogador da esquerda usa as se- 
tas para cima e para baixo e a tecla Z; 
o da direita usa - , @ e / . No MSX, o 
da esquerda usa E, D e F; o da direita 
usa I, J e H. No TK-2000, finalmente, 
o jogador da esquerda usa 1, A e Q; o 
da direita, 0, (:) e P. 



150 PRINT" DOWN — BAIXO- 

P" 

160 PRINT" Z — FOGO— 

/" 

170 PRINT %182 , "qudlcjuer tecla 

para começar" ; 

180 IF INKEYS-"" THEN 180 

190 Xl-16:X2-232:Yl-88 ; y2«88:Bl 

-6:B2-6:S1-0:S2-0:PCLS 

200 PUT(X1.Y1)-(X1+15.Y1+15) ,L, 

PSET: PUTÍX2 , Y2) - (X2+15 , Y2+15) ,R 

.PSET 

210 FOR K-l TO 6:CIRCLE(10"K,2) 
,1,5:CIRCLE(255-10*K,2) ,1.5:NEX 
T 

220 SCREEN 1 , 1 :AS-INKEYS 
230 L1-Y1:L2-Y2 

240 IF PEEK(341)-247 AND Yl>16 
THEN Yl-Yl-8 

250 IF PEEKÍ342) -247 AND YK1/6 

THEN Yl-Yl+8 
260 IF PEEK(343W23 AND Y2>16 
THEN Y2-Y2-8 

270 IF PEEK(338)-251 AND Y2<176 

THEN Y2-Y2+8 
280 IF Bl-0 AND B2-0 THEN 360 
290 IF Ll-Yl THEN 310 
300 PUT (X1.L1)-(XH-15,L1 + 15> ,B 
:PUT(X1,Y1)-(X1+15,Y1+15) ,L 
310 IF L2-Y2 THEN 330 
320 PUT(X2,L2)- (X2+15 , L2+15) ,B: 
PUT(X2,Y2)-(X2+15,Y2+15) ,R 
330 IF PEEK(340)-247 GOSUB 1000 
340 IF PEEK(345)-223 GOSUB 1500 
350 GJTO 230 

360 CLS:IF S1>S2 THEN PRINT «96 
, " JOGADOR 1 GANHOU POR"iSl;"A*i 
S2:GOTO 390 

370 IF S2>S1 THEN PRINT #96, "JO 
GADOR 2 GANHOU POR* ; S2 ; "A" iSl : G 
OTO 390 

380 PRINT 696 , "HOUVE EMPATE :"; 



10 CLS:PMODE 4 , 1 : SS-PEEK (166) *2 
56+PEEKU87) 

20 FOR K-SS TO SS+480 STEP 32 
30 FOR J-K TO K+3 : READ A: POKE J 
, A : NEXT J.K 

40 DATA 1,192,3,128,3.192,3.192 

,6.0,0,96,15.192,3,240 

50 DATA 31.192.3.248,63.192,3,2 

52.15.0,0,240,15,135.113,240 

60 DATA 15,248.15,240,15,246,15 

,240,15,128,1.240,15.128,1,240 

70 DATA 15.128,1.240,12.192,3.4 

8,12,192,3,46.14,224,7,112 

80 DIM L(6) ,R(6) ,B{6) 

90 GET(0.0)-(15,15) ,L:GET{16,0) 

-(31. 15) ,ft,G 

100 PCLS:PRINT #10, "D U E L O" 
110 PRINT £98 . "GANHE PONTOS ACE 
RTANDO O SEU OPONENTE. CADA 

JOGADOR TEM SEIS BA 

LAS." 

120 PRINT : PRINTTAB (6) ; "C O N T 
ROLES" 

130 PRINT : PRINT" JOGADOR 1":TAB 



SI; 



;Sli" 



390 A$-INKEYS:GOTO 180 

1000 IF Bl-0 THEN RETURN 

1010 PLAY"T1 20O5AGFEDC* 

1020 FOR N-32 TO 232 STEP 16 

1030 LINEÍN+l ,Yl+7)-(N+6.Yl+7) . 

PSET 

1040 LINE(N+l,Yl+7)-(N+6.Yl+7) . 

PRESET 

1050 NEXT 

1060 IF Y1-Y2 OR Y1+8-Y2 THEN S 

1- S1+1 : CIRCLE (10*S1 , 8) , 2 , 5 : PLAY 
"T801GDBC" 

1070 CIRCLE(10"B1.2) ,1,0:B1-81- 
1 

1080 RETURN 

1500 IF B2-0 THEN RETURN 
1510 PLAY-T120O5BAGFEDC" 
1520 FOR N-216 TO 32 STEP -16 
1530 LINE(N+l,Y2+7)-(N+6.Y2+7) , 
PSET 

1540 LINE(N+l,Y2+7)-(N+6.Y2+7) . 

PRESET 

1550 NEXT 

1560 IF Y2-Y1 OR Y2+8-Y1 THEN S 

2- S2+l:CIRCLE(255-10«S2,B) ,2.5: 
PLAY"T801GDBC" 
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1570 CIRCLE(255-10«B2,2) ,1.0:B2 
-B2-1 

1580 RETURN 



10 BORDER 0: PAPER 0: INK 7 

20 BRIGHT 0: OUER 0: CLS 

30 PRINT AT 1,9) IHX 6; FLASH 
li" DUELO* 

40 PRINT I PRINT 

50 PRINT INK 5;' GANHE PONT 

OS ACERTANDO SEU OPONE 

NTE. CADA JOGADOR 
TEM SEIS BALAS.* 

60 PRINT : PRINT 

70 PRINT TAB 6: INVERSE lt"C 

ONTROLBS* 

80 PRINT : PRINT " JOGADOR 1 
JOGADOR 2 " 

90 PRINT : PRINT 1 

-CIMA — 0 
100 PRINT : PRINT Q 
-BAIXO- P 
110 PRINT : PRINT A 
-TIRO — ENTER" 
120 PRINT r PPINT ; PRINT TAB 
6; "QUE VENÇA 0 MELHOR" 
130 FOR n-USR "a" TO USR "i"+7 
140 READ d 
150 POKE n,d 
160 NEXT n 

170 DATA 1,3.6.15.31,63,15,15 
180 DATA 192.192,0.192,192,192 
.0,135 

190 DATA 15.15.15,15.15.12.12. 
14 

200 DATA 24B, 248, 128. 128. 128, 
192.192,224 

210 DATA 0,0,0,0,0,0.126,0 
220 DATA 3,3.0,3,3,3,0,113 
230 DATA 128, 192.96. 240. 24B, 
252,240,240 

240 DATA 15,15.1.1,1.3.3,7 
250 DATA 240,240,240.240,240, 
48,48,112 

260 LET yl-10: LET y2-10 

270 LET bl-6: LET b2-6 

280 LET Bl-0: LET b2-0 

290 RESTORE 330: FOR n-1 TO 8 

300 READ d,p 

310 SOUND d,p 

320 NEXT n 

330 DATA .1,7. .09,12. .1,7. .09. 
12, .6. 7, .45. 2, .45,6, .5,0 
340 PRINT tl ; AT 0,0; FLASH l|" 
QUALQUER TECLA PARA COMEÇAR 

350 LET p-254: GOSUB 570 

360 IF 1-191 THEN GOTO 3S0 

370 INK 4: BRIGHT 1: CLS 

380 PRINT INVERSE 1 ; "JOGADOR 1 

0 0 JOGADOR 2" 

390 PRINT "BALAS : 6 

6 : BALAS" 
400 PRINT tl;AT 0,0; INVERSE 1 

410 GOSUB 600 

420 LET p-63486: GOSUB 570 
430 IF 1-62 OR i-30 THEN 
GOSUB 810 
, 440 LET p-61438: GOSUB 570 
I 450 IF 1-62 OR 1-30 THEN 



GOSUB 840 

460 LET p-64510: GOSUB 570 
470 IF 1-62 OR i-30 THEN 

GOSUB 870 

4B0 LET p-57342: GOSUB 570 
490 IF 1-62 OR 1-30 THEN 
GOSUB 900 

500 LET p-49150: GOSUB 570 
510 17 1-62 OR 1-30 THEN 
GOSUB 1020 

520 LET p-65022: GOSUB 570 

530 IF 1-62 OR i-30 THEN 

GOSUB 930 

540 GOSUB 600 

550 IF bl-0 AND b2-0 THEN 

GOTO 1110 

560 OOTO 420 

570 LET i-IN P 

580 IF 1>191 THEN LET i-i-64 
590 RETURN 

600 PRINT AT yl,l;CHR$ 144; 
CHRS 145 

610 PRINT AT y 1+1,1; CHRS 146; 
CHRS 147 

620 PRINT AT y2,29;CHR$ 149; 
CHRS 150 

630 PRINT AT y2+1.29;CHR$ 151; 
CHRS 152 

640 PRINT AT yl-1,1;" ■ 

650 PRINT AT yl+2,li" " 

660 PRINT AT y2-l,29;" " 

670 PRINT AT y2+2,29i" " 

680 PRINT AT 0,9; PAPER 4; INK 

9 tal 

690 PRINT AT 0,22; PAPER 4; 
INK 9; a2 

700 PRINT AT l,9;bl 
710 PRINT AT l,22;b2 
720 RETURN 

730 PRINT AT 10,10;"AAGH! ME A 
CERTOU I" 

740 RESTORE 780: FOR n-1 TO 11 
750 READ d.p 
760 SOUND d.p 
770 NEXT n 

7B0 DATA .5,2, .4,2. .2,2. .5,2, . 
3. 5.. 2. 4.. 4, 4,. 2, 2,. 4. 2,. 2,1. . 
5.2 

790 PRINT AT 10,10;" 



1010 RETURN 

1020 IF b2-0 THEN RETURN 
1030 SOUND .01,0: SOUND .01,-10 
1040 FOR n-27 TO 3 STEP -1 
1050 PRINT AT y2.n;CHR3 148;" " 
1060 NEXT n 

1070 PRINT AT y2,3s' " 

10BO IF y2-Yl OR y2-yl+l THEN 

LET B2-B2+1: GOSUB 730 

1090 LET b2-b2-l 

1100 RETURN 

1110 IF b1>b2 THEN PRINT AT 10 
,5; FLASH 1;" JOGADOR 1 VENCEU 

l* 

1120 IF B2>fll THEN PRINT AT 10 
,5] FLASH 1;" JOGADOR 2 VENCEU 
1" 

1130 IF al-fl2 THEN PRINT AT 10 
.10; FLASH 1;" EMPATE 1 " 
1140 GOTO 260 



BOO 
810 
B20 
830 
84 0 
850 



890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 

LET 

1000 



RETURN 

IF yl<4 THEN RETURN 

LET yl-yl-1 

RETURN 

IF y2<4 THEN RETURN 

LET y2-y2-l 

RETURN 

IF yl>lB THEN RETURN 

LET yl-yl+1 

RETURN 

IF y2>18 THEN RETURN 

LET y2-y2+l 

RETURN 

IF bl-0 THEN RETURN 
SOUND .01,4: SOUND .01,0 
FOR n-3 TO 27 

PRINT AT yl.n;" ";CHRS 148 
NEXT n 

PRINT AT yl , 27 ; " " 
IF yl-y2 OR yl-y2+l THEN 
il-Bl+1: GOSUB 730 
LET bl-bl-1 



10 GOTO 170 

15 Sl-Sl-l:LINE(254.Yl+5)-(20,t 
1+5) ,15:LINE(254,Yl+5)-(20,Yl+5 
) .1 

20 IFY1>Y2-5ANDYKY2 + 13THENP1-P 

1+1 :PUTSPRITE2, CX2.Y2) ,6,2 

25 FORT-OT050 : NEXT: RETURN 

30 S2-S2-l:LINE(0.Y2+5)-(235.Y2 

+5) ,15:LINE(0,Y2+5)- (235.Y2+5) . 

1 

35 IFY2>Y1-5ANDY2<Y1+13THENP2-P 

2+l:PUTSPRITEl, (XI. Yl) .6,2 

40 FORT- OTO 50 ■ NEXT : RETURN 

45 CLS:C0L0R 15,2,2 

50 L0CATE12,2:PRINT"DUEL0 ESTEL 

AR* 

55 PRINT : PRINT" ganhe pontoa aee 

rtando o seu oponente" 

60 PRINTTAB (5) "cada jogador tem 

65 PRINT:PPINT:PRINT"jogador 1" 

;SPC(19) ;"jogador 2":PRINT 

70 PRINTTAB ( 3) "E ci» 



75 PRINTTAB ( 3) 'D balx 

o J* 

fog 



80 PRINTTAB ( 3) "F 



li- 



es LOCATE10,20:PRINT"<qualquer 
teclai" 

90 IF INKEY3-" " THEN 90 

95 COLOR 15,1.1:SCREEN 2,1 

100 SPRITE$(0)-AS 

105 SPRITESID-BS 

110 SPRITES(2)-CS 

115 IF Sl-0 OR S2=0 THEN 225 

120 OUT C, (INP(C)ANDH)OR3 

125 I-INP(B) 

130 IF (IAND2) -0ANDYK1 76THEN Yl 
-Yl+2 

135 IF (IAND4) -0ANDY1>1THEN Yl-Y 

1-2 

140 IF(IAND8)-0 THEN GOSUB 15 
145 IF(IAND32)-0 THEN GOSUB30 
150 IF (IAND64) -0ANDY2>1THEN Y2- 

Y2-2 

155 IF(IAND128)-0ANDY2<176THEN 
Y2-Y2+2 

160 PUTSPRITE1, (XI, Yl) ,15,0:PUT 
SPRITE2, (X2.Y2) ,15,1 



IIIIIIIIIIIUH 
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165 GOTO 115 

170 31-6:B2-6:P1-0:P2-0:C-170:H 
-240 

175 X1-5:X2-230:Y1-96:Y2-96:B-1 
69 

180 FOR K-l TO 8 
185 READ P.Q.R 
190 A3-AS+CHHSÍP) 
195 B3-BS+CHRS (Q) 
200 CS-cS-t-CHBS (B) 
205 HEXT K 

210 DATA 48,12,129,48,12,66,255 

.255,36,112.14,24 

215 DATA 48,12,24,40,20,36.72.1 

8.66.144.9,129 

220 GOTO 45 

225 SCREEN0:CL3 

230 CLS:PRINT"FIM DE JOGO":PRIN 
T 

235 PRINT : PRINT" jogador 1 - ";P 
1" pontos" 

240 PRINT" jogador 2 - "jP2;" tto 
nton- 

245 LOCATE8,20:PRINT"JOGA DE NO 
UO (S/N) ?* 

250 IS-INKE¥S:IFIS-"S"THEN RUN 
255 IF I3<>"N"THEN 250 
260 CLS:COLOR15,4,4:END 



El 



10 P - 36800:Q - 32:31 - 6:32 - 

6:P1 - 0:P2 - 0:X1 - 1 
15 X2 - 271:Y1 - 96:Y2 - 96:H1 
- 1:H2 - 271 ;V1 - 96:U2 - 96 
20 GOTO 85 
25 31 - SI - 1 

30 HPLOT 20, Yl TO 279, Yl: HCOL 
OR- 0 

35 HPLOT 20, Yl TO 279. Yl: HCOL 
OR- 3 

40 IF Yl > Y2 - 3 AND Yl < Y2 
+ 6 THEN GOTO 75 
4 5 RETURN 

50 S2 - S2 - 1 

55 HPLOT 260. Y2 TO O.Y2: HCOLO 
R- 0 

60 HPLOT 260. Y2 TO 0.Y2: HCOLO 
R- 3 

65 IF Y2 > Yl - 3 AND Y2 < Yl 
+ 6 THEN COTO 60 
70 RETURN 

75 PI » PI + 1: PRINT CHRS (7) 
: RETURN 

80 P2 - P2 + 1: PRINT CHRS (7) 
: RETURN 

85 HOME :E - 35000: HIMEM: E 

90 F • INT (E / 256) : POKE 232 

,E - F * 256: POKE 233, F 

95 FOR I-ETOE+41+2*3 

2 

100 READ A: POKE I ,A 
105 NEXT 

110 SCALE- li ROT- 0 

115 DATA 20 ,0 ,42 ,0 ,74 , 

0 ,106 ,0 ,138 ,0 ,170 .0 ,202 
,0 .234 ,0 ,10 ,1 ,42 ,1 .74 ,1 

.106 ,1 .118 ,1 ,170 ,1 ,202 , 

1 ,234 ,1 ,10 ,2 ,42 .2 ,74 ,2 
,106 ,2 .138,2 

120 DATA 0 ,72 ,109 ,73 ,218 
,219 .255 ,42 ,45 ,45 .45 .213 
,219 .59 .191 ,9 ,109 ,73 .218 




,27 ,31 .159 ,105 .105 ,137 ,2 
19 ,27 ,223 ,6 .0 ,0 ,0 
125 DATA 0 ,72 .9 .109 ,209 
,27 ,255 ,155 ,45 ,45 ,45 ,173 
.27 ,63 ,223 ,83 ,73 .109 ,209 
,27 .31 ,223 ,74 ,105 ,105 ,26 
,223 ,223 ,19 ,0 ,0 ,0 
130 REM SUBROTINA DE LEITURA 
135 REM DO TECLADO 

140 FOR K - 36810 TO 36815 
145 READ A: POKE K,A: NEXT 
150 DATA 64,32,16,8,4,2 
155 FOR K - 36900 TO 36935 
160 READ A: POKE K, A : NEXT 
165 DATA 162,6,169,0,157,19 
1,143,202,224,0,208,248,162.0,1 
89,202.143,141 

170 DATA 0, 192,169.32.45.16, 
192,240,3,157,192.143,232.224.6 
,208,235,96 

175 VTAB (4) : INVERSE : PRINT 

TAB { 39)" -: NORMAL 
180 PRINT TAB ( 15) " D XI E L O 

185 INVERSE : PRINT TAB { 39)" 

": NORMAL 
190 PRINT : PRINT " GANHE PONT 
OS ACERTANDO O SEU OPONENTE" 
195 PRINT TAB ( 6) "CADA JOGADO 
R TEM SEIS EIALAS" 
200 PRINT : PRINT : PRINT "JOG 

ADOR 1 JOGA 

DOR 2": PRINT 

205 PRINT " 1 Cl 

MA 0" 

210 PRINT " Q FO 



215 PRINT 1 



220 PRINT : PRINT : PRINT : PR 



225 HTAB (13): INVERSE : PRINT 

" QUALQUER TECLA" : NORMAL 
230 GET ZS: IF 2S - "" THEN 23 
0 

235 HGR2 : HCOLOR- 3 
240 DRAW 1 AT XI . Yl : DRAU 2 AT 
X2.Y2 

245 XDRAW 1 AT Hl, VI: XDRAW 2 
AT H2.V2 

250 V] - Y1:V2 - Y2 

255 DRAU 1 AT XI. Yl: DRAW 2 AT 

X2.Y2 
260 CALI. 36900 
265 IF 31 - 0 OR S2 - 0 THEN 
GOTO 305 

270 IF PEEK ÍP) - Q AND Y2 < 

181 THEN Y2 " Y2 + 3 

275 IF PEEK {P + 1) ■ Q THEN 

GOSUB 50 
280 IF PEEK (P + 2) ■ Q AND Y 
2 > 10 THEN ¥2 - Y2 - 3 
285 IF PEEK tP + 3) - Q AND Y 
1 > 10 THEN Yl = Yl - 3 
290 IF PEEK (P + 4) - Q THEN 

GOSUB 25 
295 IF PEEK (P + 5) - Q AND Y 
1 < 181 THEN Yl - ¥1 + 3 
300 GOTO 245 
305 TEXT : HOME 

310 PRINT "FIM DE JOGO* : PRINT 
! PRINT 

315 PRINT "JOGADOR 1 - "|P1|" 
PONTOS" 

320 PRINT "JOGADOR 2 - ";P2;" 
PONTOS" 

325 PRINT : PRINT : INPUT "JOG 
A DE NOVO ÍS/N) 7";AS 
330 IF AS - "S" THEN RUN 
335 END 
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■ 


MAIS USOS PARA VTRANSF 


■ 


CÓPIA DA TELA 


EM FITA OU DISCO 


■ 


COMO RECUPERAR 


UMA TELA GRAVADA 



Como vimos em artigos anteriores, 
podemos utilizar vários "truques" para 
explorar melhor os recursos de 
vídeo do TRS-80. Aprenderemos agora a 
gravar uma tela em fita ou disco. 



A sub-rotina VTRANSF, apresenta- 
da no segundo artigo desta série, será 
usada aqui por um programa que copia 
integralmente o conteúdo da tela de ví- 
deo, armazenando-o, depois, em um ar- 
quivo de fita ou disco. Um outro pro- 
grama permitirá a realização da opera 
ção inversa, ou seja, colocar novamen 
te na tela um desenho ou texto armaze- 
nado em fita ou disco. 

O método utilizado para isso é seme- 
lhante ao que vimos no artigo anterior, 
quando tratamos da impressão, linha 
por linha, do conteúdo da tela. A dife- 
rença é que, em vez de imprimirmos a 
variável V$, simplesmente a enviamos 
para fita ou disco. 



ARMAZENAGEM EM FITA 



Listamos, a seguir, a versão para fi- 
ta. Depois de digitá-la, acrescente a sub- 
rotina 1000, apresentada no artigo an- 
terior. 

10 CLEAR SOO 

20 CLS : PRINT "PREPARE O GRAU 
ADOR" 

25 PRINT "E PRESSIONE <ENTER> " 

30 C*-64 : AS-CHRS(34) 

35 IF INKEYS-*" THEN 35 

40 FOR Ul-0 TO 960 STEP 64 

50 GOSUB 1000:PRINT #-l.A$;V$i 

AS 



A linha 30 determina o comprimen- 
to da linha de vídeo a ser copiada (54 
posições). Ela se encarrega, também, de 
definir a variável AS, que conterá o ca- 
ractere "aspas". Este será usado na li- 
nha 50, para englobar a variável V$. A 
linha 35 espera que o usuário prepare o 
gravador e pressione a tecla <EN- 

l TER> . Só então o programa continua. 

| O laço que vai da linha 40 à linha 60 co- 



pia as dezesseis linhas da tela, sucessi- 
vamente, na variável V$, usando a fun- 
ção VARPTR, e, em seguida, envia pa- 
ra o gravador 1. 

E muito importante colocar todo o 
stríng V$ entre aspas, pois, se houver al- 
guma vírgula ou ponto e virgula na te- 
la, a transmissão para a fita será trun- 
cada, provocando um erro de leitura, 
posteriormente. 



ARMAZENAGEM EM 0ISC0 



mazenada na memória de vídeo. Sua 
exibição na tela também é instantânea. 

A função LEFTS toma apenas os 64 
primeiros caracteres de X$, uma vez 
que, na gravação, um caractere ASCII 
1 3 (Hnefeed) foi adicionado ao final de 
V$, Esse caractere prejudicaria toda a 
tela se não fosse retirado. 



A versão para disco é mais simples: 
10 CLEAR 500 

20 OPEN "0",1,"TELA1/VID" 
30 CI=64 

40 FOR Vt-0 TO 960 STEP 64 
50 GOSUB 1000 : PRINT II, US 
60 NEXT VI 
70 CLOSE 1 : END 

A linha 20 abre um arquivo de aces- 
so sequencial para saída, chamado TE- 
LA1/VID (poderia ser qualquer nome). 
As linhas 30 a 60 funcionam como na 
versão para fita, só que não são neces- 
sárias as aspas em torno de V$. A linha 
70 fecha o arquivo criado. 



O programa que lê o conteúdo de te- 
la no arquivo, trazendo-o de volta ao ví- 
deo, obedece à mesma sequência: 

10 CLEAR 500 

20 CLS : PRINT "PREPARE O GRAU 
ADOR" 

25 PRINT "E PRESSIONE < ENTEIO " 
30 CI-64 

35 IF INKEYS-"" THEN 35 
40 FOR VI-0 TO 960 STEP 64 
50 GOSUB 1000 : INPUT *-l.XS 
55 U3=LEFTS(XS.CÍ) 
60 NEXT Ul 
70 END 

Observe que a sub-rotina VTRANSF 
também serve para o programa de lei- 
tura, sem modificações, já que sua fun- 
ção consiste em determinar a localiza- 
ção e tamanho do string VS na memó- 
ria. Assim, depois de definida pela linha 
55, a variável V$ é automaticamente ar- 



A versão do programa de leitura em 
disco é a seguinte: 

10 CLEAR 500 

20 OPEN •I",1, _ TELA1/UID- 
30 C%-64 

40 FOR U*-0 TO 960 STEP 64 

50 GOSUB 1000:LINE INPUT íl.XS 

55 LSET US-XS 

60 NEXT Vt 

70 CLOSE 1 : END 

O LSET da linha 55 existe apenas no 
BASIC para disco. Tem a mesma fun- 
ção do LEFTS da versão para fita mas, 
em termos operativos, é mais simples 
que esse comando. 



Existem muitas aplicações para os 
programas listados neste artigo. Uma 
das mais comuns é na montagem das te- 
las de instruções de um jogo. Estas, 
quando mais elaboradas, podem incluir 
gráficos, juntamente com textos expli- 
cativos — por exemplo, a reprodução do 
desenho de cada tipo de nave inimiga e 
o número de pontos que o jogador ga- 
nha se abatê-las. Em vez de colocar to- 
dos esses dados dentro de uma mesma 
listagem, tornando-a longa e complica- 
da, use os programas de transferência 
para jogar as figuras e o texto direta- 
mente da fita ou disco para o vídeo do 
microcomputador, gastando apenas 64 
bytes de memória RAM! 

Os programas educativos constituem 
uma outra área importante de aplicação. 
As telas podem eompor, por exemplo, 
as páginas de um "livro eletrõnico". Ar- 
mazenadas em disco, serão "folheadas" 
pelo aluno, que copiará aquelas que jul- 
gar necessário. 



Illlllllll 
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JMCHEsÀCBaO 

!AMM 




m 


0 AVANÇO DA MARÉ 


m 


GAIVOTAS, NUVENS 


E VENTO 


■ 


PEDRAS E COBRAS 


■ 


SITUAÇÃO DO PERSONAGEM 




Uma das tarefas mais difíceis 
na programação de jogos em código 
de máquina é garantir a sincronia 
dos diversos eventos. Aqui estão 
as rotinas que cuidam disso. 



Sempre que vamos recomeçar o jo- 
go, precisames acertar o escore e, lam- 
bem, estabelecer os parâmetros que in- 
fluenciam o comportamento de outras 
sub-rotinas. Temos que esvaziar a ma- 
ré que ameaçava Willie, definir a dire- 



ção do vento, colocar Willie de volta ao 
pé do monte e, para que tudo ocorra no 
momento adequado, acertar os diversos 
laços controladores de tempo. 



A rotina que se segue acerta o valor 
das diversas variáveis para que Willie 
possa se dedicar à árdua tarefa de recu- 
perar seu lanche roubado. 

10 REM ora 58606 



20 BEM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 



dth ld a, 6 

ld (57353), a 

ld hl , 736 

ld (57354), hl 

ld hl, 130 

ld (57345) ,hl 



• 3 



ld (57347), a 
ld 1,0 

ld (57348), a 
ld a, 2 

ld (57349), a 

ld hl ,449 

ld (57332), hl 

ld hl ,0 

ld (57334) ,hl 



IIIIIIIIIIHI 



180 B EH ld 3.0 
190 BEM ld (57336) ,a 
200 BEM ld hl .223 
210 BEM ld (57356) ,hl 
220 BEM ld a.O 
230 BEM ld b,5 
240 REM ld (57350) ,a 
250 BEM add a.b 
260 REM ld (57351) , a 
270 REM add a,b 
2B0 REM ld (57352) ,a 



Essa rotina não é chamada apenas no 
inicio do jogo, mas, lambem, quando 
ele recomeça, depois de Willie encontrar 
a morte dentro de um buraco, afogado 
ou embaixo de alguma pedra. 



Colocando todas as variáveis juntas 
na memória do microcomputador, po- 
demos verificar o status do jogo a qual- 
quer instante, o que facilita muito a ta- 
refa de depuração de erros. 

Variáveis de um byte são modifica- 
das através do acumulador, que tem oi- 
to bits, enquanto o par de registros HL 
se encarrega das variáveis de dois bytes, 
mesmo que o seu conteúdo no 
to caiba em apenas um byte. Isso ocor- 
re porque o byte mais significativo tam- 
bém deve ser modificado. 

O endereço 57353 contém o atraso do 
movimento da maré. Colocamos ali o 
número 6, dando a Willie uma chance 
razoável de escalar a montanha antes de 
se afogar. Depois, esse valor poderá ser 
modificado para acelerar o avanço da 
maré, o que tornará o jogo mais difícil 
e mais emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posição da tela correspondente ao 
canto superior esquerdo do mar é colo- 
cada nos endereços 57354 e 57355. O nú- 
mero 736, valor inicial dessa variável, 
equivale ao endereço da extremidade in- 
ferior esquerda da tela. 



Na versão do jogo para o Spectrum, 
há uma nuvem cruzando o céu. O en- 
dereço 57345 contém sua posição de im- 
pressão na tela. O valor inicial dessa va- 
riável é 130. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem. 
Se não provocarmos um atraso, ela atra- 
vessará o céu tão rapidamente quanto 
um avião a jato. Para evitar isso, colo- 
camos um contador de atraso na posi- 
ção 57347. Seu valor inicial é 3. 
I Precisamos também saber em que di- 
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reção sopra o vento, para que a nuvem 
se mova de acordo. A informação fica 
armazenada em 57348. Quando esse 
byte vale zero, a nuvem se movimenta 
para a direita; quando vale 1 , para a es- 
querda. No programa, essa variável tem 
valor inicial zero, movendo, portanto, 
a nuvem para a direita. 



Um atraso para o movimento das gai- 
votas é colocado em 57349, com valor 
inicial 2. A posição que Willie ocupa na 
tela fica em 57352. O programa coloca 
ali o valor 449, correspondente ao can- 
to inferior esquerdo do perfil da encos- 
ta da montanha. 

Uma outra variável informa ao pro- 
grama se nosso herói está parado, cor- 
rendo ou saltando. Por motivos que co- 
nheceremos mais adiante, utilizaremos 
dois bytes, 57334 e 57335. Como Willie 
começa o jogo em pé, parado no sopé 
da montanha, o programa coloca zero 
naquelas posições. 

A situação atual do jogo pode ser 
monitorada pela variável que fica em 
57336. Se esse byte for 0, Willie vai bem, 
obrigado. Se for 1 , ele acaba de recupe- 
rar parte do seu lanchee as rotinas do 
próximo nível de dificuldade vão ser 
chamadas. Se for 2, Willie morreu! Co- 
mo no início do jogo nosso personagem 
está vivo, o programa coloca 0 nessa po- 
sição. 



A variável que controla a posição da 
pedra fica em 57356. O programa colo- 
ca ali seu valor inicial, 223, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As três cobras têm língua que se me- 
xe. Como não é desejável que as línguas 
façam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, cò!ocam-se variáveis de atra- 
so diferentes para cada língua, nos en- 
dereços 57350, 57351 e 57352. O acumu- 
lador recebe o valor zero, e o registro 
B, o número 5. Na primeira variável de 
atraso coloca-se, então, zero. Soma-se 
o conteúdo de B ao acumulador e o re- 
sultado, 5, é colocado no segundo atra- 
so. Mais uma vez 5 é somado ao acu- 
mulador e o resultado, 10, vai para o 
terceiro atraso, 



O programa em Assembly listado a 



seguir estabelece o valor inicial de uma 
série de variáveis que são usadas para 
controlar o jogo. 

10 ORO 19447 
20 NLV LDA 16 
30 STA 1B246 
40 LDX 17424 
3TX 18Z47 
LDX (5088 
3TX 18249 
CLR 18251 
CLR 18252 
100 LDX 13070 
110 STX 18253 
120 CLR 18255 
130 LDA 5 
140 STA 1B256 
150 LDA |10 
160 STA 16257 
170 BTS 

Essa rotina, que recebeu o rótulo 
NLV, é utilizada no início do jogo e, 
também, quando Willie morre. 



Uma das vantagens de se colocar io- 
das as variáveis em um mesmo local da 
memória é que podemos verificar facil- 
mente o status do jogo quando estamos 
depurando os erros. 

O valor de variáveis de um byte é es- 
tabelecido com a ajuda do acumulador, 
que tem oito bits, enquanto o registro 
X, de dezesseis bits, se encarrega das va- 
riáveis de dois bytes, mesmo que o seu 
conteúdo, no momento, caiba em um 
único byte. Isso ocorre porque o byte 
mais significativo também deve ser mo- 
dificado. 

O endereço 18246 contém o atraso do 
movimento da maré. O programa colo- 
ca o valor 6 nessa posição para que Wil- 
lie tenha uma chance razoável de subir 
a montanha antes de se afogar. Depois, 
poderemos mudar esse valor para ace- 
lerar o avanço da maré, tornando o jo- 
go mais difícil e emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posição da memória de vídeo cor- 
respondente ao canto superior esquer- 
do do mar é colocada nos bytes 18247 
e 18248. O programa guarda ali o valor 
inicial 7424, que corresponde ao canto 
inferior esquerdo da 'tela. 



A posição de Willie na tela fica ar- 
mazenada em 18249. O programa colo- 
ca nesse byte o valor inicial 5088, cor- 
respondente ao canto inferior esquerdo 
do perfil da encosta da montanha, de 




onde nosso herói deve partir em busca 
do lanche perdido 

Uma outra variável, que fica em 

18251, verifica se Wiliie está parado, an- 
dando ou pulando. O programa coloca 
valor zero nessa posição já que no ini- 
cio do jogo o personagem está parado, 
ao pé da montanha. 

A situação atual do jogo pode ser 
monitorizada pela variável que fica em 

18252. Se esse byte for 0, Willie vai bem, 
obrigado. Se for 1 , ele acaba de recupe- 
rar parte do seu lanche e as rotinas do 
próximo nível de dificuldade vão ser 
chamadas. Se for 2, Wiilie morreu! Co- 
mo no inicio do jogo nosso personagem 
está vivo, o programa coloca 0 nessa po- 
sição. 



PEDRAS E COBRAS 



A variável que controla a posição da 
pedra fica em 18253. O programa colo- 
ca ali seu valor inicial, 3070, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As três cobras têm língua que se me- 
xe. Como não é desejável que as línguas 
façam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, colocam-se variáveis de atra- 
so diferentes para cada língua, nos en- 



dereços 18255, 18256 e 18257. A primei- 
ra variável de atraso é limpa com CLR, 
tornando-se zero. Os números 5 e 10 são 
colocados, respectivamente, na segunda 
e na terceira variáveis'de atraso, com o 
auxílio do acumulador. 




A rotina listada a seguir ajusta uma 
série de variáveis com os valores que elas 
precisam conter quando Willie inicia sua 
arriscada missão. 

10 org -11645 

20 mrt Id a, 6 

30 ld (-5213), a 

40 ld hl. 736 

50 ld (-5212), hl 

60 ld hl, 130 

70 ld (-5210) ,hl 

80 ld a, 3 

90 ld (-520B),a 

100 ld a.O 

110 ld (-5207) .d 

120 ld a.Z 

130 ld (-5206) .■■ 

140 ld hl, 481 

150 ld (-5205), hl 

160 ld hl.O 

170 ld (-5203) .hl 

180 ld a.O 

190 ld (-5201) ,a 

200 ld hl. 255 



210 ld (-5200), hl 

220 ld a.O 

230 ld b.S 

240 ld (-5198) ,a 

250 add a,b 

260 ld (-5197), a 

270 add a.b 

280 ld (-5196) ,a 

Essa rotina, rotulada mrt, não é cha- 
mada apenas no início do jogo, mas, 
também, após a morte de Willie, quan- 
do as variáveis são reajustadas para uma 
nova partida. 




Como reunimos todas as variáveis em 
um mesmo lugar da memória, podemos 
verificar o status do jogo a qualquer mo- 
mento, quando precisamos corrigi-lo. 

As variáveis de um byte são ajusta- 
das pelo acumulador de oito bits, en- 
quanto o par HL, que tem dezesseis bits, 
se encarrega das variáveis de dois bytes, 
mesmo que o valor nelas armazenado, 
em determinado estágio, caiba em um 
só byte. Isso ocorre porque os bits mais 
significativos da variável também devem 
ser ajustados. 

A posição de memória -5213 con- 
tém o atraso do mar. Ela é carregada 
com o valor 6, para que Willie tenha. 
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uma razoável chance de escalar a mon- 
tanha antes de se afogar. Depois, pode- 
remos modificar esse valor para acele- 
rar o avanço da maré, tornando o jogo 
mais difícil e emocionante. 

No início de cada tentativa de Wil- 
lie, o mar deve estar bem baixo, na par- 
te inferior do cenário. A posição do can- 
to esquerdo da superfície do mar é ar- 
mazenada em -5212 e -5211. 

O número 736 é carregado nessa po- 
sição, que corresponde ao canto inferior 
esquerdo da tela. 



Na versão de A valanche para o MSX, 
a nuvem move-se no céu acima da mon- 
tanha. Os endereços -5210 e -5209, 
que contêm sua posição na tela, são car- 
regados com 130, que corresponde ao 
ponto onde ela surge. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem. 
Se não provocarmos um atraso, ela atra- 
vessará o céu como um jato. 

Para ajustar a variável de atraso, car- 
rega-se o endereço em que está armaze- 
nada, -52080, com o valor 3. 

Precisamos também definir a direção 
em que a nuvem se move. Esta informa- 
ção é armazenada em - 5207. Se colo- 




carmos 0 nesse endereço, ela se dirigirá 
para a direita; se colocarmos 1, para a 
esquerda. Como a rotina será inicializa- 
da tendo 0 nessa posição, a nuvem irá 
para a direita. 



O atraso do movimento da gaivota é 
armazenado no endereço - 5206, sendo, 
inicialmente, ajustado com o valor 2. A 
posição de Willie na tela é determinada 
pelo conteúdo dos endereços - 5205 e 
-5204, que são carregados com 481, 
valor correspondente ao lado esquerdo 
da base da encosta. 

Uma outra variável controla a movi- 
mentação de Willie, se ele estiver de pé, 
correndo ou pulando. Por razões que 
veremos depois, ela é armazenada em 
dois bytes, - 5302 e - 5202. Como, no 
início do jogo, Willie está de pé, esses 
endereços são ajustados em 0. 

A condição geral do jogo é monito- 
rada pela variável, que fica no endere- 
ço - 5201 . Vamos chamá-la de variável 
morte. Se seu valor for 0, está tudo bem 
com Willie. Se for 1, nosso personagem 



alcançou seu prémio e a próxima tela do 
jogo deverá ser chamada. Um valor 2 
significa que Willie está mono! Como 
o jogo começa com Willie vivo, esse byte 
é carregado com 0. 



A variável que controla a posição da 
pedra é armazenada nos endereços 
-5200 e -5199. Essa variável é ajus- 
tada com o valor 255, que corresponde 
ao lado direito do topo da encosta. 

As três cobras têm língua que se me- 
xe. Como não é desejável que as línguas 
lenham o mesmo movimento, devemos 
provocar uma defasagem em seu ritmo. 
Para isso, carrega-se o acumulador A 
com o valor 0 e o registro B com a de- 
fasagem 5. O valor 0 é armazenado na 
variável de atraso da primeira cobra 
(-5198). A defasagem 5 é adicionada 
ao valor de A (0) pela instrução add a,b 
e o resultado, 5, vai para a variável de 
atraso da segunda cobra (-5197). Re- 
pete-se a operação e o resultado, 10, é 
armazenado na variável de atraso da ter- 
ceira cobra ( - 5196). 
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MOUSE MECÂNICO 
E MOUSE ÓPTICO 



0 mouse é um periférico cada vez 
mais procurado por usuários de 
microcomputadores pessoais ou 
profissionais. Conheça-o de perto 
e descubra suas várias utilidades. 

A busca por novas formas de intera- 
ção entre o usuário e o computador tem 
levado ao desenvolvimento de diversos 
tipos de periféricos, como o joystick, a 
caneta óptica e o tablete de digitaliza- 
ção, que têm por finalidade facilitar o 
deslocamento de um cursor, de texto ou 
gráfico, sobre a tela. 

Um dos periféricos dessa família é o 
mouse, ou camundongo, dispositivo que 
vem sendo cada vez mais usado em mi- 
crocomputadores de todos os tipos. 

O mouse recebeu essa denominação 
em virtude da semelhança física com um 
ratinho: é uma pequena caixa achatada, 
de cantos arredondados, com um a três 
botões planos em sua superfície dorsal 
e um fio (o "rabo") que sai da parte tra- 
seira, conectado ao computador. 

Para usá-lo, repousa-se uma das 
mãos sobre a caixinha, ao mesmo tem- 
po apoiando um ou mais dedos sobre os 
botões. Para efetuar algum movimento 
do cursor sobre a tela de vídeo, basta 
deslocá-lo levemente de um lado para 
outro sobre uma superfície dura e pla- 
na. Com um mínimo de prática, o usuá- 
rio aprende a coordenar o mouse com 
o que acontece na tela, conseguindo 
grande agilidade e flexibilidade em inú- 
meras funções fixadas por um software 
especial — entre elas, selecionar itens em 
um menu, desenhar sobre a tela, apon- 
tar um cursor ou uma mira etc. 

Os botões da parte de cima do mouse 
têm um papel idêntico ao do botão de 
disparo de um joystick, sendo usados, 
normalmente, para selecionar opções. 



DA ORIGEM À POPULARIZAÇÃO 



O mouse nasceu em um centro de 
pesquisas norte-americano, que estava 
desenvolvendo uma nova linguagem, 
chamada small-talk, e precisava de um 
terminal de vídeo especial para imple- 



mentar os novos conceitos de imperati- 
vidade que seus criadores imaginaram. 
O periférico que eles criaram era uma 
espécie de trackball às avessas: em vez 
de deslocar com a palma da mão uma 
esfera presa ao teclado, o usuário des- 
locava a esfera sobre uma superfície. 

Inicialmente, o uso desse dispositivo 
foi bastante restrito, já que era dispo- 
nível apenas para minicomputadores 
muito caros. Porém, a partir do apare-, 
cimento dos microcomputadores das li- 
nhas Lisa e Macintosh (fabricados pela 
Apple Computer nos EUA), que basea- 
ram seus sistemas operacionais na inte- 
ração com o mouse, ele passou a ser fa- 
bricado também para outras linhas de 
microcomputadores. Em pouco tempo, 
tornou-se muito conhecido. 

No Brasil, o mouse está disponível pa- 
ra microcomputadores das linhas ZX 
Spectrum (TK^OX e TK-95), Apple 11 e 
MSX, No exterior podem ser encontra- 
dos modelos para micros de outras li- 
nhas. Em um artigo futuro, ensinaremos 
algumas técnicas em BASIC para o mouse 

Embora um mouse tenha sempre a 
mesma aparência externa, com poucas 
variações de um modelo para outro, 
existem, na realidade, dois tipos funda- 
mentalmente diferentes quanto ao me- 
canismo de funcionamento: o mouse 
mecânico e o mouse óptico. 

O primeiro tem uma esfera de plásti- 
co ou metal maciço em sua "barriga" 
(ou seja, no lado voltado para a mesa). 
Quando o dispositivo é deslocado, a es- 
fera gira ao redor de seu centro, acom- 
panhando o movimento. Sensores colo- 
cados em sua superfície, dentro da cai- 
xinha, enviam ao computador os ângu- 
los de rotação verificados em duas di- 
mensões e um software especial, previa- 
mente carregado na memória do com- 
putador, transforma esses ângulos em 
coordenadas X e Y, que são usadas pa- 
ra posicionar o cursor na tela. 

O mouse óptico funciona de acordo 
com um princípio totalmente diferente: 
um diodo luminescente {LED), localiza- 
do na parte inferior da caixinha, lança 
um feixe de luz em direção à superfície 
sobre a qual será deslocado o mouse. 
Em outro orifício, um sensor luminoso 
capta as variações da luz refletida pela 
superfície. 



■ 


UM PERIFÉRICO DIFERENTE 


■ 


COMO FUNCIONA 


UM MOUSE MECÂNICO 


■ 


COMO FUNCIONA UM 


MOUSE ÓPTICO 



Ao contrário do mouse mecânico, 
que pode ser deslocado sobre qualquer 
superfície plana e não muito lisa, o mou- 
se óptico requer uma superfície especial. 
Esta consiste de um tablete todo mar- 
cado com um quadriculado em cor azul 
ou preta. Ao se deslocar o mouse sobre 
ela, as linhas do quadriculado provocam 
uma alteração na reflexão do feixe de 
luz vermelha emitido pelo diodo, o que 
é sentido pelo software especial como 
uma movimentação em algum sentido. 
Essa informação, por sua vez, é trans- 
mitida ao computador e convertida em 
coordenadas X e Y. 

Cada tipo de mouse apresenta van- 
tagens e desvantagens. O modelo mecâ- 
nico é mais frágil, quebrando-se facil- 
mente, e menos sensível do que o ópti- 
co. Porém, pode ser usado sobre qual- 
quer tipo de superfície. Já o mouse óp- 
tico requer uma superfície especial, li- 
mitada em tamanho, e apresenta ainda 
a desvantagem de necessitar de uma fon- 
te de alimentação — dependendo do 
modelo, ela precisa ser separada da fon- 
te de alimentação do computador. 

A maioria dos periféricos de tipo 
mouse é conectada ao micro através da 
porta de joystick analógico ou de uma 
porta serial do tipo RS-232. 

Antes de adquirir um mouse, verifi- 
que suas características para se certifi- 
car de que poderá compatibilizá-lo com 
seu computador. 



APLICAÇÕES 



O mouse é um periférico muito diver- 
tido e fácil de usar, tanto em programas 
para jogos de qualquer tipo, quanto em 
aplicações mais "sérias". 

A princípio, toda aplicação que per- 
mite a utilização de canetas ópticas ou 
joysticks também se presta para o uso 
do mouse. Existem, porém, alguns pro- 
gramas comercialmente disponíveis, que 
são feitos exclusivamente para o mou- 
se. Ineluem-se, entre eles, programas de 
desenho sobre a tela, de seleção rápida 
de menus etc. 

E não se esqueça: com alguns coman- 
dos simples em BASIC, não será difícil 
desenvolver os seus próprios programas 
para o irrequieto mouse. 
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AVALANCHE 



CONTAGEM DOS P ONTOS 
TROCA DE TELA 



IMPRESSÃO DO ESCORE 



NÍVEL DE DIFICULDADE 



NUMERO DEVIDAS 



A simples obtenção de prémios não 
satisfaz um aventureiro: ele precisa 
saber exatamente quantos pontos 
conseguiu com seu esforço, Monte estas 
rotinas e veja o placar funcionar. 



A rotina que conta pontos também 
troca as leias, imprime o escore, o nível 
de dificuldade e o número de vidas. 



A rotina a seguir desenha a tela apro- 
priada, imprimindo também o escore e 



o número de vidas que ainda restam a 
Willie. Além disso, encarrega-se da exe- 
cução da música. 

10 BEM org 58676 

20 REM call lsi 

30 REM call acp 

40 REM ia hl , 119 

50 REM ld a, (57343) 

60 REM ld b.48 

70 REM add a,b 

80 REM call ase 

90 REM ld a. 41 
100 REM call print 
110 REM call tune 
120 REM ret 
130 HEM org 58303 
140 REM lai ■ 
1 50 REM org 58174 



160 REM anc * 

] 70 REM org 58217 

180 REM print « 

190 REM org 60006 

200 REM tune * 



A instrução call lsi chama a sub- 
rotina que desloca a tela para a esquer- 
da. A tela apropriada é selecionada pe- 
la sub-rotina elb, que publicamos em ar- 
tigo anterior. 

Em seguida, a rotina scp. que será 
dada logo adiante, é chamada. Ela é res- 
ponsável pela impressão do escore na te- 
la. Não execute o programa antes de tê- 
la montado. 




Illllllll 



CÓDIGO DC A 
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O par de registros HL recebe a posi- 
ção de impressão do número de vidas, 
119. Quando a sub-rotina print for cha- 
mada, HL indicará, como de costume, 
a posição de impressão. 

O acumulador recebe o conteúdo do 
endereço 57343. Nessa posição de me- 
mória armazena-se o número de vidas 
queWillie ainda lem. O número 48 é, en- 
tão, colocado em B. Para calcular o có 
digo ASCII do número a imprimir, so 
ma-se o conteúdo desses dois registros 

Depois a rotina ase é chamada. Co 
mo você deve estar lembrado, essa roti 
na faz com que BC aponte para o pa 
drão do algarismo a ser impresso na ta- 
bela de caracteres da ROM. A cor do 
número é escolhida colocando-se 41 em 
A. A rotina prinl é chamada para im- 
primir na leia o número de vidas que res- 
tam a Willie. A rotina tune. por sua vez, 
é chamada para executar a música. Es- 
sa rotina deve ser montada novamente 
com endereço inicial 60000 — caso con- 
trário, o programa não funcionará. 



icp chamada pela ro- 



tina anterior: 



10 BEM org 58939 
20 REM acp ld hl , 55 
.10 HEM ld íx. 5 733? 



40 BEM ld b.6 

50 BEM acq puah bc 

60 REM ld a . < lx+0) 

70 BEM ld b,46 

80 REM add a,b 

90 REM ca) 1 aac 
100 REM ld a. 4) 
110 REM call print 
120 BEM inc hl 
130 REM inc íx 
140 BEM pop bc 
ISO REM djnz aeg 
160 BEM ret 
170 REM org 58174 
180 REM ase * 
190 REM org 58217 
200 REM print * 

O par de registros HL recebe o valor 
55, que corresponde à posição da tela 
em que será impresso o primeiro dígito 
do escore. O endereço do primeiro byte 
que contém o escore é colocado no 
registro-índice IX, que pode, então, ser 
usado como apontador. 

O número de dígito do escore, 6, é 
colocado em B. Esie contador fica tem- 
porariamente na pilha. 

O byte apontado por IX é transferi- 
do em seguida para o acumulador, o que 
faz com que os dígitos do escore sejam 
colocados em A. 

O número 48 é adicionado para cal- 
cular o código ASCII do algarismo e a 
rotina ase é chamada para acertar o 
apontador de padrões. Para a seleção da 
cor da letra, coloca-se41 em A. A roti- 



na prinl é chamada de novo para impri- 
mir o dígito. 

O par de registros HL aumenta em 
uma unidade para apontar a próxima 
posição de impressão. Observe que os 
dígitos mais significativos do escore são 
impressos primeiro. O registro IX tam- 
bém aumenta em uma unidade, apon- 
tando para a próxima variável do esco- 
re. Os dígitos decimais do placar sã 
mazenados separadamente, um em ca- 
da variável, do mais significativo para 
o menos significativo. 

O contador é recuperado da pilha 
e colocado em B. A instrução djnz 
diminuí seu valor em uma unidade. 
Se ele ainda não for zero, o processa- 
dor volta ao rótulo seq para imprimir o 
dígito seguinte. Depois que o laço tiver 
sido executado seis vezes, imprimindo os 
seis dígitos do escore, o processador re- 
tornará. 



Esta rotina desloca a tela antiga e de- 



senha a nova c 
vidas e o placar. 

10 ORG 19489 

20 JSB $4AA5 

30 LDX #1807 

40 LDU #17544 

50 LDB *5 

60 SCPR LDA 13 



3 sol, o número de 



u 
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460 
470 
480 
490 



520 
530 
540 
550 
560 
570 
560 
590 
600 



630 
640 
650 
660 
670 
680 
690 



tZQ 
730 
740 
750 
760 

770 
780 
790 

300 
810 
820 
630 
840 
BSC 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 



PRSCB LDA ,X 
PSHS X.B 
BITB |1 
BNE HOLL 
LDB 45 
MUL 

ADDD #17724 
TFR D,X 
PSHS Y 
LDB #5 

PRSCA LDA.X+ 
STA . Y 
LEAY 32. Y 
DECB 

BNE PRSCA 
PULS Y 
LEAY 1,Y 
ROLRET PULS B.X 
LEAX l.X 
DECB 

BNE PRSCB 
PULS Y,X,D 
RTS 

ROLL LDB #5 
MUL 

ADDD #17724 
TFR D,X 

pshs y 

LDB |5 

RLLA LDA.X+ 

PSHS A 

ANDA (15 

LSLA 

LSLA 

LSLA 

LSLA 

ORA #15 

STA l.Y 

PULS A 

LSRA 

LSRA 

LSRA 

LSRA 

ORA #350 
STA ,Y 
LEAY 32, Y 
DECB 

BNE RLLA 
PULS Y 
LEAY 2,Y 
BRA ROLRET 



Inicialmente, o programa salta para 
a sub-rotina do endereço S4AA5, que 
substitui a tela antiga pela nova e dese- 
nha o sol. 

Em seguida, a posição da tela em que 




i 
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queremos imprimir a primeira leira da 
palavra "SCORE" é colocada em X. O 
apontador da pilha do usuário, U, re- 
cebe o endereço inicial da tabela de da- 
dos correspondentes à palavra a ser im- 
pressa. Esses dados foram colocados ali 
pelo programa BASIC criador de tabe- 
las, já publicado. O registro B recebe o 
valor 5, pois as letras têm apenas cinco 
bytes de altura. 

Existem cinco letras em "SCORE" 
mais um espaço, totalizando seis. Po- 
rém, A recebe o número 3, já que usa- 
remos o registro Y para imprimir dois 
bytes de cada vez. 

Os dois bytes que se encontram no to- 
po da pilha do usuário são colocados no 
registro Y pela instrução PULU Y. A pi- 
lha do usuário é, no momento, a região 
da tabela de dados apontada por U. Es- 
ses dois bytes passam a ocupar as posi- 
ções de memória de vídeo apontadas por 
X. Em seguida, o registro X tem seu 
conteúdo aumentado em duas unidades, 
apontando, então, para as duas posições 
seguintes. 

A instrução DKCA diminui o acumu- 
lador em uma unidade e BNE SCPRI re- 
pele o laço até que todos os seis bytes 
tenham sido impressos — o que coloca 
na tela apenas a primeira linha da pala- 
vra. Depois disso, a instrução LEAX 
26.X soma 26 ao conteúdo de X, mo- 
vendo-o da ponta direita da linha im- 
pressa até a posição de impressão da 
próxima linha da palavra. Esta fica seis 
bytes para a esquerda, na linha inferior. 
Lembre-se de que existem 32 bytes por 
linha e seis letras na palavra: 32 - 6 = 
26. 

O registro B é diminuído em uma uni- 
dade pela instrução DECB. O processa- 
dor retorna ao rótulo SCPR até que to- 
das as cinco linhas da palavra tenham 
sido impressas. Finalmente, a instrução 
JSR PRSC salta em direção à sub-roti- 
na de impressão do escore. 



AS CINCO VIDAS DE WILLIE 



A rotina que imprime a palavra "VI- 
DAS" é quase idêntica á que imprimiu 
"SCORE". Apresenta apenas duas di- 
ferenças: a posição de impressão na te- 
la — apontada pelo registro X — e a 
porção da tabela de dados utilizada — 
apontada por U. Apesar da nova posi- 
ção na tela e dos diferentes valores da 
tabela de dados, o processo de impres- 
são é exatamente o mesmo. 

Ao contrário da anterior, essa roti- 
na não salta para a sub- rotina de impres- 
são do número de vidas ao terminar, 
pois esta última se encontra logo a se- 
guir na memória. 
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O número de vidas que restam a Wil- 
lie fica armazenado em 18239. O con- 
teúdo dessa posição é colocado no acu- 
mulador e o número 5, em B. Em segui- 
da, os dois registros são multiplicados. 

Para imprimir o número de vidas na 
tela, o programa tem que obter na ta- 
bela de dados o padrão do algarismo 
correspondente. Cada caractere requer 
cinco bytes para definir seu padrão. As- 
sim, para acharmos o endereço inicial 
do padrão do algarismo desejado, pre- 
cisamos percorrer a tabela de dados em 
múltiplos de cinco. 

O resultado da operação MUL — 
que multiplica os conteúdos de A e B — 
é colocado em D. O endereço inicial da 
porção da tabela que nos interessa — 
17724 — é somado a esse resultado. 
Obtém-se, assim, o endereço inicial do 
padrão do algarismo correspondente ao 
número de vidas. 

O valor calculado é transferido para 
o apontador da pilha do usuário, U, de 
forma que essa região da tabela se trans- 
forma na pilha. 

No registro X, coloca-se novamente 
a posição de impressão na tela; no re- 
gistro B, o número de bytes necessário 
para escrever o algarismo, 5. O primei- 
ro byte do padrão è retirado da pilha, 
colocado em A e impresso na posição de 
tela apontada por X. 

Desta vez o registro X ê acrescido de 
32. Como apenas uma figura vai ser im- 
pressa, o apontador X precisa ser colo- 
cado uma posição de tela abaixo, de mo- 
do que passe a apontar para a próxima 
linha de pixels da figura. 

B é decrementado e o processador sai 
do laço, executando a instrução seguin- 
te se todos os cinco bytes já tiverem si- 
do impressos na tela. 

Para finalizar, o processador salta 
para a rotina 30000, que toca a música, 
criando o clima adequado para se ini- 
ciar a aventura. No retorno dessa sub- 
rotina, a instrução RTS devolve o con- 
trole ao BASIC. 

RTS será apagada por uma outra ins- 
trução, quando o programa completo 
estiver montado. Ela é seguida por duas 
instruções NOP — Nenhuma OPeraçào 
— , que nada executam, servindo apenas 
para guardar o lugar dos dois últimos 
bytes da instrução JSR. Esta apagará 
RTS e acionará o laço principal que con- 
trola o programa completo. 



OS NÚMEROS DO PLACAR 



Os bits de cada linha de uma figura 
completam um byte. Se você imprimir 
cada um desses bytes diretamente, dei- 
xando-os muito próximos, eles termina- 



rão por interferir uns nos outros, tor- 
nando-se, então, ilegíveis. 

Para contornar essa dificuldade, a ro- 
tina que imprime os dígitos do escore 
controla as figuras — neste caso, núme- 
ros — meio byte, criando um espaço en- 
tre eles e fazendo com que os digilos se 
lornem legíveis. 

A rotina PRSC começa colocando os 
conteúdos dos registros D,X,Y na pilha 
da máquina, de modo a preservar seus 
valores. Mais tarde, precisaremos ape- 
nas do valor armazenado em Y. Mas 
nosso procedimento, aqui, vale como 
um lembrete: quando se programa em 
linguagem de máquina, convém empi- 
lhar o conteúdo de todos os registros 
que serão utilizados na sub-rotina. Sem- 
pre existe a possibilidade de que, poste- 
riormente, seja necessário armazenar 
um importante parâmetro em um regis- 
tro. Na dúvida, convém empilhá-lo. 

A posição de memória Í8240 arma- 
zenao byte correspondente ao primeiro 
dígito do escore. O valor decimal de ca- 
da um dos seis dígitos do escore — do 
mais significativo ao menos significati- 
vo — está guardado em seis posições de 
memória, de 18240 até 18245. 

Como seis figuras serão impressas, 
carrega-se B com o número 6;Y é carre- 
gado com a posição de impressão. 

O conteúdo da posição de memória 
apontada pelo registro X é colocado no 
acumulador A. Esse registro está apon- 
tado para a memória do escore. Em se- 
guida, os valores de X e B são preserva- 
dos na pilha. 

A instrução BITB#1 verifica o bit 
zero do registro B. Se B tem um valor 
par — e o bit zero, portanto, não é 1 — , 
a instrução BNE ROLL desvia o progra- 
ma para a sub-rotina ROLL, que des- 
loca todas as outras figuras meio espa- 
ço para a direita. Mas se o valor de B 
é ímpar — e. consequentemente, o bit 
zero é 1 — o processador continua com 
a próxima instrução. 



Para imprimir a figura na tela, o pro- 
cedimento é o mesmo utilizado no nú- 
mero de vidas. Multiplica-se o dígito re- 
querido por cinco e adiciona-se o resul- 
tado ao endereço-base da tabela de da- 
dos do primeiro dígito. 

Desta vez, porém, o apontador obti- 
do é transferido para X, enquanto o 
apontador da posição de impressão em 
Y é colocado na pilha. 

Carrega-se em A o byte da tabela de 
dados que está sendo apontado e incre- 
menta-se o registro X. Esse byte é arma- 
zenado na posição de tela apontada por 



Y. O valor 32 é adicionado ao conteú- 
do de Y, fazendo com que este aponte 
para a linha de bits logo abaixo na fi- 
gura. B é decrementado e o processador 
retorna para colocar o próximo byte 
abaixo, até que todos os cinco bytes que 
compõem a figura do dígito tenham si- 
do impressos. 

Depois disso, o apontador da posição 
de tela é recuperado da pilha e incremen- 
tado, passando a apontar para a próxi- 
ma posição à direita. 

O valor do contador em B e o apon- 
tador de memória do escore X são no- 
vamente recuperados da pilha. X é in- 
crementado para o processamento da 
próxima figura ã direita, enquanto B é 
decrementado, contando as figuras a se- 
rem impressas. Se todos os dígitos ain- 
da não tiverem sido impressos, o pro- 
cessador imprime o próximo. 

Neste caso, os registros Y, X e D são 
recuperados da pilha com os valores an- 
teriores ao início desta rotina. Depois, 
o processador retorna para a posição 
que a chamou na rotina principal do 
programa. 



DESLOCAMENTO 00S NÚMEROS 



Se o valor do registro B for par e a 
rotina ROLL foi chamada, o processa- 
dor localiza, na tabela de dados, o ini- 
cio da figura adequada ao dígito. Mul- 
tiplica, então, o dígito por cinco e adi- 
ciona o resultado ao endereço-base, 
transferindo o vaior obtido para X. Em 
seguida, coloca a posição de impressão 
na pilha e carrega o registro B com o 
contador de bytes. 

A instrução LDA.X + carrega o acu- 
mulador com um dos bytes que formam 
a figura e incrementa o registro X para 
apontar o byte seguinte, que é guarda- 
do na pilha da máquina. 

A instrução ANDA #15 executa a 
operação lógica AND entre o conteúdo 
de A, uma linha de pontos da figura e 

0 número 15, que em binário é 

00001 111. Essa operação equivale a co- 
locar uma "máscara" no conteúdo de 
A, onde o nybble (grupo de quatro bits) 
mais significativo é apagado e o menos 
significativo, preservado. 

Quatro instruções LSLA — do inglês 
Logic Shift Left on Acumulator (deslo- 
camento lógico sobre o acumulador) — 
empurram o nybble menos significativo 
para a posição ocupada pelo nybble 
mais significativo, que é perdido. Essa 
operação é feita bit por bit. 

A instrução ORA # 5 efetua a opera- 
ção lógica OR entre o resultado anterior 
em A e o número 5, colocando amarelo 
— cor de fundo — no nybble menos sig- 
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nificativo. Após receber esse "tratamen- 
to", a linha de bits é impressa na posi- 
ção apontada por Y+ I. Exibe-se, as- 
sim, na tela, a metade direita do padrão 
de bits, duas posições à direita da figu- 
ra atual, ficando reservado o espaço on- 
de posteriormente será colocada a me- 
tade esquerda. 

O padrão de bits completo dessa li- 
nha c mais uma vez recuperado da pi- 
lha da máquina e quatro instruções 
LSRA deslocam o nybble mais signifi- 
cativo para a direita. A operação OR 
com o número hexadecimal 50 ajusta a 
cor de fundo desse byte para amarelo. 

O byte resultante das operações aci- 
ma é impresso na posição apontada por 
Y, ou seja, a metade esquerda do padrão 
de bits dessa linha é colocada na posi- 
ção reservada. Com isso, as duas meta- 
des se juntam, formando a figura com- 
pleta. As metades vagas desses dois 
byies foram ajustadas com a cor de fun- 
do amarela, de modo que temos, entre 
cada dígito do escore, um espaço de 
meio byte. 

A instrução LEAY 32, Y adiciona o 
valor 32 a Y, para processar a linha de 
bits logo abaixo da figura. B c decre- 
mentado e o processador permanece no 
laço até que todas as cinco linhas de bits 
lenham sido impressas. O processador 
sai, então, do laço e adiciona 2 ao apon- 
tador Y. 

Isso faz com que o apontador de te- 
la se desloque duas posições para a di- 
reita, já que a figura com número ím- 
par ocupou duas posições adjacentes na 
tela — uma contendo a metade esquer- 
da e outra, a metade direita. 

Em seguida, a instrução BRA ROI- 
RET retorna ao rótulo ROLRET, no 
qual os apontadores são recuperados an- 
tes da rotina voltar para processar o pró- 
ximo digito, com número impar. 



na 




A rotina abaixo é montada logo após 
a que apresentamos no artigo anterior, 
e faz parte do programa principal. Ela 
começa chamando as rotinas - 1 1973 e 
-1 1843. A primeira desenha e desloca a 
montanha para a tela, e a segunda acres- 
centa os prémios e os riscos de acordo 
com o nível de dificuldade. 

O programa pode ser dividido em três 
partes. A primeira cria os padrões de le- 
tras e números na VRAM, usando um 
buffer de códigos ASCII e uma rotina 
da ROM. A segunda imprime na primei- 
ra linha da tela as palavras SCORE, VI- 
DAS e NÍVEL, utilizando a tabela de 
padrões. A terceira, finalmente, impri- 
me os seis dígitos decimais do escore, se- 



gundo o conteúdo das seis posições de 
memória reservadas para eles; da mes- 
ma maneira, imprime o número de vi- 
das e o nível atual do jogo, conforme 
o conteúdo das posições de memória re- 
servadas para essas variáveis. 

10 oro 53961 

20 call -11973 

30 call -11B43 

40 ld a, 160 

50 ld (64695) ,a 

60 ld a, 16 

70 ld (64697) ,a 

BO ld de. -14560 

90 ld b.52 

100 rt push bc 

13 0 puah de 

120 ld a, (de) 

130 cal) 141 

140 pop de 

150 inc de 

160 pop bc 

170 djnz rt 

180 ld de.l 

190 ld a, 84 

200 ld b.30 

210 tt puflh bc 

220 puah de 

230 push af 

240 ld hl , (62407) 

250 add h! ,de 

260 call 77 

2 70 pop af 

280 inc a 

290 pop de 

300 inc de 

310 pop bc 

.320 djnz tt 

330 call bc 

34 0 ;ip vd 

350 ac ld de, -5219 

360 ld (-5190) .de 

370 ld de, 7 

380 ld hl , (62407) 

390 add hl .de 

400 ld b,6 

410 vo puah bc 

4 20 puah hl 

430 ld de, (-5190) 

440 ld a , (de) 

450 inc de 

460 ld (-5.190) . de 

470 add a, 126 

480 call 77 

490 pop hl 

500 inc hl 

510 pop bc 

520 djnz vo 

530 ret 

540 vd ld a, (-5221) 

550 add a, 126 

560 ld de, 21 

570 ld hl , (62407) 

580 add hl .de 

590 call 77 

600 ld a, (-5228) 

610 add a. "126 

620 ld de. 30 

630 ld hl , (62407) 

640 add hl ,de 

650 call 77 



660 call -12166 

670 ld hl , -14054 

680 call -12210 

690 ret 

700 end 



ESCREVENDO NA TELA 



Essa parte do programa começa na 
linha 40 e vai até a linha 320. 

As posições ÍJe memória 64695 e 
64696 da RAM contêm o endereço na 
VRAM do chamado Acumulador Grá- 
fico X. A instrução ld (64695), a coloca 
o valor 160 nesse endereço. As posições 
de memória 64697 e 64698 contêm, por 
sua vez, o endereço do chamado Acu- 
mulador Gráfico Y. A instrução ld 
(64697), a coloca o número 16 nesse en- 
dereço. 

A rotina 141 da ROM imprime um 
caractere ASCII em qualquer posição da 
tela de alta resolução, ou seja, do pon- 
to (0,0) ao ponto (255.191). Para isso, 
o acumulador deve conter o código 
ASCII do caractere e os acumuladores 
gráficos x e y precisam estar ajustados. 
O valor do acumulador x vai de 0 a 255; 
o do acumulador y, de 0 a 191. 

Como você deve se lembrar, a tela de 
alta resolução é um reflexo da tabela de 
nomes, que conlém os códigos dos pa- 
drões que aparecem no vídeo. O conjun- 
to de bytes que formam a figura de ca- 
da padrão está na tabela de padrões da 
VRAM. A rotina 141 da ROM escreve 
o caractere ASCII na tela. Para isso, 
precisa criar os bytes que formam a fi- 
gura desse caractere na tabela de pa- 
drões e, ainda, colocar o código do pa- 
drão na posição adequada da tabela de 
nomes. A rotina 141 trabalha na tela co- 
mo se o modo de alta resolução acabas- 
se de ser ligado — ou seja, com a tabela 
de nomes (e, conseqúentemente, a tela) 
totalmente preenchida pelos padrões de 
0 a 255, dispostos sequencialmente. Es- 
crever na tela de alta resolução com es- 
sa rotina significa, assim, criar os bytes 
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que compõem a figura no padrão ou pa 
drôes correspondentes à posição apon 
lada pelos acumuladores gráficos > 
Essa posição equivale ao canto superior 
esquerdo do caractere na tela. Por exem- 
plo, com os valores 8 e 0 nos acumula- 
dores gráficos x e y, respectivamente, a 
figura seria criada no padrão de código 
[; com os valores 8 e 4, nos padrões 1 e 
33. Como você pode concluir, um carac- 
tere ASCII ocupa até quatro padrões. 



CRIAÇÃO DOS PADRÕES 



Neste programa, utilizaremos a roti 
na 141 para criar os padrões das 52 le 
tras e números cujos códigos ASCII es 
tão a partir da posição de 
-14560. O programa BASIC que apre- 
sentamos no fim do anigo encarrega-se 
de colocar os caracteres nessas posições. 
Os bytes que compõem as figuras serão 
colocados a partir dos endereços da ta- 
bela de padrões que correspondem ao 
padrão 84. Para isso, deve-se carregar 
o acumulador gráfico x com 160 e o acu- 
mulador gráfico y, com 16. 

O par de registros DE c usado como 
apontador do buffer de códigos ASCII 
e o registro B, como contador. Em se- 
guida, o laço rt coloca as figuras corres- 
pondentes aos caracteres ASCII do pa- 
drão 84 ao padrão 135. Os acumulado- 
res gráficos x e y não precisam ser í 
crementados, pois, a cada chamada, a 
rotina 141 cuida de fazer isso. 

Se você transferir a posição de cha- 
mada das rotinas -l 1973 e -1 1843 para 
depois do laço rt, poderá ver na tela a 
criação dos padrões. 

O próximo passo consiste na impres- 
são das palavras SCORE, VIDAS c 



NÍVEL na primeira linha da tela. Para 
isso, usa-se a rotina 77 da ROM, que co- 
loca o código do padrão na tabela de no- 
mes da VRAM. O código deve estar, en- 
tão, no acumulador A, e o endereço na 
tabela de nomes, no par HL. As posi- 
ções 62407 e 62408 contêm o endereço 
inicial da tabela de nomes da VRAM. 
Assim, basta colocar esse endereço em 
HL e adicionar a ele a posição na qual 
queremos imprimir o padrão, de 0 a 767. 

A operação acima c repetida trinta 
vezes pelo laço II, pois, como existem 
vários espaços entre as palavras que es- 
tamos escrevendo, elas ocupam quase 
toda a primeira linha. 



A rotina que imprime os dígitos do 
escore é chamada pela instrução call sc. 
Em seguida, o programa salta para a ro- 
tina que imprime o dígito do escore e o 
digito do número dc vidas. Procedemos 
assim para que a rotina sc possa ser cha- 
mada independentemente de outras par- 
tes do programa que serão dadas mais 
tarde. 

A rotina sc começa colocando o en- 
dereço -5219 nas posições de memória 
-5 190 e -5 189, através do par DE. Os va- 
lores decimais dos dígitos do escore es- 
tão armazenados em seis endereços a 
partir de -5219. 



EXIBIÇÃO 00S DÍGITOS 



A posição de impressão do primeiro 
dígito é colocada no par de registros HL 
e o contador B é ajustado em seis (nú- 
mero de dígitos). 



O laço vo coloca os dígitos na tela. 
As posições de memória -5 1 90 e -5 1 89 
contêm o endereço do dígito que está 
sendo impresso e funcionam como 
apontador. Para obter o padrão equi- 
valente ao digito no acumulador, adicio- 
na-se seu valor decimal ao código do pa- 
drão do dígito 0, que é 126, como se po- 
de verificar contando os padrões cria- 
dos anteriormente a partir de 84. 

Os dígitos decimais correspondentes 
ao número de vidas e ao nível do jogo 
estão guardados nos endereços -5221 e 
-5228. Como os dígitos do escore, eles 
são colocados pela rotina 77 da ROM 
nas posições 21 e 30 da tabela de nomes, 
respectivamente. 

Depois de tratar dos dígitos do esco- 
re, do número de vidas e do nível do jo- 
go, a rotina chama a sub-rotina -12166 
— a mesma que executa a música no ini- 
cio do jogo. 



O programa BASIC apresentado a 
seguir coloca os caracteres ASCII cor- 
respondentes às letras e números da li- 
nha DATA num buffer que começa no 
endereço -14560. Esse programa arma- 
zena todos os caracteres na variável RS 
e utiliza a função ASC para obter o có- 
digo correspondente a cada um deles. 

10 CLEAR 200,-1.6100 

20 E--M561 

3 0 READ RS 

40 FOH N-l TO 52 

50 POKE E + N . ASC (Ml 1)5 (RS , N , L ) ) 

60 NEXT N 

70 DATA "SCORE 000000 VtDAÍj 0 
NTVEI. 0FIM DE JOGO 012.1156789' 
80 END 
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A INSTRUÇÃO SOUND 
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TABELA DE CONVERSÃO 


DE NOTAS PARA 0 MSX 



Os usuários do MSX têm o privilégio de 
poder utilizar acordes em suas músicas, 
já que esse micro possui três canais para 
a produção de sons. Neste artigo, você 
verá como harmonizar suas melodias. 



Em artigos anieriores, expusemos osl 
fundamentos da teoria musical e mos-l 
tramos como transformar o micro em fl 
um instrumento, por meio de progra- J 
mas simples. Vimos, também, como 
converter partituras em dados que 
possam ser lidos pela máquina. 
Tudo isso, porém, aplicava-se ape- 
nas a melodias em que uma só 
nota era emitida de cada vez. 

Este artigo vai um pouco I 
mais além, apresentando pro- J 
gramas que possibilitam a exe- J 
cuçào de acordes. Embora a 
teoria envolvida seja de interes- 
se geral, só o MSX tem os recursos ne- 
cessários para a execução de mais de 
uma noia ao mesmo tempo, em BASIC. 

Nossos programas adotam as mes- 
mas convenções dos artigos anteriores. 
Assim, se você quiser refrescar a memó- 
ria antes de tentar assimilar as novas téc- 
nicas, reveja-os. 



Um acorde é simplesmente um gru- 
po de notas tocadas simultaneamente. 
Se pressionarmos várias teclas ao acaso 
no piano, obteremos um acorde. O som 
resultante, contudo, poderá ser bem de- 
sagradável. Para que um acorde soe bem 
aos nossos ouvidos, é preciso haver har- 
monia. Os acordes mais simples e har- 
moniosos geralmente contêm três notas 
e se mantêm dentro de uma escala maior 
— dó, ré. mi... 

Se tocarmos ao mesmo tempo dó, mi 
(duas notas acima) e sol (mais duas no- 
tas acima) — C, E e G na escala de C 
maior — teremos um exemplo do mais 
conhecido e simples tipo de acorde, o 
acorde maior. O nome de um acorde c 
derivado da nota mais baixa que o com- 
põe: em nosso caso. trata-se de um acor- 
de de C maior. 




Todos os acordes maiores tem qua- 
tro semitons entre-a nota mais baixa e 
a intermediária, e três semitons entre es- 
ta última e a nota mais alta. Um segun- 
do tipo de acorde, o acorde menor, tem 
três semitons entre a nota mais baixa e 
a intermediária, e quatro entre as duas 
notas superiores. Tanto os acordes 
maiores como os menores possuem sete 
semitons de comprimento, só que a no- 
ta intermediária é mais alta no acorde 
maior. A consequência, em lermos de 
qualidade sonora, é que os maiores são 
geralmente mais "alegres", e os meno- 
res, mais "tristes". 

Podemos construir um terceiro tipo 
de acorde na escala maior. Começando 
em si, ou B em C maior, esse acorde 
conterá B, mais D c F da oitava supe- 
rior. Ele terá, então, dois intervalos de 
três semitons entre as três notas. Este é 
um acorde diminuto, menos usado que 
os dois anteriores. 

A escala maior compòe-se de sete no- 
tas. Com elas podemos construir três 
acordes maiores, três menores e um di- 
minuto. Os três tipos são conhecidos co- 
mo tríades, já que têm três notas cada. 



A nota mais baixa de cada tríade é cha- 
mada fundamental; a nota fundamen- 
tal de E menor, por exemplo, é E. 

O diagrama acima mostra como es- 
ses acordes são escritos na pauta musi- 
cal. Como você pode observar, as no- 
tas tocadas simultaneamente são colo- 
cadas umas sobre as outras. 



COMO UTILIZAR OS ACORDES 



Se uma melodia executada em C 
maior tem, em certo ponto, a nota C, 
qualquer acorde — dos tipos descritos 
— que também contenha a noia C po- 
derá se harmonizar com ela. produzin- 
do um som mais rico e agradável. 

Como os acordes C e F maiores e A 
menor contêm a nota C, todos se har- 
monizarão com a melodia. A nota da 
música em questão pode ser qualquer 
uma das irês notas que compõem o 
acorde — ou seja, toda nota se harmo- 
niza com três diferentes tríades. C, por 
exemplo, é a nota mais baixa em C 
maior; é intermediária em A menor e é 



IHHIIIIIIIIII! 




a mais alta em F maior. Na realidade, 
sc uma melodia contém a nota C, basta 
adicionarmos as outras duas notas pa- 
ra obtermos a tríade. Nesse caso, a no- 
ta da melodia originai funciona não ape- 
nas como parte da melodia, mas, tam- 
bém, como parte do acorde. 

No acorde de C maior, C não preci- 
sa ser necessariamente a nota mais bai- 
xa, podendo ter qualquer nota acima ou 
abaixo. Nesse caso, costuma-se dizer 
que o acorde é invertido. A ilustração 
da página mostra diversos arranjos de 
notas — todos eles são acordes de C 
maior. O mesmo principio se aplica a 
outros acordes. 



HARMONIA AUTOMÁTICA 



O programa que apresentamos a se- 
guir obtém de linhas DATA as notas de 
uma melodia simples. Mas, ao execu- 
tá-la. ele acrescenta a cada nota duas ou- 
tras, mais graves, que harmonizam com 
ela. As duas notas são criadas por um 
processo aleatório; assim, a harmonia 
da música varia a cada nova execução. 
Todos os acordes, porém, constituem 
tríades da escala C maior. 

A melodia listada ao final do progra- 
ma poderá ser substituída por outra de 
sua própria escolha, desde que a escala 
seja C maior, isto é, o dó deve corres- 
ponder a 03C do comando PI.AY. A 
nova melodia não deve conter nenhuma 



nota mais grave que 03C; caso contrá- 
rio, o programa não será capaz de ge- 
rar um acorde válido. 

As notas mudam ao mesmo tempo, 
nas três vozes e, sempre que há a alte- 
ração, uma nova harmonização é feita. 
O programa produz acordes de acordo 
com as regras, o que não significa que 
eles sejam sempre os mais adequados ao 
gosto do usuário. 

A melodia The Sainls go Marching In 
{A Marcha tios Santos) está armazena- 
da nas linhas DATA do final do progra- 
ma. A ilustração da página seguinte 
mostra duas variações da abertura da 
melodia que poderão eventualmente ser 
produzidas pelo programa. Trata-se da 
mesma melodia — o que muda é só a 
harmonia. Na primeira variação, os 
quatro acordes são F maior, C maior, 
B diminuto e G maior; na segunda, te- 
mos C maior, E menor, D menor e C 
maior. 




10 R = RND (-TTME) 

20 INPUT "Andamento (32-255) ";T 
P 

.10 GOSUB .1000 
40 GOSUB 4000 
50 GOSUB 5000 

BO Kl«l:K2>2:K3=3iK4«l:K5«3 
90 FOR T = l TO 32 
100 READPV , T : T FPV= 0THEN1 80 
110 C-TB(PV) 

120 11 t = RND(K])*K2 + K2:IFIl» = K3T 
HENI2* = K5E1,Í!EI2*=P.ND(KI)*K2+K4 



130 Ilt~C*-Il«:t2*-C-l2* 

140 A$="L"+STH3(T)+"N"+STHS (Q* ( 

PV) ) 

] 50 B$="L"+STR$ (T)+"N , '+STRS (Q* < 
tÀÍXUH) 

160 CS-*t."+STBS(TJ + "N , '+STRS(QÍ ( 

TA (12*) ) ) 

1 70 PLAY AS, BS.CS 

20(1 NEXT : END 

4010 TM» 2 3 

4020 FOP, T-l TO 37 

4030 QI{T)=-TM+J 

41)50 NEXT : RET1I8N 

5000 DATA 1,3.5,6,8.10.17.13.15 
. 1 7. 18. 20, 22, 24 . 25. 27. 29,30, 32, 
34,36.37 

5010 DTM TA(22) :FOR 1-1 TO 22:R 
EAD TAU) ■ NEXT 

S020 DATA I . I , 2,2,3.4,4. 5.5.6.6 
,7, 8, 8. 9,9. 10. 11, 11, 12,12, 13. 13 
. 14 

5030 DATA 15,15.16, 16, 1 7, 1B.1B, 
19.19,20,20.21,22 

5040 DIM TB{.17):FOR T = l TO 37:B 

EAD TB(I) : NEXT : PETUHN 

3000 PLAY "V15" . "V10" . "V10" 

3010 A5="T"+STRS(TP) 

3020 PLAY AS. AS, AS 

114 0 RETtJRN 

4000 DTM Q* (37) 

10000 DATA 13.10.17,10,18,10 

10010 DATA 20,2, ] 3. 10.1 7. 10, 18, 

10 

10020 DATA 20,2,1.1,10.17,10.18, 
10 

10030 DATA 20,5,17.5.11,5.17,5 
10040 DATA 15.2.17,10,17.10,15. 
10 

10050 DATA 13,5,13,5,17,5.20,5 
10060 DATA 20,10,18,2,17.10,18. 
10 




nota e sua duração. Se o valor for 0 — 
pausa — , o programa salta para a linha 
180. A linha 1 10 calcula a posição da no- 
ta na escala usando a matriz TB. A 120 
escolhe ao acaso um dos valores 2 a 3, 
definindo o intervalo entre as notas da 
melodia e a noia intermediária. Se o in- 
tervalo for 3. a nota mais baixa — 12 
— deve ficar cinco notas abaixo da no- 
la da melodia. Se for 2. a nota mais bai- 
xa pode ficar quatro ou cinco notas 



As linhas 10 a 80 iniciam o progra- 
ma, en carregando -se de solicitar o an- 
damento, chamar as sub-rotinas de ini- 
cialização e criar as variáveis K0 a K5, 
que terão valores de 0 a 5. Nas seções 
do programa onde a velocidade é mui- 
to importante (linhas 90-200), substitui- 
remos os números por variáveis, já que 
as variáveis são manipuladas mais rapi- 
damente que as constantes. Nessa parte 
do programa, todos os espaços entre os 
comandos devem ser removidos. 

A sub-rolina da linha 3000 estabele- 
ce as características iniciais do coman- 
do PLAY. Note que cada canal é trata- 
do separadamente. 

A sub-rotina da linha 4000 coloca na 
matriz Q% os números das notas. O co- 
mando PLAY pode utilizar número no 
lugar de notas, o que facilita bastante 
o cálculo da harmonia. Uma tabela de 
conversão de notas em números se en- 
contra na página 1015. 

A sub-rotina da linha 5000 cria duas 
matrizes, TA e TB, para definir os in- 
tervalos característicos da escala C 
maior, possibilitando, assim, o cálculo 
dos acordes. TA contém os números das 
notas da escala: TB. a posição da nota 
na escala. As duas matrizes permitem 
que o número da nota seja obtido a par- 
tir da posição da nota na escala e vice- 
versa. o que é importante para o cálcu- 
lo automático da harmonia. 

O laço principal do programa vai da 
linha 90 à 200. A linha 100 lê o valor da 



abaixo, o que é decidido pela linha 
130. 

As linhas 140 a 160 definem os cor- 
dões que servirão de operando à instru- 
ção PLAY da linha 1 70. O valor da no- 
ta original é dado por PV, obtido das 
linhas DATA. O valor das duas notas 
restantes é calculado como auxílio da 
matriz TA, que converte a posição da 
nota na escala em seu valor real. 

Observe que os números das notas 
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nas linhas DATA estão codificados con- 
forme a escala geral. A matriz Q% é 
usada para convertê-los nos números 
efetivamente utilizados por PLAY. Os 
intervalos são operandos do mesmo co- 
mando — utilizados junto com a letra 
L — e não precisam ser convertidos. 



O programa que apresentaremos ago- 
ra especifica as notas tocadas por cada 
um dos canais. Como será possível qual- 
quer combinação, deixaremos para o lei- 
tor os cuidados com a harmonia. 

A música fica armazenada em linhas 
DATA, como de costume. Cada uma 
das linhas deve conter as notas do acor- 
de juntamente com sua duração. Note 
que, muitas vezes, acordes consecutivos 
são muito parecidos, diferindo apenas 
pela nota de uma das vozes. 
1(1 INPUT -ANDAMENTO (1-50) " i Tf 
Z0 IF TP<] THEN 10 
30 AS = "T"+STHS (INT (32+2Z3/TP) ) : 
PLAY AS, AS. AS 
40 FOR 1=1 TO 48 
50 HEAD AS. BS.CS. D 
60 AS = "L" + STRS(INTÍl+6.VDJ)-f03 
•+AS 

70 BS-"[." + STHS (INTCI+63/D) )+"03 
"+B$ 

BO CS="L"+STRS(tNT{l+63/D))+"03 
"4C8 

90 PLAY AS.BS.CS 
100 NEXT 

1000 DATA E.02G.02C.6 
1010 DATA D.02B.02G.6 
1020 DATA C,02G,02E.12 
1030 DATA E.02G.02C6 
1040 DATA D.02B.02G.6 
1050 DATA C.O2G.02E.12 
1060 DATA G.D.02B.6 
1070 DATA F.C.02A.4 
1080 DATA F.C.02A.2 
1090 DATA E.02G.02C.1Z 
1100 DATA G.D.02B.6 
1110 DATA F.02B.02G.4 
11 20 DATA F.02B.02G. 2 
1130 DATA E.C.02A, 10 
1140 DATA G.C02A.2 
1150 DATA 04CE.02G.4 
1160 DATA 04C,E,02G,2 
11/0 DATA B.D.02F.2 
1180 DATA A,D,02F,2 
1190 DATA B.D.02F.2 
1200 DATA O4C.E.02G.4 
JZ10 DATA G,E,02G,2 
1220 DATA G.F.02B.4 
1230 DATA G,F,02B,2 
1240 DATA 04C.E.02G.2 
1250 DATA O4C.E.02G.2 
1260 DATA O4C.E.02G.2 
1270 DATA B.F.02G.2 
1280 DATA A.F.02G.2 
1 290 DATA B. F ,02G, 2 
1300 DATA 04C,E,02G,4 
1310 DATA G.E.02G.2 
1320 DATA G.D.02F, 2 




COMO MODIFICAR O TIMBRE 

Além de produzir acordes, o MSX é 
capaz de modificar bastante as carac 
terisiicas do som obtido, fazendo-o fi- 
car parecido com um instrumento es- 
pecifico, por exemplo. 

Par3 isso, é necessário recorrer aos 
registros do PSG que determinam a 
curva envoltofia do som. Trataremos 
detalhadamente desse assunto em i 
artigo futuro. 



1330 DATA G.D.02F.2 
1340 DATA G.D.02F.2 
1350 DATA 04C.C.02E.4 
1360 DATA 04C.C.02E.2 
1370 DATA B. D.02F, 2 
1.380 DATA A.D.02F.2 
1390 DATA B.D.02F.2 
1400 DATA 04C.E.O2G.2 
1410 DATA G.E.02G.2 
1420 DATA G,E,02G,2 
1430 DATA G.O2B.02F.4 
1440 DATA F.02B.O2F. 2 
1450 DATA E.C.02G.6 
1460 DATA D.02B.02G.6 
.1.470 DATA C.O2E.02C.12 

As linhas 10 e 20 encarregam-se do 
andamento. A linha 30 inicializa a fun- 
ção PLAV. A linha 50 lê as notas do 
acorde e sua duração nas linhas DATA. 
Esses dados são convertidos em operan- 
dos de instrução macromusical nas li- 
nhas 60 a 80. A linha 90 emite, efetiva- 
mente, o acorde. 

Ao laço FOR. ..NEXT cabe evitar 
que uma mensagem de erro do tipo 
"OUT OF DATA"* interrompa a melo- 
dia. 



Até aqui, utilizamos apenas a função 
PLAV para executar peças musicais. 
Contudo, o MSX dispõe de outro co- 
mando musical, muito mais versátil: 
SOUNI). As características básicas des- 
se comando foram explicadas no artigo 
da página 168. Sua função é alterar o 
conteúdo dos registros do gerador pro- 
gramável de som (PSG). 

Para usarmos o comando SOUND 
na produção de sons musicais, precisa- 
mos saber os valores que devem ser co- 
locados em seus registros para produzir 
as notas. Para isso, consulte a tabela de 
conversão que está na página 1015. 

O programa a seguir toca acordes de I 
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É possível adaptar os demais micro- 
computadores para a produção de 
acordes? 

Os micros que não dispõem de um 
processador especial de som podem 
produzir, entre outros efeitos sonoros 
interessantes, acordes semelhantes 
aos obtidos nos computadores da linha 
MSX. Para isso, é necessário combinar 
a frequência das diversas notas, o que 
requer o emprego de linguagem de 

A técnica utilizada tem muita seme- 
lhança com as que foram explicadas 
nos artigos Efeitos sonoros no Spec- 
irum (página 5561 e Appie e TK-2000: 
efeitos sonoros (página 712J. Embora 
não tenhamos abordado o assunto em 
INPUT, o mesmo pode ser aplicado ao 
micro TRS-Color. 



duas notas. Os dez acordes iniciais da 
música Greensleeves estão listados nas 
linhas DATA. A melodia completa po- 
de ser obtida no artigo da página 816. 

10 FOR 1-0 TO 10 
20 READ ArSOUND I.A 
30 NEXT 

40 DATA 0.0.0.0,0,0,0,56,15,15 
0 

50 FOR 1=1 TO 10 

60 READ A, B.C, D, E 

70 5OUND0.B:SOUNDT ,A 

80 S0UND2,D:S0UND3,C 

90 FOR J-l TO 10*E:NEXTJ.I 

100 PUS "05"iEND 

1]0 DATA 0,253.0.253,10 

120 DATA 0.213.0.253,30 

130 DATA 0,189.0.213,10 

140 DATA 0,169,0,213,15 

150 DATA 0,159,0,213.5 

160 DATA 0.169,1,28,10 

170 DATA 0.189,1,28.30 

1B0 DATA 0,225.0.225.10 

190 DATA 1 .28,0.225. 15 

200 DATA 0.253,0,225,5 



MELODIAS SIMULTÂNEAS 



O programa a seguir possibilita a exe- 
cução de melodias simultâneas. Ele per- 
mite que os dados correspondentes a ca- 
da uma das vozes sejam armazenados 
em linhas DATA separadas. A melodia 
poderá, inclusive, ter uma velocidade di- 
ferente do acompanhamento. 



Os dados para cada uma das três vo- 
zes devem terminar pelo par de valores 
99,99. As outras linhas DATA contem 
os valores das notas e suas respectivas 
durações. Cada linha DATA equivale a 
dois compassos. Para executar uma me- 
lodia com apenas duas vozes, basta co- 
locar um segundo par 99,99 logo após 

0 final dos dados da segunda voz. 

O programa traz a melodia Three 
Blincl Mice (Os Três Ratinhos Cegos) em 
um arranjo de três vozes mostrado no 
diagrama da página 1012. 
10 R=RND { -TIME) 

20 INPUT "Andamento (.1-50) ";TP 

30 GOSUB 3000 

40 GOSUB 4000 

50 GOSUB 5000 

80 Kl-1 :K2-2:K3-3 

100 P1 = 0 : P2 = 0 : P3 = 0 

110 GOSUB 1000 

1 20 GOSUB 1.100 
130 GOSUB 1200 
140 FOR 1=1 TO 192 

150 TF T1099THENT1-T1-K1 : IFT1- 

KOTHENP)=P1 + K2-C!OSUB1000 

160 TF T2<>99THENT2=T2-K1 : IFT2- 

K0THENP2<*P2+K2:GOSUBU0O 

170 IF T3 0 99THENT3-T3-K1 ; IFT3- 

K0THENP3=P3+K2 : GOSUB 1200 

180 FOR DL=1 TO TP : NEXT 

190 NEXT 

200 PI.AY "05":EMD 

1000 Tl -DA* (KJ ,P1+K1) 

1010 PU-DAÍ (Kl ,P1) :TFPU=990RPV= 

KOTHENRETURN 

10 20 SOUND0 , LQt ( PU) rSOUNDl , Hg.» ( 
PU) 

1030 RETURN 

I 100 T2-DAI (K2.P2+K1) 

1110 PU=DA* (K2 . P2) :TFPV-990RPU-= 

K0THENHETURN 

1120 SOUND2 , LQÍ ( PU) : SOUND3 , Hf)* ( 
PU) 

11.30 RETURN 

1200 T3-DAÍ (K3.P3+KI) 

1210 PU-DA* (K3 , P3) : IFPU-990RPU= 

KOTHENRETURN 

1220 SODND4 . LQÍ (PV) : SOUND5 . HQt ( 
PU) 

1230 RETURN 
3000 FOR 1=0 TO 10 
3010 READ AiSOUND I.A 
3020 NEXT 

3030 DATA 0,0,0,0.0,0,0.56,15,1 
0, 10 

3140 RETURN 

4000 D1M HQÍU7) ,LQ*<37) 

4010 TM=853:P2=2-(1/12) 

4020 FOR 1>1 TO 37 

4030 L(JÍ(T)"TM-2S6*TNT(TM/256) : 

HQ*(I)=TM/256 

4040 TM=TM/P2 

4050 NEXT : RETURN 

5000 DIM DAÍ (3. 1000) 

5010 FOR UN-1 TO 3iP = 0 

5020 READ DAÍ (UN , P) : READ DAÍ (UN 

,P+L1 

5030 P-P+2 

5040 IF DAl(VN.P-2)=99 THEN NEX 
T UN 



5050 

5060 

10000 

10010 

10020 

10030 

.20,2 

10040 

24.2 

10050 

22.2 

0,2 

10060 

24,2, 

10070 

100B0 

20000 

20010 

20020 

200 30 

20040 

20050 

20060 

20070 

200B0 

30000 

3 00 10 

30020 

300 30 

30040 

30050 

30060 

30070 

30080 



TF UN<4 THEN 5020 
RETURN 
DATA 17.6,15,6.13.12 
DATA 1 7 , 6 . 1 5 . 6 , I .1 . 1 2 
DATA 20,6, 18.4, 18,2. 17, 12 
DATA 20.6.18,4.18,2,17,10 

DATA 25,4,25,2,24.2.22,2, 
25.4,20.2,20,4.20, 2 

DATA 25,2.25,2.25,2.24.2, 
24,2.25,4,20,2.20.2.20.2.2 

DATA 25.4,25,2,24.2.22,2. 
25,2.20,2, 20.2.20,4, 18.2 
DATA 17,6.15.6.13.12 
DATA 99.99 
DATA 8.6,12.6,8,12 
DATA 8,6,12,6.8.12 
DATA 15.6. 1.3.6, B, 12 
DATA 15.6,12.6,13.12 
DATA 17,6.15.6.17.6.18.6 
DATA 17,6.18,6.17,6,15.6 
DATA 13,6.15.6,17,6,12.6 
DATA 13.6.12,6.5.12 
DATA 99,99 
DATA 1.6.8.6.5.12 
DATA 1.6,8.6,5,12 
DATA 12,6.10,6.1.12 
DATA 12.6,8,6,10,12 
DATA 8,6.6,6,8.6, 12,6 
DATA B. 6, 8, 6. B, 6, 6, 6 
DATA 5,6.6.6,8.6.6,6 
DATA 8.6,8.6,1.12 
DATA 99,99 



As linhas 10 a 80 dão início ao pro- 
grama. Encarregam-se de definir o an- 
damento, chamar várias sub-rotinas e 
determinar as variáveis Kl. K2 e K3. que 
substituem os números 1 , 2 e 3 onde a 
velocidade for crítica. 

A sub-rotina 3000 acerta a configu- 
ração inicial do PSG. ativando-o para 
a produção de notas musicais nos três 
canais disponíveis. A primeira voz terá 
volume mais elevado que as demais. 

A sub-rotina 4000 coloca nas matri- 
zes LQ% e HQ% os valores dos bytes 
menos significativo e mais significativo, 
correspondentes às frequências das no- 
las musicais. Isso permite que as notas 
sejam definidas pelo seu número na es- 
cala geral, e não pelos complicados va- 
lores dos registros do PSG. 

A sub rotina 5000 lê os valores e du- 
rações das notas em linhas DATA, co- 
locando-os na matriz DA% (3.1000). O 
primeiro índice corresponde ao núme- 
ro da voz, o segundo, à posição da no- 
ta na melodia. Esla será lida e depois 
executada, ao contrário dos programas 
apresentados anteriormente. PI, P2 e 
P3 funcionam como apontadores de ca- 
da uma das vozes. 

A sub-rotina das linhas 1000 a 1030 
toca uma nota no canal A; PI aponta 
o par de dados corrente que especifica 
nota e duração; Tl é o contador que 
controla a duração da nota. 
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A linha 1010 coloca em PV o valor 
da nota. Se esse valor for 99, o progra- 
ma chegou ao fim dos dados referentes 
ao canal A; se for zero, trata-se de uma 
pausa. Em ambos os casos, a sub-roti- 
na termina numa instrução RETURN. 
Nas demais situações, a linha 1020 co- 
loca os bytes calculados com o auxílio 
de HQ% e LQ% nos registros adequa- 
dos do gerador programável de som, 
usando o comando SOUND. As sub- 
rotinas 1 1 00 e 1 200 executam as mesmas 
operações nos canais BeC 

A linha 100 acerta os ponteiros para 
começar a leitura de DA%. As linhas 
110 a 130 chamam as sub-rotinas 1000, 
1100 e 1200 pela primeira vez. 



O FOR.. .NEXT entre a linha 140 e 
a linha 200 constitui o laço principal do 



programa. A linha 1 50 testa o contador 
Tl, que contém o valor da duração da 
nota corrente no canal A: um valor 99 
indica o fim dos dados. Se Tl tiver ou- 
tro valor, é diminuído em uma unida- 
de. Quando chegar a zero, a execução 
da nota terá terminado e outra será ob- 
tida pela sub-rotina 1000. Enquanto o 
valor zero não for atingido, a nota con- 
tinua soando. 

As linhas 150 e 160 executam a mes- 
ma operação nas duas outras vozes. A 
linha 170 provoca um atraso proporcio- 
nal ao andamento. Na linha 200, a ins- 
trução PLAV "05" é utilizada para in- 
terromper a música. 

Observe que, quando utilizamos o 
comando PLAV, as durações eram de- 
finidas por durações de nota. Já com o 
SOUND, os valores são proporcionais 
à duração desejada para cada nota. 

Para terminar, apresentamos as mo- 
dificações que precisam ser feitas no 



programa que calcula a harmonia auto- 
mática de acordes para que funcione 
com o comando SOUND: 



V) 

150 SOUND 2 , LQt (TA (IH) ) : SOUND 3 . 
HQ1 (TA(Ilt)) 

160 S0UND4.LQÍ (TA(I2t) ) : S0UND5 . 
HO.» (TA(I2t) ) 

170 FOR DL-1 TO (SI -TP) MO/T : NE 
XT 

200 NEXT : PLAY "05":END 
3000 FOR 1 = 0 TO .10 
3010 READ AíSOUND I , A 
3020 NEXT 

3030 DATA 0.0,0,0,0,0,0,56,15.1 
0,10 

4000 DIM HQt ( 37) , LQt (37) 

4010 TM=B53:P2=2" (1/12) 

4020 FOR 1-1 TO 37 

4030 LQ»<I)=TM-256*INT(TM/256) : 

HQt(I)=TM/256 

4040 TM-TM/P2 



TABELA DE CONVERSÃO PARA O MSX 



Escala 
gera 
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225 


48 
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ODUOGOS 




A criação de jogos de guerra no 
computador é uma atividade 
simplesmente fascinante. Aprenda as 
técnicas envolvidas e depois mobilize 
seu micro para esta batalha de INPUT. 



Embora fossem conhecidos há milha- 
res de anos, os jogos de guerra ( Warga- 
mes) eslavam restritos, até há bem pou- 
co tempo, aos quartéis-generais e esco- 
las militares, devido à exigência de ta- 
buleiros imensos e à grande quantidade 
de peças necessárias para representar as 
forças em conflito. O advento dos com- 
putadores permitiu que se popularizas- 
sem, já que a máquina confina toda a 
massa de dados em sua memória, utili- 
za a tela gráfica como mapa e pode até 
fazer o papel de jogador. 

Esses jogos desenvolveram-se origi- 
nalmente como elemento de apoio ao 
ensino de estratégia militar. Hoje, sua 
reprodução no computador tem seduzi- 
do uma multidão de usuários. E, embo- 
ra o objetivo principal de um jogo de 
guerra seja sempre a eliminação do ini- 
migo, ele se relaciona muito mais. quan- 
to à diversão proporcionada, ao xadrez 
do que a um videogame de ação, cheio 
de tiros e pistolas laser. 

Durante um jogo de guerra, a tela do 
micro exibe um mapa da região de ba- 
talha, indicando, em geral, as posições 
dos dois inimigos. O computador pos- 
sibilita uma simulação da realidade mui- 
to mais fiel que a proporcionada pelos 
jogos tradicionais, na medida em que 
nos dá a chance de posicionar nossas 
forças sem que o inimigo as veja. As 
unidades só se tornam visíveis quando 
efetivamenie descobertas. 

Porém os jogos que os estrategistas 
utilizam costumam envolver os mínimos 
detalhes de uma guerra — o que não te- 
mos condições de fazer em um compu- 
tador doméstico. 

Alguns jogos de computador são des- 
tinados exclusivamente a adversários 
humanos. O programa que apresenta- 
mos em INPUT, porém, permite que 
você jogue contra seu micro. 



Uma guerra consiste em mover "uni- 
dades de combate" (em geral, soldados, 
mas, também, tanques ou canhões) até 
a posição do inimigo, para tentar sub- 
metê-lo ou destruí-lo. 

Os ingredientes básicos de um jogo 
de guerra são as duas forças adversárias. 



seus movimentos e o combate entre as 
unidades. Com isso em mente, já pode- 
mos planejar o jogo. A batalha será na 
terra, no mar ou no ar? Queremos um 
jogo estratégico em larga escala, com 
muitos exércitos envolvidos; um jogo tá- 
tico entre dois exércitos em um único 
campo de batalha; ou só escaramuças 
entre combatentes individuais? 

O período da História em que se dá 
a guerra também é importante, pois de- 
termina o tipo de tecnologia bélica e as 
características dos combatentes. Pode- 
mos recriar batalhas famosas, como as 
travadas por Napoleão em território rus- 
so, ou inventar nossa própria guerra 
dando asas à imaginação. 

O passo seguinte consiste na defíi 
ção das regras do jogo. Elas determina- 
rão as circunstâncias que ajudarão ou 
prejudicarão cada um dos oponentes, 
estendendo-se aos menores detalhes in 
cluidos no jogo. Você pode querer, por 
exemplo, que os soldados tenham a op- 
ção de usar armaduras. Isso os protege- 
rá durante a luta, mas, em compensa- 
ção, tornará mais lento o movimento de 
avanço ou de retirada. 

É muito tentador enriquecer o jogo 
com mil detalhes, aproximando-o ao 
máximo da realidade. Porém o tamanho 
da memória limita a quantidade de de- 
talhes e a complexidade das regras. Con- 
vém, assim, manter a atenção sobre os 
pontos principais: 

• Local: informações, na forma de ma- 
pas, a respeito do local onde se encon- 
tram as tropas e do tipo de terreno da 
região — como afeta o movimento e que 
tipo de proteção oferece. 

• As tropas: quantos homens são; que 
tipo de munição e proteção usam; a que 
velocidade se locomovem. 

• Movimento: que distância uma unida- 
de poderá se mover; como o tipo de ter- 
reno afetará o movimento. 

• Comandos: definir como serão dadas 
as ordens e se as tropas poderão deso- 
bedecê-las ou não. 

• O computador como inimigo: definir 
se a máquina será mais ou menos inteli- 
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geme, variando, 2 
culdade do jogo. 



• Combale: tipo de combate — balísti- 
co ou corpo-a -corpo; tipo de projétil — 
de simples flechas até mísseis intercon- 



Uma vez escolhidos o tipo e os com- 
ponentes da guerra e o período históri- 
co cm que cia ocorre, precisamos deter- 
minar como tudo isso será representa- 
do no micro. Devemos considerar dois 
aspectos: o ponto de vista do jogador e 
o do computador, e como o jogo será 
apresentado a cada um deles. 

Nesta série de cinco artigos tentare- 
mos mostrar as técnicas básicas de pro- 
gramação criando em seu micro um jo- 
go que denominaremos Capa e Espada. 
Ele consiste em uma batalha tática en- 
tre dois exércitos do período medieval. 
Essa guerra, contudo, não se passa em 
nenhuma data definida. 

Como a maioria dos jogos de guer- 
ra. Capa e Espada mostra na tela um 
mapa. com a disposição das tropas e os 
acidentes geográficos da região. Os jo- 
gadores (no caso, você e o computador) 
agem como comandantes das unidades, 
devendo tomar as decisões estratégicas 
bem como dar as ordens relativas ao 
comportamento da tropa. 

Instruções mais detalhadas serão for- 
necidas no quarto artigo desta série, 
quando o programa estiver completo. 
De um modo geral, cada jogador pode 
escolher entre dar ordens ou deixar as 
tropas como estão. O jogo se desenrola 
com os jogadores movimentando seus 
comandados pelo campo de batalha, al- 
ternadamente, a fim de organizar a dis- 
posição das forças. Esse movimento po- 
de ou não resultar em conflito. O efeito 
dos eventuais choques entre as unidades 
é determinado pelo tipo e pelo poder das 
tropas envolvidas — além de uma pita- 
dinha de sorte. O jogo continua até que 
um dos exércitos tenha sido praticamen- 
te destruído. 

O programa mostrará as informações 
gráficas relevantes — o mapa com os 
exércitos — continuamente, reservando 
uma porção da tela para textos. 

Usaremos blocos gráficos para criar 
o mapa, de maneira que instruções do 
tipo PRIÍNT possam controlar tanto o 
mapa como a área de textos. No caso do 
TRS-Color, os blocos gráficos serão de- 
finidos por instruções DRAW na tela 
de alta resolução, como lemos feito na 
maioria dos programas de INPUT. Uti- 
lizaremos também uma rotina para im- 
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primir textos na tela gráfica. No Apple 
e no TK-2000, instruções POKE contro- 
larão o mapa, enquanto o texto ficará 
nas quatro linhas inferiores. 

Neste jogo há quatro tipos de terre- 
no: campo aberto, vilas, florestas e 
montanhas. Empregaremos espaços em 
branco para representar o campo — 
portanto, não será preciso um bloco grá- 
fico especial. Usaremos dois tipos de 
bloco para represeniar as montanhas e 
um tipo para cada terreno restante. 

Os exércitos terão oito unidades de 
combate: o líder e seus cavaleiros, os no- 
bres vassalos (sargentos), duas unidades 
de lanceiros, duas de arqueiros e duas 
de camponeses. As duas primeiras uni- 
dades, formadas por nobres, requerem 
blocos gráficos diferentes. Para cada par 
de unidades restantes será usado um 
mesmo caractere duas vezes. 

Teremos, assim, nove blocos gráfi- 
cos: número um, vila; dois, florestas; 
três e quatro, montanha; cinco, o líder 
(representado por uma bandeira); seis, 
sargentos (representados por uma ma- 
ça — arma medieval composta por um 
cabo com corrente e uma bola de ferro 
na ponta); sete, lanceiros (um escudo); 
oito, arqueiros (arco e flecha) e nove, 
camponeses (espada). 



OS BLOCOS GRÁFICOS 



Os programas listados a seguir criam 
os blocos gráficos descritos acima. 




210 for k=l TO 9 

220 READ aS 

230 FOR 1-0 TO 7 

24 0 READ a 

260 POKE USB aS+I.a 

270 NEXT T 

290 NEXT K 
2540 ft EM Limpa tela de texto 
2550 FOR k=17 TO 21: PRINT AT k 
.0;" 

- ! NEXT k 
2570 DATA "a" . 16 . 1 6 , 60 , 126 , 255 . 
189,231 ,231 

2590 DATA "b" , 16 , 56, 84 , 16. 56 . 84 
. 146. 16 

2610 DATA "t:",B.20.34,65,6.8.16 
.224 

2630 DATA "d" , 0 , 48 , 72 , 1 32 . 2 , 0 . 0 
.0 

2650 DATA "e" , .1.28. 240 . 255 . 252 , 1 
43. 128. 128, 128 

267(1 DATA "f " , 64 , 240 . 72 . 68 . 68 , 6 
8,78,68 

26<)0 DATA "«".255.231,231.129.1 
29.231 . 102,60 

2710 DATA "h". 249, 70, 38. 25. 9, 5, 

3,1 

2730 DATA " i " , 1 , 2 . 4 . 8 , 1 6 . 160 . 64 
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nu 



200 SCREEN 1,2: KEY OFF: COLOU 1, 
15, IS 

210 FOR 1=0 TO 71 
220 BEAD A 

225 UPOKE BASE (7)+192*8+I ,A 
2.10 VPOKE BASE(7)+208*8+I.A 
2.15 VPOKE BASE[7)+224*8+l,A 
240 UPOKE BASE(7)+240*8+r,A 
24 5 NEXT 

250 FOR 1-0 TO 1 
260 VPOKE BASE(6)+24+T, 4*16+15 
265 UPOKE BASE(6)+Z6+I, 6*16+15 
270 UPOKE BASE<6)+28+T, 12*16+15 
280 NEXT 

290 UPOKE BASE(6)+30, 13*16+15 
2570 DATA 16.16.60.126.255,189, 
231.231 

2590 DATA 16.56.84,16.56.84,146 

.16 

2610 DATA 8,20.34,65.6.8.16.224 
2630 DATA 0,48,72,132.2.0.0.0 
2650 DATA 128,240,255,252.143,1 
28. 128,128 

2670 DATA 64.240.72,68,68.68,78 
,68 

2690 DATA 255,231.231,129,129,2 
31,302.60 

2710 DATA 249.70,38.25,9,5.3,1 
2730 DATA 1.2,4.8,16,160,64,160 



[ffiES 



210 EE = 768:T = 16384: FOB I = 

EE TO EE + 30 * 8 - 1 
220 BEAD A: POKE I . A 
230 NEXT 

2570 DATA 64,64,80,84,85,17,2 
1.21 

2575 DATA 0,0,2,10,42.34,42.4 
2 

2580 DATA 0.32,40,8,32,40,10. 
2 

2585 DATA 1,5,21.17.5,21,81.6 
5 

2590 DATA 64,48,12,3,0,0.112, 

15 

2595 DATA 1.6,24,96,120,7,0,0 
2600 DATA 64, 48, 12, 3, 0,0, 0,0 
2605 DATA 1,6.24.96.0.0,0,0 
2610 DATA 129,149.213.213,193 
, 129, 129,129 

2615 DATA 128,128,138.130,138 
.128,128.128 

2620 DATA 132.149.196.132,132 
.132, 196. 132 

2625 DATA 128,128.128.130,130 
.130,138,130 

2630 DATA 213,149,149,129,149 
.148.208,192 

2635 DATA 170,170,1.70,160,170 
,138,130,128 

2640 DATA 192,192.192.208.196. 
193, Z13. 128 

2645 DATA 128,128.126.130.136. 
160.170,128 

2650 DATA 128.128.128,196.212 
. 148, 149, 145 

2655 DATA 160,168,138,130,128 
■,128,128,128 

■2660 DATA 128.128,168,160,168 



,128.128,128 

2665 DATA 192.212,213,213.193 
,192,192,192 

2670 DATA 128.126,128,160,160 
.160,168,160 

2675 DATA 144.212,145,144,144 
,144, 145 . 144 

2680 DATA 170.170,170,130,170 
,168, 160, 128 

2685 DATA 213,212,212,192,212 
, 148, 133, 129 

2690 DATA 128, 128. 12B, 160, 136 
,130,170,128 

2695 DATA 129,129.129,133,14 
5,193.213,128 

2700 DATA 130.138,168.160,128 
,128,128,128 

2705 DATA 128,128,128,145,149 
,146,212,196 

2710 DATA 0,0,0.0.0,0,0,0 
2715 DATA 0.0,0,0,0,0,0.0 



210 FOR K=l TO 9 
220 READ AS 
230 UCS(K)-AS 
290 NEXT K 

2570 DATA BRZD2L2D5RU2R3D2B3U4L 
2UL2DZ 

2590 DATA BR2R3DRDLDL2ND4L JU2EO 
DL3 

2610 DATA BD3E2R2UD2RFGLG3 
2630 DATA BD3E2RF3 
2650 DATA ND7FR2FD5UNR3L2 
2670 DATA ND7FR4DNR2DNFL3UR2 
2690 DATA R5ND6DL5D5R3DL 
2710 DATA NR3DRF6U4LHE2DL 
2730 DATA BR 7G7E2UNF3H2DB 

Todos os programas incluem várias 
linhas DATA, utilizando-as de uma for- 
ma diferente para a criação dos blocos 
gráficos. O Speetrum coloca seus blo- 
cos nos caracteres 124 a 133. O MSX usa 
a tela de texto de 32 colunas. Não re- 
correremos à tela gráfica porque não va- 
mos empregar comandos de alta reso- 
lução, e é mais fácil escrever na tela de 
textos. 

As linhas que vão de 210 a 245 dese- 
nham os blocos gráficos na tabela de pa- 
drões. Cabe às linhas 250 a 280 colori- 
los. São feitas quatro cópias dos nove 
blocos, uma de cada cor. Embora os 
blocos de terreno e os dois exércitos te- 
nham cada qual uma só cor é mais fácil 
criar todos os blocos com as quatro co- 
res do que definir as cores de blocos in- 
dividuais. 



No Apple e no TK-2000, montamos 
os blocos gráficos com POKE, em vez 
de usar o comando DRAW. Fizemos is- 
so para economizar memória, pois se- 
riam necessários muitos bytes para de- 



finir uma tabela com tantas figuras. O 
banco de blocos ficará armazenado em 
uma região normalmente não utilizada 
da página três — assim, não ocupará es- 
paço disponível ao BASIC. Na realida- 
de, serão criados dezoito blocos, dois 
para cada unidade ou terreno, já que, 
para obter cor, só usamos colunas pa- 
res ou ímpares. Para maiores detalhes 
sobre esse tipo de bloco gráfico, veja os 
artigos das páginas 489 e 507. 



As linhas que se seguem são utiliza- 
das para a impressão de mensagens no 
vídeo do micro. 



2540 BEM Limpa tela de texto 
2550 FOR k-17 TO 21: PBINT AT k 



2540 REM Limpa área de t< 
2550 FOR 1=576 TO 767 
2555 UPOKE BASE(5)+I.32 
2560 NEXT ! RETURN 



HE] 



2540 REM LIMPA 

2545 HOME ! GOSUB 30000 

2550 RETURN 



2540 REM LIMPA JANELA DE TEXTO 
2550 PMODE 0,4: PCLSO : PMODE 3.1 
2560 RETUBN 

O programa trata a tela como duas 
"janelas" — uma de textos, ocupando 
uma pequena área do vídeo, e outra grá- 
fica, contendo o mapa da região e a dis- 
posição das tropas adversárias. 

No desenvolvimento do jogo, a jane- 
la de textos precisará ser limpa e rees- 
crita com frequência. A janela gráfica, 
porém, é mais constante, exigindo ape- 
nas pequenas alterações nas posições das 
unidades. 

Todos os microcomputadores, com 
exceçào do Apple e do TK-2000, tratam 
a tela como uma unidade, de maneira 
que essas rotinas se encarregam de apa- 
gar exclusivamente a área de textos, dei- 
xando o mapa intacto. 

No próximo artigo da série que aqui 
iniciamos veremos como desenhar o ma- 
pa da batalha e movimentar as unida- 
des que se confrontam. 
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■ 


MOVIMENTAÇÃO DA FIGURA 


■ 


EXPANSÃO, CONTRAÇÃO 


E ROTAÇÃO 



A construção de imagens gráficas no 
computador é, quase sempre, um 
processo dificit. O Projeto Assistido 
pelo Computador (PAC) poderá 
simplificar bastante o seu trabalho. 



Existem sistemas destinados a facili- 
tar a elaboração de desenhos cujos com- 
ponentes se repetem muitas vezes. O 
projeto de um supermercado, por exem- 
plo, exige que se distribua, da melhor 
forma possível, uma série de objetos 
idênticos — prateleiras, refrigeradores 
etc. — em uma certa área. Esse tipo de 
sistema, denominado Projeto Assistido 
pelo Computador (PAC), pode se apre- 
sentar com vários níveis de sofisticação. 
Mas, qualquer que seja seu grau de com- 
plexidade, o PAC baseia-se em duas 
operações básicas: traçar retas e remo- 
delar figuras prefixadas. 

Este artigo irá ajudá-lo a construir 
duas versões simples de um PAC. 




A técnica que examinaremos agora 
reproduz a maneira mais simples de se 
executar um desenho com o auxílio de 
um lápis e uma régua. 

Primeiro, fazemos o traço inicial. De- 
pois, a partir de uma das extremidades 
desse traço, desenhamos outra reta e as- 
sim por diante, sempre ligando a ponta 
do último segmento a um ponto imagi- 
nário. No computador, fixamos um 
ponto na tela e levamos o cursor até a 
posição onde um segundo ponto será fi- 
xado. Este irá determinar a reta que de- 
ve ser traçada. 

Para facilitar ainda mais o processo, 
o computador traça uma reta a cada no- 
va posição definida pelo cursor, apagan- 
do a anterior. Ao chegar à posição de- 
finitiva, o usuário digita algum tipo de 
código destinado a impedir que o com- 
putador apague a última linha, deixan- 
do-a fixa na tela. Em seguida, pode-se 
movimentar o cursor para outro ponto 
qualquer. 

Experimente fazer desenhos com o 
programa que se segue. 



10 BORDER 0: PAPER 0: INK 7: 
CLS 

15 LET inicio=80: LET eatica= 
130: LET desenha-ZlO : LET fix 
a-240 

17 DE) AU 0,175: DP.AW 255,0: 

DRAW 0,-175: DRAW -255,0 

20 GOSUB inicio 

40 GOSUB estica 

50 IF INKEYSO"q" THEN GOTO 
40 

60 STOP 

90 OVER 1 
100 LET x-128: LET y-86 
115 PLOT x.y 
120 RETURN 

140 IF INKEYS"" " THEN GOSUB 

fixa: GOTO 150 

145 GOSUB desenha 

150 IF INKEYS=*l" THEN LET x- 

x-1 

160 IF INKEYS="x" THEN LET x- 
x+1 

170 IF INKEYS" "k" THEN LET y- 

y+1 



180 IF INKEYS-"m" THEN LET y- 
y-1 

190 GOSUB desenha 
200 RETURN 

220 PLOT x,y: DRAW x-PEEK 
23677 , y-PEEK 23678 
230 RETURN 

250 OVER 0: GOSUB desenha 
255 OVEH 1 
280 RETURN 



10 PCLEAR 8:PMODE 4 . 5 : PCLS : PMOD 

E 4,1: PCLS : SCREEN 1.1 

20 V-247:CX-127:CY-95:X-127:¥-9 

5 

30 GOSUB 100 

40 FOR K-l TO 4:PCOPY K+4 TO K: 
NEXT 

50 IF PEEK(33B)<>191 THEN 30 
60 CLS : END 

100 IF PEEK(345}-V GOSUB 300 
110 IF PEEK(341)-V AND Y>0 THEN 
Y-Y-l 

120 IF PEEKÍ3421-V AND Y<191 TH 
EN Y=Y+1 
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130 IF PEEK(343)-V AND X>0 THEN 

140 IF PEEK(344)-V AND X<255 TB 
EN X-X+l 

200 LINE(CX,CY)-<X,Y) , PSET 
210 RETURN 
300 GOSUB 200 

310 FOR K-l TO 4:PCOPY K TO K+4 
:NEXT 

320 CX-X:CY-Y 
330 RETURN 



5T 



GET AS 
IF AS * " 
: GOTO 110 
HCOLOft- 0: 



130 IF AS - 
EN Y - Y + 2 
140 IF AS - 

Y - Y - 2 
155 IF AS - 
160 HCOLOR- 



- 96 :X - CX:Y - 

THEN CX - X:CY 
HPL0T CX.CY TO 
AND X > 1 THEN 
AND X < 278 TH 
AND Y < 190 TH 
AND Y > 1 THEN 



El] 



103 
X.Y 



GET AS 

IF AS - * " THEN CX = X:CY 
: GOTO 110 
HC0L0R= 0: HPLOT CX , CY TO 



130 IF ASC(AS)=31 AND Y<191 THE 
N Y=Y+2 

140 IF ASC(AS)-30 AND Y>1 THEN 
Y-Y-2 

160 LINE (CX,CY)-(X.Y) ,11 
170 GOTO 100 

O funcionamento do programa é bem 
simples. Ele fixa um ponto no centro da 
tela e outro em uma posição determina- 
da por quatro teclas — Z (esquerda), X 
(direita), K (acima) e M (abaixo). O AP- 
PLE usa ; (acima), . (abaixo) e S (para 
interromper o programa). Os microcom- 
putadores das linhas MSX e o TK-2000 
utilizam as teclas de controle do cursor 
(flechinhas). 

Uma reta é traçada continuamente 
entre os dois pontos assim determina- 
dos. Quando alcançar sua posição defi- 
nitiva, ela será fixada na tela, bastando, 
para isso, que se pressione a barra de es- 
paço. Você poderá, então, prosseguir 
em outra direção, usando as mesmas 
quatro teclas. 

Digite agora estas linhas adicionais 
para conseguir o efeito de tirar o lápis 
do papel. 



15 LET inicio-SO: LET estica= 

130: LET de B enha=210: LET fix 

a=240: LET apaga=210 

1 7 GOSUB apaga 
144 IF INKEY5- "d" THEN GOSUB 
apaga: GOTO 150 
310 CLS 

320 DEI AU 0,175: DRAU 255,0: 
DRAU 0,-175: DRAU -255,0 
330 GOSUB inicio 
340 RETURN 



IF AS - CHRS (6) AND X > 
1 THEN X = X - 2 

120 IF AS - CHRS (21) AND X < 

27B THEN X - X + 2 
130 IF AS - CHRS (113) AND Y 
< 190 THEN Y - Y + 2 
140 IF AS - CHRS (112) AND Y 
> 1 THEN Y-Y-2 
155 IF AS - " 
160 HCOLOR= 3 
X.Y 

170 GOTO 100 



D 



105 IF PEEK ( 339) "1 91 THEN PM< 
4.5: PCLS : PMODE 4,1 

301 AS^INKEYS 

302 AS-INKEY$:IF AS-"" THEN 
304 IF AS-"D" THEN 320 
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150 IF AS - 



10 SCREEN 2 

20 CX=128:CY-96:X-CX:Y»CY 

100 AS=INKEYS:IF AS=*" THEN 100 

103 IF ASO" " THEN LINE (CX.CY 

)-(X,Y),4 ELSE CX-X:CY=Y 

110 IF ASC(AS)-29 AND X>2 THEN 

. 120 IF ASC(AS)=28 AND X<255 THE 
N X-X+2 



Agora, ao pressionar a tecla D, a úl- 
tima linha traçada será apagada. O pon- 
to onde o cursor se encontra será defi- 
nido como inicial. 



MONTAGEM DE UM DESENHO 



Alguns tipos de PAC apresentam em 
um menu várias figuras previamente de- 
finidas. Se o problema fosse a decora- 
ção de uma casa, por exemplo, o menu 
incluiria os desenhos de móveis, esqua- 
drias e outros elementos, que seriam 
transportados para a tela e ajustados à 
vontade ao projeto do decorador. Para 
tais ajustes, é possível recorrer a amplia- 
ções, reduções e rotações. 

O programa a seguir oferece, em seu 
menu, cinco figuras geométricas. Elas 
podem ser fixadas na tela e manipula- 
das de acordo com as instruções acres- 
centadas após a listagem. 



10 B0RDER 0: PAPER 0: INK 7: 
OVER 0: CLS 

15 LET inicio=100: LET pick- 
270: LET posicao=430: LET aod 
ifica-490: LET seta-390: LET 
desenha=640: LET Eixa=700: 
LET limpa-750: LET checa-820 : 
LET tnang-B60: LET quadr-930 
: LET retang-1010: LET pent= 
1090: LET hex-llBO 
17 GOSUB 1 impa 



40 GOSUB pick 

50 GOSUB poaicao 

60 GOSUB moòif ira 

70 IF INKEYSO"g" THEN GOT 

40 
80 STOP 
110 OVER 0 

120 LET x-30: LET y-50: LET : 
1-0: LET Hcal-1 
130 LET mex=120: LET flag=0: 
LET aelec*Q 

140 LET c-Bcal*COS (phi) 
150 LET a-acal*SIN (phi) 
170 LET tx-32: LET ty-25: 
GOSUB tnang 

190 LET tx-70: LET ty=25 : 
GOSUB guadr 

210 LET tx-120: LET ty-25 
GOSUB retang 

220 LET tx-180: LET ty-25 
GOSUB pent 

230 LET tx'230: LET ty-25 
GOSUB hex 
240 OVER 1 
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i PRINT OVER Li INK 6 ; AT 20 

:x/8;""" 

i BE TU RN 

< GOSUB Beta 

i GOSUB checa 

i IF CODE INKEYS=8 THEK LET 
i IF CODE INKEYS=9 THEN LET 
I GOSUB seta 

l IF INKEYS-"a" THEN LET fl 
'1 

I IF flag=0 THEN GOTO 300 
I GOSUB aeta 

I BE TU RN 

I PRINT INK 6; OVER 1 : AT 20 



-"k" THEN LET y- 



THEN LET y- 



570 IF INKEYS 
Y+3 

580 IF INKEYS 
Y-3 

590 IF INKEY3-"n" THEN LET ac 
al=acal"l.l 

600 IF INKEYS-" )" THEN LET BC 
al-scal/l.l 

610 IF INKEYS-'h" THEN LET ph 
i-phi+{6*PI/180) 

620 IF INKEYS""b* THEN LET ph 

i-phi-(6*PI/180) 

630 RETURN 

645 LET tx-x: LET ty-y 

650 IF aalec-l THEN GOSUB tri 



770 DRAW 0,175: DRAW 255,0: 
DRAW 0,-175: DRAW -255,0 
780 GOSUB inicio 
790 RETURN 
620 BEM checa 

830 IF INKEYS-"c" THEN GOSUB 

840 P IF INKEYS-"e" THEN BTOP 

850 RETURN 

860 BEM triang 

870 PLOT INVERSE l;tx.ty 

880 PLOT -7*B+PEEK 23677, 6*c* 

PEEK 23678 

890 DRAW -6*c+ll»B.-5*8-9"c 
900 DRAW 12*c,10*a 
910 DRAW -6*c-11*h,-5*3+9«c 
920 RETURN 




450 IF »ex>-40 AND mex<;70 THEN 

LET aelec-2 
460 IF aex>-70 AND mex<150 
THEN LET aelec-3 
465 IF mex>-150 AND aex<180 
THEN LET aelec-4 
470 IF mex>-180 THEN LET Bele 
c-5 

480 RETURN 

510 IF INKEYS--C THEN GOSUB 
limpa: GOTO 517 
515 GOSUB desenha 

517 IF INKEYS-" * THEN GOSUB 
fixa: GOTO 520 

518 GOSUB desenha 

520 LET c-Bcal*COS (phi) 

540 LET s-acal*SIN (phi) 

550 IF INKEYS"" 2* THEN LET x- 

x-3 

560 IF INKEYS-"x" THEN LET x- 



660 IF aelec-2 THEN GOSUB <jua 
dr 

670 IF aelec-3 THEN GOSUB ret 

GOSUB pen 

680 IF eelec-5 THEN GOSUB hex 
685 FOR n-1 TO 30: NEXT n 
690 RETURN 
700 HEM fixa 

710 FOR n-1 TO 100: NEXT n 

714 IF INKEY3»"d" THEN OVER 1 

715 IF INKEYSO-d" THEN OVER 



730 GOSUB il 
740 RETURN 
760 CLS 



930 BEM quadr 
940 PLOT INVERSE l;tx,ty 
950 PLOT 6*c-6*b+PEEK 23677,5* 
3+S*c+PEEK 23678 
960 DRAW -12*c,-10*a 
970 DRAW lZ*a,-10*c 
980 DRAW 12*C, 10*a 
990 DRAW -12*B,10*c 
1000 RETURN 
1010 REM retana 
1020 PLOT INVERSE litx.ty 
1030 PLOT 12*c-6*a+PEEK 23677.1 
0*g+5*c+PEEK 23678 
1040 DRAW -24*c,-20*B 
1050 DRAW 12*3, -10*C 
1060 DRAW 24*c,20*a 
1070 DRAW -12*B,1G*C 
1080 RETURN 
1090 REM pent 

1100 PLOT INVERSE 1 ; tx,-ty 
1110 PLOT -10-B+PEEK 23677. 9*c+ 
PEEK 23678 

1120 DRAW -10"c+7*B,-8*s-6*c 
1130 DRAW 4*c+13*a.3*a-ll*c 
1140 DRAW 12*c,10*a 



PROGRAMAÇÃO BASIC 



1150 DRAU 4*c-13*s, 3*a+ll»c 
1160 DRAU -10*c-7"s,~8*a-t-6*c 
1170 RETURN 
1180 BEM hex 

1190 PLOT INVERSE litx.ty 
1200 PLOT -12*3+PEEK 23677, 10*c 
+PEEK 23676 

1210 dhaw -10*c+6*a,-8*3-5*c 

1220 DRAU 12*a,-10*e 

1230 DHAW 10*c+6*o,8*s-5*c 

1240 DRAU 10*c-6*a,8*B+5*c 

1250 DRAU -12*s, 10*C 

1260 DRAU -10*c-6*a.-8*3+5*c 

1270 RETURN 

O programa funciona da maneira 
abaixo descrita: 

A sub-rotina início, compreendida 
entre as linhas 1 10 e 260, define os va- 
lores de algumas variáveis e desenha as 
figuras- padrão na parte mais baixa da 
tela, chamando, para tanto, as sub-ro- 
tinas necessárias. 

Da linha 300 à linha 380, o compu- 
tador lê as teclas que movem a seta pa- 
ra a direita e para a esquerda e a tecla 
S, que faz com que a figura escolhida 
apareça no centro da tela. 

As linhas 400 e 410 (sub-rotina sela) 
reimprimem a seta toda vez que uma te- 
cla é pressionada. 

As unhas 440 a 480 compõem a sub- 
rotina posição. Ela checa a posição da 
seta em relação às figuras e define a va- 
riável "figura". 

A sub-rotina modifica encontra-st 
entre as linhas 510 e 630. A figura esco- 
lhida é redesenhada de acordo com as 
teclas pressionadas. Ela pode ser movi- 
mentada usando-se as teclas Z, X, K 
M; N e J ampliam e reduzem a figura; 
H e B promovem a rotação no sentido 
horário e anti-horário. A barra de espa- 
ço fixa a figura na tela. 

As figuras são desenhadas pela com- 
binação das sub-rotinas desenha, entre 
as linhas 645 e 690, com as sub-rotinas 
que contêm a fórmula de cada uma de- 
las. A variável "figura" indica ao com- 
putador qual destas será usada. 

A sub-rotina fixa, entre as linhas 710 
e 740, fixa a figura na tela quando a te- 
cla D é apertada. Nas linhas 760 a 790 
está a sub-rotina limpa, que é chamada 
quando se pressiona C. 

A sub-rotina checagem — linhas 820 
a 840 — verifica se a tecla E foi aciona- 
da para interromper o programa. 



10 PCLEAR 8:PMODE 4 , 5 : PCLS : PMOD 
E 4,1: PCLS : SCREEN 1,1 
20 GOSUB 1000 
30 GOSUB 2000 
. 40 GOSUB 3000 
50 GOSUB 4000 



70 1F 1NKEYS<>"Q" THEN 40 
80 CLS : END 

1000 X*-20:Y«131:PH-0:SC-1 

1010 ME-122:ST-0:V1-247:V2=253 

1020 C-SC: 3=0: COLOR 5 

1030 X-40:Y-177:GOSUB 5000 

1040 X-80:Y=174:GOSUB 5100 

1050 X-120:GOSUB 5200 

1060 X-160:Y-17Q:GOSUB 5300 

1070 X-200:GOSUB 5400 

1060 FOR K-l TO 4:PCOPY K TO K+ 

4 : NEXT 

1090 X-127:Y=85 
1100 RETURN 

2000 COLOR 0:GOSUB 2500 
2010 AS-INKEYS:GOSUB 4500 
2020 IF AS-CHRS<8) AND ME>32 TH 
EN ME-ME-10 



4040 S=SC*S!tN<PH) 
4050 IF PEEK043) 
4060 IF PEEK (3.44) 
4070 IF PEEK(341) 
4080 IF PEEM342) 
4090 IF PEEK ( 343) 
«1.1 

4100 IF PEEM344) 
/l-l 

4110 IF PEEK C 34 1 ) 

+ATN(l)/7.5 

4120 IF PEEK ( 342) 

-ATNUJ/7.5 

4130 FOR K-l TO 4 

: NEXT 

4150 IF PEEK(33B) 

N ELSE 4000 

4500 IF AS-CHRSU 



-VI THEN X-X-l 
-VI THEN X-X+l 
=V1 THEN Y-Y-l 
=V1 THEN Y-Y+l 
-V2 THEN SC-SC 

=V2 THEN SC-SC 

V2 THEN PH-PH 

V2 THEN PH-PH 

PCOPYK+4 TO X 

-VI THEN RETUR 

2) THEN PCLS:G 




2030 IF AS=CHR3(9) AND ME<212 T 

HEN ME=ME+10 

2040 COLOR 5:GOSUB 2500 

2050 IF ASO"S" THEN 2000 

2060 COLOR 5:GOSUB 2500 

2070 RETURN 

2500 DRAU"BM"+STRS (ME) +" , 190U5N 
G2F2* 

2510 RETURN 

3000 SL=5:IF ME<192 THEN SL-4 
3010 IF MEC152 THEN SL-3 
3020 IF ME<102 THEN SL-2 
3030 IF ME<62 THEN SL-1 
3040 RETURN 

4000 ON SL GOSUB 5000,5100.5200 
,5300 , 5400 

4010 IF PEEK(339)=191 THEN PCLS 
:GOSUB 1000 : RETURN 
4020 I F PEEK(345)=V1 THEN FOR K 
=1 TO 4:PC0PY K TO K+4 : NEXT : RET 
URN 

4030 C=SC*COS(PH) 



OSUB 1000 

4510 IF AS-"Q" THEN CLS : END 
4520 RETURN 

5000 LINE(X-7.2*S.Y-7.2*C)-(X-6 
*C+3.6*S,Y+6*S+3.6*C) ,PSET 
5010 LINE -(X+6*C+3.6*S,Y-6*S+3 
.6*C) ,PSET 

5020 LINE-(X-7.2*S.Y-7.2«C) , PSE 
T 

5030 RETURN 

5100 LINE(X+6*C-6»S,Y-6*S-6*C)- 
<X-6*S-6*C,Y+6*S-6*C) .PSET 
5110 LINE - <X+6»S-6*C,Y+6*S+6*C 
) , PSET 

5120 LINE - {X+6"S+6*C, Y+6*C-6"S 
) , PSET 

5130 LINE - {X+6*C-6*S, Y-6*S-6*C 
) . PSET 
5140 RETURN 

5200 LINE (X+12*C-6«S,Y-6«C-12* 
S)-(X-12*C-6*S.Y-6*C+12"S) , PSET 
5210 LINE -{X-12*C+6*S,Y+6*C+12 
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*S) ,PSET 

5220 LINE -(X+12*C+6*S,Y+6*C-12 
*S) .PSET 

5230 LINE -{X+12*C-6*S.Y-6»C-12 
*S) . PSET 
524 0 RETURN 

5300 LINE (X-10.2«S,Y-10.2»C)-( 
X-9.8*C-3. Z«S, Y-3. 2*C+9. 8*S) .PS 
ET 

5310 LINE - (X-6*C+1Q. 2*S , Y+10 . 2 
*C+6*S) . PSET 

5320 LINE - (X+6*C+10. Z*S.Y+10. 2 
*C-6"S) . PSET 

5330 LINE -<X+9.B*C-3.2*S.Y-3.2 
*C-9.B*S) i PSET 

5340 LINE - (X-10 . 2*S. Y-10. 2*C) , 
PSET 

5350 RETURN 

5400 LINE(X-12*S,Y-12*C)-(X-10. 
4*C-6*S,Y-6*C+10.4*S) . PSET 
5410 LINE -(X-10.4*C*6*S.Y+6*C+ 
10.4*S) ,PSET 

5420 LINE - (X+12«S. Y+12*C) . PSET 
5430 LINE -(X+10.4*C+6*S.Y+6*C- 
10-4*S) ,PSET 

5440 LINE - (X+10 .4*C-6*S , Y-6*C- 
10.4*S) .PSET 

5450 LINE - (X-12*S,Y-12*C) , PSET 
5460 RETURN 



PH - 0 : SC ■ 1 
1010 ME - 122 
1020 C - SC:S 
1030 X - 40:Y 



40:Y - 177: GOSUB 5000 
80:Y - 174: GOSUB 5100 



4010 GET AS 

4015 HCOLOB- 0: ON SL GOSUB 50 
00,5100,5200.5300,5400 
4020 IF AS * " " THEN HCOLOB- 
3: ON SL GOSUB 5000.5100.5200. 
5300.5400: RETURN 



AND ME < 212 

I 

"S" THEN 2000 



1070 X - 200: GOSUB 5400 
1090 X - 127:Y - 65 
1100 RETURN 

2000 HCOLOB- 3: GOSUB 2500 
2005 GET AS 
2010 HCOLOB- 0: 
2020 IF AS - "2 
HEN ME - ME - 1C 
2030 IF AS - "K 
THEN ME - ME + 1 
2050 IF AS < S 
2070 BETUBN 
2500 HPLOT ME. 190 TO ME, 182 TO 

ME - 5.185: HPLOT ME.1B2 TO ME 

+ 5.185 
2510 BETURN 

3000 SL - 5: IF ME < 192 THEN S 
L - 4 

3010 IF ME C 152 THEN SL - 3 
3020 IF ME < 102 THEN SL - 2 
3030 IF ME < 62 THEN SL - 1 
3040 RETURN 

4000 HCOLOB- 3: ON SL GOSUB 50 
00,5100,5200,5300,5400 



SC * 
i SC * 
IF AS - 

IF AS * 

IF AS - 

IF AS - 

IF A$ - 

IF AS - 



4050 
3 

4060 

3 

4070 
3 

4060 
3 

4090 

« t.l 
4100 
/ 1.1 

4110 IF AS - "K 
+ ATN tl) / 7.5 
4120 IF AS - "L 
- ATN (1) / 7.5 
4140 IF AS - "C 



COS (PH) 
SIN (PH) 
"2- THEN X 



- X ■ 



"X" THEN X - X + 
" ; " THEN Y - Y - 
* . " THEN Y - Y + 
-M" THEN SC - SC 
"li" THEN SC - SC 
"K" THEN PH - PH 
THEN PH = PH 
THEN GOTO 10 
THEN TEXT : 



4145 IF AS - ' 
END 

4150 GOTO 4000 

5000 HPLOT X - 7.2 * S.Y - 7.2 
» C IO X - 6 « C * 3.6 * S.Y + 
6 « S + 3.6 * C TO X + 6 » C t 
3.6 * S.Y - 6 * S + 3.6 * C 
5010 HPLOT X+6«C+3.6*S 
,Y-6*S+3.6*CTOX-7.2 

* S.Y - 7.2 * C 
5030 BETURN 

HPLOT X+6*C-6"S,Y 
*S-6*CTOX-6*S- 
C,Y + 6*S-6*CTOX + 
S - 6 * C,Y + 6 * S + 6 « 




10 HGR2 

20 GOSUB 1000 

40 GOSUB 2000 

50 GOSUB 3000 

60 GOSUB 4000 

70 GOTO 20 

1000 HCOLOR- 3:X ' 



20:Y - 131 
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5140 RETUBN 

5200 HPLOT X+12*C-6*S. 

Y - 6 « C - 12 » S TO X - 12 » 
C ■ 6 * S,Y - 6 * C + 12 * S TO 

X-12*C+6*S.Y+6*C+ 
12 » S 

5210 HPLOT X-12«C+6"S, 

1 + 6 * C + 12 « 8 TO X + 12 * 
C + 6 * S,Y + 6 » C - 12 * S TO 

X+12«C-6« S.Y - 6 * C - 
12 « S 
5240 BE TU RN 

5300 HPLOT X - 10.2 * S.Y - 10 
.2 * C TO X - 9.B * C - 3.2 * S 
,Y-3.2*C+9.6*STOX-6 
» C + 10.2 • S.Y + 10.2 * C + 
6 * S 

5310 HPLOT X-6*C+10.2* 
S.Y + 10.2 *C+6*STGX + 6 

■ C + 10.2 * S.Y + 10.2 * C - 
6*STOX+9.B*C-3.2*S, 

Y - 3.2 * C - 9.8 * 3 

5320 HPLOT X + 9.8 • C - 3.2 * 
S,Y - 3.2 * C - 9.8 * 5 TO X - 
10.2 * S.Y - 10.2 * C 

5350 RETUBN 

5400 HPLOT X - 12 * S.Y - 12 * 

C TO X - 10.4 « C - 6 * S.Y - 
6 * C + 10.4 * S TO X - 10.4 * 
C+6 * S.Y + 6 * C + 10.4 * S 
TOX+12*S.Y+12*C 
5410 HPLOT X + 12 * S.Y + 12 * 

C TO X + 10.4 * C + 6 * S.Y + 
6 • C - 10.4 * S TO X + 10.4 * 
C - 6 * S.Y - 6 * C - 10.4 * S 
5420 HPLOT X + 10.4 * C - 6 * 
S.Y - 6 * C - 10.4 * S TO X - 1 

2 * S.Y - 12 • C 
5460 RETUBN 



E] 



O programa do TK-2000 é igual ao 
do Apple, com estas modificações: 

2020 IF A5 » CHBS (8) AND ME 

> 32 THEN ME = ME - 10 

2030 1F AS - CHRS (21) AND ME 

< 212 THEN ME - ME + 10 

4050 IF AS - CHBS (8) THEN X 
- X - 3 

4060 IF AS - CHBS (21) THEN X 
- X + 3 

4070 IF AS - CHRS (1.12) THEN 
Y - í - 3 

4080 IF AS - CHBS (113) THEN 



10 SCREEN 2 
20 GO SUB 1000 
40 GOSUB 2000 
50 GOSUB 3000 
60 GOSUB 4000 
70 GOTO 20 

1000 COLOB 14:X-20:Y-131:PH-0:S 
C-l 



1010 ME-122 
1020 C-SC:S-0 

1030 X-40:Y-177:GOSUB 5000 
1040 X-80:Y-174:GOSUB 5100 
1050 X-120:GOSUB 5200 
1060 X-160:Y-170:GOSUB 5300 
1070 X-200:GOSUB 5400 
1090 X-127:Y-85 
1100 RETUBN 

2000 COLOB 14:G0SUB 2500 

2005 AS-INKEYS:IF AS""" THEN 20 

05 

2010 COLOB 4:GOSUB 2500 

2020 IF AS-CHRS(29) AND ME>32 T 

HEN ME-ME-10 

2030 IF AS<=CHRS(2B) AND ME<212 
THEN ME-ME+10 
2050 IF AS<>"S" THEN 2000 
2070 RETUBN 

2500 DRAWBM" + STRS (ME) + " , 190U5N 
G2F2" 

2510 BETUBN 

3000 SL-5:IF ME<192 THEN SL-4 
3010 IF ME<152 THEN SL = 3 
3020 IF ME<102 THEN SL-2 
3030 IF ME<62 THEN SL-1 
3040 RETUBN 

4000 COLOB 14:ON SL GOSUB 5000. 

5100.5200,5300.5400 

4010 AS=INKEYS:IF AS-"" THEN 40 

10 

4015 COLOR 4:ON SL GOSUB 5000.5 
100,5200.5300,5400 
4020 IF AS-" " THEN COLOB 14:ON 
SL GOSUB 5000,5100.5200.5300.5 
400:BETURN 
4030 C-SCCOS(PH) 
4040 S-SCSIN(PH) 
4050 IF AS-CHR$<29) THEN X-X-3 
4060 IF AS-CHRS(28) THEN X-X+3 
4070 IF AS»CHBS(30) THEN Y-Y-3 
40B0 IF AS-CHBS(31) THEN Y-Y+3 
4090 IF AS="M" THEN SC-SC*1.1 
4100 IF A$-"N" THEN SC-SC/1.1 
4110 IF AS-"K- THEN PH-PH+ATNU 
)/7.5 

4120 IF AS-"L" THEN PH-PH-ATNU 

1/7.5 

4140 IF AS-"C" THEN CLS:GOTO 20 
4145 IF AS-"F" THEN COLOR 15:EN 
D 

4150 GOTO 4000 

5000 LINE <X-7.2*S,Y-7.2*C)-(X- 

6*C+3 . 6*S . Y+6"S+3 . 6*C) 

5010 LINE -(X+6"C+3.6*S.Y-6«S+3 

.6«C) 

5020 LINE -(X-7.2*S,Y-7.2*C) 
5030 BETUBN 

5100 LINE (X+6*C-6*S,Y-6*S-6*C) 

- (X-6*S-6*C , Y+6*S-6«C) 

5110 LINE -(X*-6*S-6«C.Y+6*S+6*C 

) 

5120 LINE - (X+6*S+6*C.Y+6*C-6«S 
) 

5130 LINE - (X+6*C-6«S,Y-6»S-6»C 

) 

5140 BETURN 

5200 LINE (X+12*C-6*S,Y-6*C-12* 

3)-(X-12*C-6*S.Y-6*C+12*S> 

5210 LINE -(X-12«C+6*S.Y+6«C+12 

*3) 

5220 LINE - (X+12«C+6*S,Y+6*C-12 



5230 LINE -(X+12*C-6"S.Y-6*C-12 
*S) 

5240 BETUBN 

5300 LINE (X-10 . 2*S, Y-10 . 2*C) - ( 
X-9.8*C-3.2*S,Y-3.2*C+9.8«S) 
5310 LINE -(X-6*C+10.2«S.Y+10.2 
*C+6*S) 

5320 LINE -(X+6*C+10.2«S,Y+10.2 
■C-6*S) 

5330 LINE -(X+9.B»C-3.2*S.Y-3.2 
*C-9.8*S) 

5340 LINE -(X-10. 2'S. Y-10. 2*C) 
5350 BETURN 

5400 LINE <X-12*S,Y-12*C)-(X-10 

.4«C-6*S,Y-6*C+10.4"S) 

5410 LINE -(X-10.4*C+6«S.Y+6*C+ 

10.4*S) 

5420 LINE - (X+12*S,Y+12*C) 
5430 LINE -(X+10.4"C+6*S.Y+6*C- 
10.4*8) 

5440 LINE -(X+10.4«C-6«S,Y-6«C- 
10.4*S) 

5450 LINE - (X-12*S,Y-12*C) 
5460 RETUBN 

A inicialização encontra-se entre as 
linhas 1000 e 1100, onde uma série de 
variáveis são definidas. As linhas 2000 
a 2070 compreendem a sub-rotina encar- 
regada de selecionar a figura. A seta é 
movimentada para a direita e para a es- 
querda através das teclas de controle (o 
Apple usa as mesmas teclas do progra- 
ma anterior). 

As linhas 3000 a 3040 identificam a 
figura que está sendo apontada pela se- 
ta, de acordo com a variável ME. Ao 
pressionar a tecla S, a figura escolhida 
aparecerá no centro da tela. 

A sub-rotina de desenho situa-se en- 
tre as linhas 4000 e 4150. A linha 4000 
desvia o programa para a sub-rotina que 
contém as instruções para desenhar a fi- 
gura escolhida. A linha 4020 fixa a fi- 
gura na tela se a barra de espaço for 
acionada. 

As linhas 4090 e 4100 verificam se as 
teclas M e N foram pressionadas, am- 
pliando ou reduzindo o desenho. A op- 
ção final é a rotação — linhas 4110 e 
4120. As teclas K e L controlam a dire- 
ção (para a esquerda e para a direita) em 
que será executada. 

Ao pressionar C (<CLEAR> no 
TRS-Color), a tela será apagada, fican- 
do pronta para o desenho seguinte. 

As sub- rotinas restantes contêm ins- 
truções para a construção das cinco fi- 
guras. As linhas 5000 a 5030 desenham 
o triângulo; as linhas 5100 a 5140 tra- 
çam o quadrado; as linhas 5200 a 5240, 
o retângulo; as linhas 5300 a 5350, o 
pentágono e as linhas 5400 a 5460, o he- 
xágono. 

Tome cuidado para que seu desenho 
não saia da tela, o que poderia acarre- 
tar a interrupção do programa e uma 
mensagem de erro. Para interromper o 
programa, pressione F. 
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COMO OBTER 0 EFEITO 


DE UM "TIRO LASER" 


■ 


MOVIMENTOS DO CONE 


■ 


PAUSAS 


■ 


CONTROLE DA DURAÇÃO 



LDA 
STA 
LDA 
STA 
LDX 
NOP 
NOP 
NOP 
NOP 
DEX 
BNE 
INC 
LDA 
STA 
LDX 
NOP 
NOP 
NOP 
NOP 
DEX 
BNE 
DEC 
BEQ 
JMP 
RT3 



♦ SOO 

3FE 

1300 

3C030 
SFF 



S032F 
SFF 

• soo 

SC030 
SFF 



3033F 
SFE 
S034D 
30328 



cam nova pausa, agora com duração 
proporcional ao conteúdo de SFE. 

Ao contrário do que aconteceu na li- 
nha 150, a instrução DEC SFE subtrai 
uma unidade do conteúdo da posição 
SFE, fazendo com que, na próxima vez, 
a pausa seja menor. 



A instrução BEQ FIM termina o pro- 
grama quando o conteúdo de $FE for 
reduzido a zero. O final da rotina ocor- 
re com o desvio para o rótulo FIM, que 
contém a instrução RTS. Enquanto 
houver um número maior que zero em 
SFE, a instrução JMP LOOP faz o la- 
ço entre as linhas 60 e 270 ser repetido. 



Os usuários do Apple e do TK-2000 
já aprenderam a utilizar rotinas em 
código de máquina para produzir sons 
em seu micro. Verão agora como 
criar efeitos sonoros mais complexos. 



No artigo da página 712, explicamos 
como contornar as limitações dos micros 
das linhas Apple e TK-2000 para que 
produzam sons. Examinaremos aqui a 
criação de efeitos mais sofisticados. 

Com a rotina que se segue obtemos 
um ruído que pode ser utilizado como 
"tiro laser" em um jogo de ação. O tru- 
que consiste em combinar um som que 
vai se tornando mais agudo com outro 
que fica cada vez mais grave. 

UE] 

10 OP.G BOO 

20 LDA 1300 

30 STA SFF 

40 LDA «SOO 

50 STA SFE 

60 LOOP LDA «300 

70 STA 3C030 

BO LDX SFF 

90 PAUSEA NOP 

100 NOP 

110 NOP 

120 NOP 

130 DEX 

140 BNE PAUSEA 
150 INC 3FF 
160 LDA «SOO 
170 STA SC030 
180 LDX SFF 
190 PAUSEB NOP 
200 NOP 
210 NOP 
220 NOP 
230 DEX 

240 BNE PAUSEB 
250 DEC SFE 
260 BEQ FIM 
270 JMP LOOP 
280 FIM RTS 
290 END 

QD 

Para o míni-Assembler do TK-2000, 
a listagem é a seguinte: 

0320- LDA «300 
0322- STA SFF 



0324 
0326 
0328 

032A 
032D 
032F 
0330 
0331 
0332 
0 33 3 
0 3 34 
0 3 36 
0338 
0 3 3A 
0 3 3D 
0 3 3F 
0 340 
0341 
0 34 2 
034 3 
0 34 4 
0 34 6 
0 34 8 
0J4A 
034D 

Depois de estabelecido o endereço 
inicial, as quatro primeiras instruções 
colocam o valor zero nas posições $FF 
e SFE, que servirão como contadores. 
O registro A è usado para isso, porque 
não há no chip 6502 uma instrução que 
coloque um certo valor diretamente em 
um endereço de memória. 



A seguir, o registro A é novamente 
carregado com zero e a instrução STA 
SC030 produz um movimento no cone 
do alto-falante. 

O valor contido na posição de memó- 
ria SFF é, então, colocado no registro 
X e as seis linhas seguintes provocam 
uma pausa com duração proporcional 
àquele valor. Como no programa ante- 
rior, a linha 130 encarrega-se de subtrair 
uma unidade de X e, enquanto este con- 
tador não tiver sido reduzido a zero, o 
laço entre as linhas 90 e 140 vai sendo 
repetido. 

Após essa pausa, a instrução INC 
SFF soma a unidade ao conteúdo da po- 
sição SFF, a fim de que a pausa seguin- 
te seja maior. 

As linhas 160 e 170 produzem nova- 
mente um movimento do alto-falante e, 
logo depois, as linhas 190 a 240 provo- 



Como podemos observar, o programa 
produz movimentos do alto-falante — e, 
portanto, emite som — em duas oca- 
siões: nas linhas 70 e 170. Entre esses 
dois eventos ocorrem duas pausas: uma 
que é rotulada PAUSEA e a outra, PAU- 
SEB. PAUSEA é controlada por SFF e 
vai aumentando de tamanho; PAUSEB, 
por SFE e vai diminuindo de tamanho. 
Combinam-se, dessa maneira, dois sons, 
um com frequência crescente e outro 
com frequência decrescente. 

Na realidade, o laço PAUSEA com- 
pleta 256 voltas na primeira vez, dando 
uma volta a mais cada vez que é executa- 
do. Como o contador SFF só usa um by- 
te, 256 é representado pelo número zero, 
e 0 + 1 = I. Assim, PAUSEA dá uma 
volta na segunda execução e uma volta 
a mais a cada nova execução. Já PAU- 
SEB começa com 256 voltas e vai dan- 
do uma volta a menos a cada execução. 



CONTROLE DA DURAÇÃO 



Para diminuir a duração do efeito so- 
noro, basta retirar alguns comandos 
NOP. Retire quantidades iguais de ca- 
da laço de pausa, pois, do contrário, o 
timbre do som será aJterado. Quem es- 
tiver usando o mini-Assembler precisa- 
rá recalcular os desvios. 
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A listagem que você digitará a seguir 
não faz parte do programa principal. 
Este é composto por quatro rotinas, três 
das quais já publicadas. Apresentare- 
mos a última delas no artigo que encer- 
ra a série Avalanche. 

Este programa e todos os que o se- 
guem, a partir do presente artigo, cons- 
tituem sub-rotinas isoladas que irão' ser 
chamadas pela quarta rotina do progra- 
ma principal. Como esta será montada 
na sequência da terceira rotina, a lista- 
gem que fornecemos aqui começa no en- 
dereço - 11380. Deixamos, assim, um 
espaço reservado para a última parte do 
programa principal do jogo. 

Esta rotina, além de colocar as gai- 
votas na tela, faz com que elas batam 
as asas para cima e para baixo usando 
só duas estruturas de animação. 



ld (-5206), a 
ld b.28 
cp 4 

jr c.gpt 
ld b,32 

OPt pusti br 

ld a.b 

ld hl. (62407) 
ld de, 42 



140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 



add hl.de 

call 77 

inc hí 
add a, 2 
call 77 

ld a.b 

ld hl. {62407) 
ld de, 66 
add hl.de 
puah hl 



DEFINIÇÃO DO VÓ0 



A posição de memória - 5206 con- 
tém a variável de atraso da gaivota, que 
tem a função de impedir que as aves ba- 
tam as asas muito rapidamente. O atra- 
so completo é carregado e incrementa- 
do no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo de maneira adequa- 
da, o atraso da gaivota deve oscilar nu- 
ma faixa restrita. A instrução res 3,a se 
encarrega disso, ajustando o bit 3 do 



acumulador com o valor 0. Analisando 
essa instrução, verifíca-se que a variá- 
vel de atraso será reajustada ao valor 0 
sempre que ela for incrementada com 
um valor superior a 7. Nesse caso, o re- 
sultado do incremento e do ajuste para 
zero é armazenado novamente no ende- 
reço -5206. 

Para dar a impressão de que a gai- 
vota está batendo as asas, utilizamos pa- 
drões de bits para duas gaivotas — uma 
com as asas para cima e outra com as 
asas para baixo. 

Os códigos dos padrões para a pri- 
meira gaivota são 28 e 30, e para a se- 
gunda, 32 e 34. Cada padrão compreen- 
de oito bytes de dados e cada gaivota 
possui dois padrões. 

O registro B é carregado com o códi- 
go do primeiro padrão da primeira gai- 
vota. Depois, o conteúdo do acumula- 
dor — onde ainda está o atraso da gai- 
vota — é comparado com o número 4. 

Uma instrução cp equivale a uma 
subtração cujo resultado não foi arma- 
zenado. O número 4 é subtraído do con- 
teúdo do acumulador, mas não se arma- 
zena o resultado em nenhum lugar. Es- 
sa operação tem a função exclusiva de 
ajustar os indicadores ou balizas (flags). 
Se o atraso da gaivota for menor do que 
4, o indicador chamado carry é ajusta- 
do com o valor 1 ; se for maior ou igual 
a 4, carry nâo é ajustado. 

A instrução jr, c,gpi faz o processa- 
dor saltar para o rótulo gpt se carry foi 
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ajustado com 1. Assim, se o atraso da 
gaivota for menor do que 4, o proces- 
sador salta a instrução seguinte e o có- 
digo 28 permanece em B. 

Se o atraso da gaivota for maior ou 
igual a 4, carry não foi ajustado e o sal- 
to não ocorre. O registro Bé, então, car- 
regado com o código 32, correspondente 
ao primeiro padrão da segunda gaivota 
na tabela de padrões. 



A rotina gpt — incumbida de colo- 
car as duas gaivotas na tela — começa 
armazenando na pilha o código do pri- 
meiro padrão da gaivota que está sen- 
do impressa. Isso é feito porque, como 
temos que imprimir a gaivota duas ve- 
zes, esse código sofrerá alteração duran- 
te a primeira impressão. 

Para imprimir uma gaivota na tela, 
recorremos à rotina 77 da ROM, já uti 
lizada em partes anteriores do jogo. An- 
tes, precisamos ajustar seus parâmetros. 
O acumulador deve conter o código do 
padrão e o par de registros HL, o ende- 
reço na tabela de nomes onde vamos co- 
locá-lo — ou seja, a posição de impres- 
são na tela. 

O código do primeiro padrão da gai- 
vota é transferido do registro B para o 
acumulador. Em seguida, o par HL é 
carregado com o endereço inicial da ta- 
bela de nomes, que está armazenado nos 



endereços 62407 e 62408 da RAM. Adi- 
ei o nando-se o número 42 a esse endere- 
ço, por meio do par de registros DE, ob- 
tém-se a posição na tela da metade ini- 
cial da primeira gaivota. 

Os conteúdos do par de registros HL 
e do acumulador são preservados na pi- 
lha, uma vez que podem ser alterados 
pela rotina 77. Esta é chamada logo em 
seguida e imprime a metade esquerda da 
primeira gaivota. 

O apontador da posição na tela é re- 
cuperado da pilha, voltando ao par HL, 
enquanto o código do padrão retorna ao 
acumulador. Em seguida, o apontador 
em HL é incrementado para indicar a 
posição de impressão da metade direi- 
ta. O número 2 é então adicionado ao 
acumulador, que passa a conter o códi- 
go do padrão da segunda metade. Quan- 
do a primeira gaivota já está na tela, a 
rotina 77 é chamada. 

O código do padrão da metade es- 
querda da gaivota é recuperado da pi- 
lha para o registro B, uma vez que essa 
mesma figura será novamente impressa 
em outra posição. 

O procedimento é análogo ao já des- 
crito, só que a adição do número 68 ao 



endereço inicial da tabela de nomes em 
HL indica a posição de impressão da se- 
gunda gaivota. A rotina 77 é chamada 
duas vezes, uma para cada metade, e o 
endereço da segunda gaivota se comple- 
ta na tela também. 



Para testar a listagem aqui apresen- 
tada, espere a publicação da última ro- 
tina da série Avalanche. Se quiser se an- 
tecipar, digite uma pequena rotina em 
código de máquina que chame a rotina 
deste artigo várias vezes, com um peque- 
no atraso entre cada chamada. Tal atra- 
so pode ser provocado por um laço 
qualquer. Depois disso, carregue a ta- 
bela de padrões e veja as gaivotas ba- 
tendo suas asas. 
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O TRS-80 não conta com comandos para 
a produção de efeitos sonoros. 
Dois pequenos programas em código de 
máquina, porém, permitem a 
criação de diversos sons nesse micro. 



Muitos tipos de jogos e outros pro- 
gramas se tornarão bem mais interessan- 
tes e "profissionais" se você adicionar 
a eles música e efeitos sonoros, como 
ruídos de tiros, explosões, disparos de 
canhões de laser e coisas do género. Na 
verdade, esta é uma das razões pelas 
quais a maioria dos microcompui ado- 
res mais modernos tem comandos espe- 
ciais em BASIC para o controle de sin- 
tetizadores internos de som, como é o 
caso do TRS-Color, do Spectrum, do 
MSX e do TK-2000. 

Os micros compatíveis com a linha 
TRS-80 não contam com esse recurso, 
tão simples de usar. Mas isso não quer 
dizer que seja impossível programar 
efeitos sonoros e musicais nessas máqui- 
nas. Conhecendo alguns truques em lin- 
guagem Assembler, é fácil escrever pe- 
quenas rotinas para adicionar som aos 
seus programas. 



Fazer o programa não é tudo, porém. 
Normalmente, os microcomputadores 
da linha TRS-80 não têm alto-falante in- 
terno, como ocorre com o Apple, e nem 
possuem linha de conexão para o alto- 
falante da TV ou do monitor, como é 
o caso do MSX e do TK-2000. 

Por essa razão, se quisermos produ- 
zir sons nesse micro, devemos utilizar a 
saída para o gravador cassete. Esse re- 
curso vale também para os modelos da 
linha TRS-80 que dispõem de alto- 
falante interno (por exemplo, o Proló- 
gica CP-500), ligado em paralelo com a 
saída para cassete. 



Como é possível produzir efeitos so- 
noros numa saída desse tipo? 

Um gravador de áudio é capaz de re- 
gistrar apenas sons na faixa audível (en- 
tre 200 e 10.000 Hz, com os valores má- 
ximo e mínimo dependendo da qualida- 
de do aparelho). Ora, uma interface es- 
pecial na saída para o gravador trans- 
forma os impulsos binários (0 e I), que 
. constituem a "linguagem" interna do 
I computador, em ondas elétricas com 



frequência compatível. Em outras pala- 
vras, se você colocar uma fita gravada 
com um programa de computador para 
escutar, ouvirá uma "sinfonia" musical 
caótica, que corresponde aos sinais en- 
viados pelo computador. 

Essa interface de conversão digital- 
analógica está conectada internamente 
a uma porta do computador. 

Uma porta é um canal de comunica- 
ção entre o microprocessador e o mun- 
do externo. Em geral, uma porta faz a 
comunicação nos dois sentidos (entra- 
da e saída), mas muitos micros usam de- 
terminadas portas só para um tipo de 
operação. É o caso da porta para gra- 
vador cassete, que é apenas de saída. 

Em consequência, tudo o que neces- 
sitamos fazer para ouvir sons produzi- 
dos pela porta do gravador cassete é co- 
nectar o piugue do fio que normalmen- 
te é utilizado para gravar programas e 
dados (e que é chamado de AUX ou 
MIC) a um sistema de som, dotado de 
amplificador e alto-falante. 

Quem tem um microcomputador da 
linha TRS-80, ou compatível, já dota- 
do de alto-falante interno, não precisa 
nem mesmo tomar essas medidas. 



SONS POR SOFTWARE 



Para acionar uma porta de saída, 
usamos a instrução OUT, em linguagem 
Assembler, que se encarrega de enviar 
um byte para essa porta. 

Para gerar sons com a instrução 
OUT, recorremos à velocidade do códi- 
go de máquina. Tudo o que é preciso fa- 
zer, neste caso, é movimentar alterna- 
damente o cone do alto-falanle para fo- 
ra e para dentro. Se fizermos isso uma 
vez, produziremos um clique do tipo que 
costuma ocorrer quando ligamos um 
aparelho de som. O truque consiste em 
repetir a operação seguidas vezes, e de 
modo bastante rápido. Se os movimen- 
tos forem suficientemente velozes, a su- 
cessão de cliques vai parecer um zum- 
bido. Quanto! mais acelerado for o mo- 
vimento de vaivém do cone, mais agu- 
do será o som obtido. 

Para escrever um programa destina- 
do a criar qualquer tipo de efeito sono- 
ro, é necessário que se conheçam alguns 



fatos básicos sobre a porta do gravador 
do micro TRS-80: 

• A porta de saída do gravador tem o 
endereço 255 (FF em hexadecimal). 

• Apenas o primeiro e o segundo bits do 
byte enviado à porta de saída são usa- 
dos pela interface de conversão. O bit 
zero determina a saída de um impulso 
de som, ao passo que o bit um controla 
o motor do gravador. 

• Quando o bit zero da porta é iguala- 
do a 1, ocorre um impulso audível po- 
sitivo na linha AUX ou MIC do grava- 
dor. Quando o bit zero é igualado a 0, 
ocorre um impulso negativo. 

Portanto, para conseguir uma apro- 
ximação de uma onda sinusoidal (tom 
puro de uma certa frequência) na porta 
de saída, o software deve fazer o seguin- 
te: um impulso positivo é enviado, e um 
pequeno período de espera é introduzi- 
do. Em seguida, um impulso negativo 
é enviado, e novo período de espera de- 
ve ocorrer. 

Ao ser aumentado o período de es- 
pera, a frequência do som gerado sofre- 
rá uma diminuição; se, ao contrário, es- 
se período for reduzido, a frequência 
obtida será incrementada. 

Para produzir um ruído ou qualquer 
outro efeito sonoro diferente, basta va- 
riar os dois intervalos de espera segun- 
do algum padrão (ou, então, aleatoria- 
mente: com isso conseguiremos o cha- 
mado "ruído branco", semelhante ao 
chiado de um rádio). 



Apresentamos a seguir uma sub- 
rotina em linguagem de máquina que 
possibilita a produção de tons puros (bi- 
pes), com frequência e duração indivi- 
dualmente controláveis. 

Para facilitar o uso dessa rotina por 
programas em BASIC, a sub-rotina é in- 
teiramente realocável, e é colocada em 
uma parte protegida da memória por 
uma rotina de inicializaçâo, em BASIC, 
que precisa ser chamada apenas uma 
vez. Uma segunda rotina, também em 
BASIC, invoca a sub-rotina em código 
de máquina, por meio do comando 
USR. 

É possível armazenar a rotina em có- 



um 
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1110 DEFUSRO-IM+1 

2040 I-USRO(CY) : RETURN 

Os programas apresentados funcio- 
nam da seguinte maneira: a rotina de 
inicializaçâo lê os códigos decimais cor- 
respondentes à rotina em linguagem de 
máquina, e os coloca na memória pro- 
tegida por meio do comando POKE. 

Antes de terminar, a rotina define o 
endereço de partida da rotina de máqui- 
na, que é, então, comunicado ao inter- 
pretador (par de apontadores 16526 e 
16527, na versão destinada a gravador 
cassete, e DEFUSR, na versão adapta- 
da para disco). 

Na pequena rotina de produção de 
sons, inicialmente é calculado o núme- 
ro total de ciclos (positivo/negativo) ne- 
cessário para produzir a duração pedi- 
da. Esse valor é armazenado na variá- 
vel CY, que é passada à rotina USR por 
meio de seu argumento. 

A duração total da pausa a ser exe- 
cutada entre os ciclos (N) é também cal- 
culada e fornecida à rotina diretamen- 
te, mediante dois comandos POKE, nos 
pontos onde é necessária. 

A última linha da rotina em lingua- 
gem BASIC se encarrega de chamar a 
rotina em código de máquina, e retor- 
na depois de ser executada. 



TIROS, EXPLOSÕES E CHIADOS 



O próximo programa funciona se- 
gundo o mesmo princípio que o ante- 
rior, só que o intervalo entre as fases po- 
sitiva e negativa da onda sonora é alte- 
rado aleatoriamente a cada instante. Ao 
invés de um som puro (frequência cons- 
tante em toda a duração), esse tipo de 
intervalo produz um impulso de "ruí- 
do branco", que tem como caracterís- 
tica uma mistura de todas as frequên- 
cias (dai seu nome, em analogia com a 
cor branca). Portanto, resta ao softwa- 
re controlar apenas a duração total do 



de um avião a jato). Todos esses efeitos 
têm suas aplicações em programas de 
jogos. 



FUNCIONAMENTO DA ROTINA 



Da mesma maneira que a anterior, a 
sub-rotina é inteiramente realocável, e 
é colocada em uma parte protegida da 
memória por uma rotina de inicializa- 
çâo em BASIC, que precisa ser chama- 
da apenas uma vez. Uma segunda roti- 
na, também em BASIC, invoca a sub- 
rotina em código de máquina, por inter- 
médio do comando USR. 

A versão a seguir destina-se a micro- 
computadores da linha TRS-80 com 
BASIC Nível 11 (para cassete). A rotina 
de inicializaçâo é assim: 

1000 ' ROTINA DE INICIALIZAÇÂO 
1010 IR=49000 
1020 FOR 1-1 TO 26 
1030 READ N:POKE IR+I.N 
1040 NEXT N 

1050 DATA 205,127.10.62.1,211 
1060 DATA 255,237,95,87.71,16 
1070 DATA 254.62,2,211,255,66 
1080 DATA 16.254,43.124,1B1.3Z 
1090 DATA 234,201 
1410 POKE 16527, INT(IR/256) : 
POKE 16526, IR-INT(IR/256)"256+l 
1120 RETURN 

A rotina de produção de sons: 

2000 1 SUBROTINA PARA RUIDO 

2010 N-DR*1000 

2020 I-USR(N) :RETURN 

E um pequeno programa de teste: 

10 "PROGRAMA DE TESTE 
20 GO 9 UB 1000 : ' INICIALIZAÇÂO 
30 CLS:INPUT"DURACAO (S)";DR 
40 GOSUB 2000: GOTO 30 

Finalmente, para rodar o programa 
em micros com Disk BASIC (para dis- 
quete), faça as seguintes modificações: 

1110 DEFUSRO-IR+1 
2040 I-USRO(N) :RETURN 



digo de máquina em uma parte protegi- 
da da memória. Para isso, reinicialize o 
computador e forneça o limite mínimo 
da memória protegida quando ele apre- 
sentar na tela a questão "MEM USA- 
DA?" ou "MEMSIZE?". No exemplo a 
seguir, imaginamos que o computador 
tem 32Kbytes, e fixamos o limite míni- 
mo da memória; assim, a rotina passa- 
rá a ser armazenada na locação 49001. 
Para usar outro limite de memória, al- 
tere o valor da variável IM na linha 1010 
do programa de inicializaçâo. O valor 
sugerido para um computador com 
48Kbytes de RAM seria 65000. 

A versão aqui apresentada funciona 
em microcomputadores da linha TRS-80 
com BASIC Nível II (para cassete): 

1000 ' ROTINA DE INICIALIZAÇÂO 
1010 IM*49000 
1020 FOR 1-1 TO 35 
1030 READ N:P0KE IM+I . N 
1040 NEXT N 

1050 DATA 205,127,10,14,255,6 
1060 DATA 1,237,65,17,29.0,27 
1070 DATA 122,179,32,251,6,2 
1080 DATA 237.65.17,29.0,27 
1090 DATA 122.179.32,251,43 
1100 DATA 124.181.32,227.201 
1110 POKE 16527, INTÍIM/256) : 
POKE 16526. IM-INTÍIM/256) «256+1 
1120 RETURN 

A rotina a ser chamada no momento 
de produção do som é assim: 

2000 ' SUBROTINA PARA SOM 
2010 CY-FQ*DR:N-29483/F(i 
2020 POKE IM+ll,N:POKE IM+23.N 
2030 I-USR(CY) .-RETURN 

Note que a rotina exige dois argu- 
mentos, que devem ser fornecidos pelo 
programa que a chamou: DR é a dura- 
ção, em segundos, e FQ, a frequência do 
som, em hertz (ciclos por segundo). 
Apresentamos a seguir um pequeno pro- 
grama de teste, que exemplifica a ma- 
neira de usar as rotinas anteriores. 

10 'PROGRAMA DE TESTE 
20 GOSUB 1000 : 'INICIALIZAÇÂO 
30 CLSrINPUT-DURACAO (S)";DR 
40 INPUT-FREO.UENCIA (HZ)";FQ 
50 GOSUB 2000 : GOTO 30 

Para rodar o programa em micros 
com Disk BASIC (para disquete), faça 
as seguintes modificações: 



impulso sonoro. Durações muito curtas 
produzem um efeito sonoro semelhan- 
te a um tiro; durações um pouco maio- 
res, algo semelhante a uma explosão, e 
durações muito longas, um chiado que 
lembra a estática de rádio (ou, se você 
quiser, o barulho produzido pelo reator 



Se você quiser usar as duas rotinas em 
linguagem de máquina no mesmo pro- 
grama, altere os endereços de partida 
IM e IR, de modo a evitar superposição 
(por exemplo, se IM =49000, faça 
IR = 49036, no mínimo). m 
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Chegou a hora de desenhar o mapa 
do campo de batalha. Vamos preenchê-lo 
com vilas, florestas e montanhas, 
para, depois, colocar as forças 
inimigas em suas posições iniciais. 



No primeiro artigo desta série sobre 
jogos de guerra, criamos os blocos grá- 
ficos que irão representar as unidades 
militares no campo de batalha. Esses 
símbolos serão colocados e movidos em 
um mapa, para que possamos acompa- 
nhar o desenrolai da disputa e planejar 
nossa estratégia. 



Capa e Espada terá uma matriz para 
representar o mapa. Este permanecerá 
em exibição durante todo o jogo, ocu- 
pando a maior parte do vídeo. 

Como o mapa está sempre na tela, 
poderíamos dispensar a matriz, pois a 
memória de vídeo conterá todas as in- 
formações a respeito do mapa. Convém, 
no entanto, manter esses dados organi- 
zados em uma matriz, mesmo às custas 
de grande quantidade de memória. Se- 
rá muito mais fácil obter e modificar as 
informações na matriz do que na memó- 
ria de vídeo. 

A matriz terá tantos elementos quan- 
tas forem as posições do mapa. Os ma- 
pas dos micros das linhas MSX, TRS- 
Color e Spectrum têm trinta por dezes- 
seis posições; os do Apple e do TK-2000, 
vinte por dezoito. 



Para controlar a posição das tropas 
no mapa e verificar se há obstáculos em 
seu caminho quando as movimentamos, 
precisamos de uma segunda matriz. Es- 
ta não só conterá a posição de cada uma 
das unidades, mas, também, toda e 
qualquer informação referente a elas. 

Em Capa e Espada, a malriz da tro- 
pa conterá ainda informações relaciona- 
das aos combates, ao movimento etc. O 
conteúdo de uma matriz desse tipo de- 
pende da natureza do jogo. Você terá 
melhores informações sobre isso à me- 
dida que formos ampliando o programa. 



DIMENSIONAMENTO DAS MATRIZES 



As linhas seguintes dimensionam as 
matrizes do mapa e da tropa. 



[BEI 



D 



Os valores contidos na malriz do ma- 
pa asseguram que ele tenha o tamanho 
da tela. A matriz da tropa, por sua vez, 
é dimensionada de modo que possa con- 
ter nove tipos de informação a respeito 
de cada uma das dezesseis unidades que 
estão em combate. 



COMO PREENCHER 0 MAPA 



O próximo passo consiste em deter- 
minar os vários tipos de terreno que 
compõem a área mapeada, bem como 
a posição inicial de cada uma das uni- 
dades. Poderíamos ter optado por um 
mapa fixo — o que seria muito impor- 
tante se quiséssemos reproduzir uma ba- 
talha famosa. Porém, é bem provável 
que os jogadores prefiram alterar o cam- 
po de batalha a cada jogo. Para fazê-lo 
sem complicações, utiliza-se o gerador 
de números aleatórios do micro. 

A definição do terreno poderia 
resumír-se a uma simples escolha ao aca- 
so entre os tipos possíveis. Porém, a dis- 
tribuição de florestas e montanhas ge- 
ralmente não é um simples fruto do aca- 
so. Seria interessante que o programa 
pudesse reproduzir um padrão mais pró- 
ximo do real, concentrando montanhas 
ou florestas em certas áreas. 

Durante o planejamento do mapa de 



um jogo de guerra, é importante tam- 
bém considerar o tipo de terreno no qual 
esperamos que se dê a ação. Em Capa 
e Espada, por exemplo, pretende-se si- 
mular uma guerra medieval, com a 
maioria das batalhas sendo travadas em 
campo aberto. Nesse caso, não é inte- 
ressante ter monianhas e florestas demais. 



A ESCOLHA DO TERRENO 



A rotina que listamos a seguir é es- 
sencialmente aleatória, embora haja um 
certo controle sobre a seleçâo, o que aju- 
da a dar uma aparência de maior reali- 
dade ao mapa. 



20 DEF FN r(jt)=INT (RND*X>+1 
800 REM Escolhe terreno 
810 LET R-FN r{50) 
820 IF fi>5 THEN LET B-0 
830 IF R>4 THEN LET R«3: 

RETURN 
840 IF B>1 THEN LET B-2 
650 RETURN 



15 R=RND (-TIME) 

20 DEF FN R(X)-INT(RND(1)"X)+1 

800 REM TERRENO 

810 R=FN R(50) 

820 IF R>5 THEN R-0 

830 IF R>4 THEN R"3 : RETURN 

840 IF R>1 THEN B-2 

850 RETURN 



aiE 



20 DEF FN R(X) = INT ( BND ( 

1) * X) + 1 

800 REM TERRENO 

810 H = FN R{50) 

820 IF R > 5 THEN R - 0 

830 IF R > 4 THEN R = 3: RETUR 



800 REM ESCOLHE O TERRENO 
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810 R-RND(50) 

S2D IF R>5 THEN R-0 

830 IF fi>4 THEN R"3 : RETURN 

840 IF R>1 THEN R-2 

850 RETURN 

O programa utiliza apenas números 
aleatórios inteiros. Como o Apple, o 
TK-2000, o Spectrum e o MSX não têm 
uma função como a RND, a linha 20 
DEFine uma Punção para isto. 

Em todos os programas, um núme- 
ro aleatório inteiro entre 1 e 50 é cria- 
do. A rotina de "escolha de terreno" se- 
leciona um valor para a variável R de 
acordo com o número criado. Se esse 
número for maior que 5, R valerá 0, có- 
digo de campo aberto. Se for 5, R será 

3, código de montanha; se for 2, 3 ou 

4, R será 2, valor que representa flores- 
ta; e, se for 1 , R fica valendo 1 , código 
de vila. 



CONTROLANDO 0 ACASO 



A rotina de "escolha de terreno" é 
chamada para definir cada posição da 
matriz do mapa ao longo de uma de suas 
dimensões. Como foi mencionado an- 
teriormente, não é desejável que a dis- 
tribuição seja totalmente aleatória. A 
rotina que se segue impõe um certo pa- 
drão à distribuição dos tipos de terreno, 
tornando o mapa mais real. 




370 LET i3="NOSL- 

470 BEM cria 

480 FOR 1-1 TO 16: GOSUB 800: 

LET m(i,l)-R: NEXT i 

490 FOR i-1 TO 16 

500 FOR j-2 TO 30 

510 LET a-FN r (10) 

520 IF a<8 THEN GOSUB 800 

525 IF a>-8 THEN LET Rn(i,j- 

1) 

530 LET n(i, j)-R 

540 IF R-3 AND j<30 THEN LET 

m(i, j+l)-4 

550 IF mli.jJOO AND m(i,j)<>3 
THEN PRINT AT i,j;CHR$ (nli.j 
J+143) 

555 IF m(i,j)=3 AND j<>30 THEN 
PRINT AT Í,j;CHR$ 146;AT 1,3+ 
liCHRS 147 
560 NEXT j 
570 NEXT i 
580 GOSUB 720 
590 FOR 1-1 TO B 
600 FOR j-1 TO 2: LET T(Í,j)-2 
: LET T(í+8, j)-2: NEXT J 
610 FOR j = 3 TO 4: READ T<i, j) : 
LET T(i+B. j) »T (i , j) : NEXT j 
6 20 READ nr 

630 FOR j»0 TO 8 STEP B 
640 LET T(i+j,5)-mr+FN r(2) 
650 LET T<i + j,6)-(FN r(.L00)*10 



)+10 

660 LET T(i+j.7)-T(i+j,6) 

670 NEXT j 

680 LET T(i,B)-15 

690 LET TU+8,B)-1 

700 NEXT i 

710 RETURN 



370 I$-"NWSE" 
470 REM CRIAÇÃO 

480 FOR 1-1 TO 16:QOSUB 800:M(I 

,1)-R:NEXT I 

490 FOR 1=1 TO 16 

500 FOR J-2 TO 30 

510 S = FN RU0) 

520 IF S<8 THEN GOSUB BOO 

525 IF S>-8 THEN R-M(I.J-l) 

530 M(I,J)-R 

540 IF R=3 AND J<30 THEN M(I,J+ 
D-4 

550 IF M(I,J)<>0 AND M(I,J)<>3 
THEN L0CATE J , I : PRINT CHRS (Md, 
JJ+223) 

555 IF MU,J)-3 AND J<> 30 THEN 
LOCATE J,I:PRINT CHR3 ( 226) +CHR 
$(227) ; 
560 NEXT ,1,1 
580 GOSUB 720 
590 FOR 1-1 TO 6 
600 FOR J-1 TO 2:T(I, J)-2:T(I+B 
,J)-2:NEXT J 

610 FOR J-3 TO 4 : READ T(I.J) :T( 
1+8, J)-T(I, J) : NEXT J 
620 READ MR 

630 FOR J-0 TO 8 STEP 8 

640 T(I+J,5)-MR+FN R(2) 

650 T{I+J.6)-(FN R(100)«10)+10 

660 T(I+J,7)-T(I+J,6) 

670 NEXT J 

680 T(I.8)-15 

690 T(I+B,8)-1 

700 NEXT I 

710 RETURN 
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370 IS - "NOSL- 

470 REM CRIAÇÃO 

480 FOR I - 1 TO 18: GOSUB 800 

:M(I.l) - R : NEXT 

490 FOR I - 1 TO 18 

500 FOR J - 1 TO 20 

510 S - FN R(10) 

520 IF 3 < 8 THEN GOSUB 800 

525 IF S > - B THEN R - M(I,J 

- D 
530 M(I.J) - R 

540 IF R - 3 AND J < 20 THEN M 
(I.J + 1) - 4 

550 IF M(I.J) < > 0 AND M I . J 
) < > 3 THEN Y - I:X - J:N - H 
(I.J) - 1: GOSUB 10000 
560 IF M(I,J) - 3 AND J < > 2 
0 THEN Y - I:X - J:N - 2: GOSUB 
10000:X - J + 1:N » 3: GOSUB 1 
0000 

570 NEXTJ.I 
580 GOSUB 720 
590 FOR I - 1 TO 8 
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600 FOR J - 1 TO 2:T(I.J) - 2: 
T(I + 8,J) - 2: NEXT J 
610 FOR J - 3 TO 4: READ TU.J 
):T(I + 8.J) - T(X.J): NEXT J 
620 READ MB 

630 FOH J - 0 TO 8 STEP 8 
640 T(I + J,5) - MR + FN BÍ2) 
650 T(I + J,6) - ( FN B(XOO) * 
10) + 10 

660 Ttl ♦ J.7) - T<1 + J,6) 

670 NEXT J 

680 T(I,8) - 1B 

690 TU + B,8) - 1 

700 NEXT I 

710 SE TU RN 

10000 X » X * 2 - 2:N - H * 2: 
FOR W - O TO 1:X = X + W:N = N 
+ W: FOR V - 0 TO 7 
10010 POKE T+ (Y - 8 * (Y > 7 
) - 8 ■ (Y > 15) ) * 128 + 40 * 
<Y > 7) + 40 * (Y > 15) + X + 1 
024 * V, PEEK (EE + N * 8 + V) 
10020 NEXT V.W: RETURN 

Q 

370 I$-"NOSL" 
470 BEM CRIAR 

480 FOR 1=1 TO 16:G0SUB 800:M(I 

,1)-R:NEXT I 

490 FOR 1-1 TO 16 

500 FOR J-2 TO 30 

510 S=RND(10) 

520 IF S<8 THEN GOSUB 800 

525 IF S>-8 THEN R-MU.J-l) 

530 M(I,J)-R 

540 IF R-3 AND J<30 THEN MU. J+ 
l)-4 

550 IF MU,JX>0 AND M(I,J)<>3 

THEN LINE ( J*8 . I*B) - ( J*8+7 , 1*8+ 

7) ,PRESET.BF:DRAU"BM , ' + STRS(J*8) 

+ ■ , "+STRS (1*8) +UCS (M (I . J) ) 

555 IF MU.J)-3 AND JO30 THEN 

DRAW"BM*+STRS (J*8) + " , "+STR3 ( 1*8 

) +UCS (3) +'BM"+STR3 ( (J + l )*»)+" . " 

+STRSU"8)+UCS<4> 

560 NEXT J.I 

580 GOSUB 720 

590 FOR 1-1 TO 8 

600 FOR J-l TO 2:1(1, J)-2:TU+8 
,J)-2:NEXT J 

610 FOR J«3 TO 4 : READ T(I,J):T( 
I+8,J)-TfI.J) : NEXT J 
620 READ MR 

630 FOR J-0 TO 9 STEP 8 

640 T(I+J.5)«MR+RND(2) 

650 T(I+J.6)»(RNDUOO)*10)+10 

660 TU+J,7)-TU + J,6) 

670 NEXT J 

680 TU. 81-15 

690 T (1+8.8) -1 

700 NEXT I 

710 RETURN 

A rotina gera um novo número alea- 
tório, S, para cada elemento restante da 
matriz. O valor de S, selecionado na li- 
nha 510, varia de 1 a 10. A linha 520 faz 
com que, em 70% das vezes, o novo blo- 
co de terreno seja escolhido ao acaso — 
se S < 8, o programa chama a sub- rotina 



de escolha de terreno. Os 30% restan- 
tes serão constituídos de blocos iguais 
aos vizinhos da esquerda. Esse procedi- 
mento tem como objetivo criar grupos 
de blocos no mapa. As linhas que vão 
de 550 a 570 colocam os blocos na tela. 



POSICIONAMENTO DAS TROPAS 



As posições dos combatentes são ar- 
mazenadas nas matrizes das tropas co- 
mo pares de coordenadas — horizontais 
e verticais. 

Inicialmente, os adversários ficam 
em extremos opostos da tela. No cam- 
po de Capa e Espada, o jogador come- 
ça no extremo sul (margem inferior do 
mapa), e o computador, no norte (topo 
da tela). 

Portanto, a coordenada vertical já es- 
tá previamente determinada. 

A coordenada horizontal precisa ser 
selecionada. Assim como para a defini- 
ção do tipo de terreno, é interessante 
que haja um elemento de acaso nessa es- 
colha. Contudo, algumas restrições de- 
vem ser feitas — precisamos impedir, 
por exemplo, que duas unidades ocupem 
o mesmo espaço. 

A rotina que listamos a seguir sele- 
ciona a posição inicial de cada unidade, 
de ambos os lados. Em primeiro lugar, 
as tropas são selecionadas ao acaso. De- 
pois, o mapa é dividido verticalmente 
em oito colunas. Cada coluna representa 
os limites dentro dos quais as unidades 
serão colocadas. A posição definitiva de 
todas elas é, então, selecionada de acor- 
do com os limites da coluna. 



860 BEM Diupoe tropas 
870 INK 2 
880 FOR m-1 TO 2 
890 LET B-Ii LET r-1 
900 FOR X-l TO 8 
910 REM Loop 
920 LET b-FN r (8*m) 
930 IF T(a,9)<>0 THEN GOTO 
910 

940 LET r-FN r(4)+r 
950 LET r-r-INT (r/30) 
960 LET T(s,9)-r 
970 INK m 

980 PRINT AT T(s,8> ,T(s.9) íu$( 
a) 

990 NEXT k 
1000 NEXT m 
1010 RETURN 

m 

B60 REM TROPAS 
880 FOR M-1 TO 2 



B90 S-1:R-1 

900 FOR K-l TO 8 

920 S-FN R(8*M) 

930 IF 1(3,9)00 THEN 920 

940 R-FN R(4)+R 

950 R»R-INT(R/30) 

960 T(S,9)=R 

980 LOCATE T(S,9) ,T(S,8) : PRINT 
CHRS(U(S) ) 
990 NEXT K , M 
1010 RETURN 

mm 

860 REM DISTRIBUIÇÃO 

880 FOR M - 1 TO 2 

890 S - 1:R - 1 

900 FOR K - 1 TO 8 

920 S - FN R{8 * M) 

930 IF T(S,9) < > 0 THEN 920 

940 R - FN R<3) + R 

950 R - R - INT (R / 20) 

960 T(S,9) - R 

980 Y - T(S,8):X - T(S,9):N - 
VAL ( MID3 (US.S - (M - 1) * 8. 
D) + (M-1) * 5: GOSUB 10000 
990 NEXT K , M 
1010 RETURN 

□ 

860 REM DISPÕE TROPAS 

870 COLOR 2 

880 FOR M-1 TO 2 

890 S-1:R-1 

900 FOR K-l TO 8 

910 REM 

920 S-RND(8*M) 

930 IF T(S,9)O0 THEN 910 

940 R-RND(4)+R 

950 R-fl-INTÍR/30) 

960 T(S,9)-R 

970 COLOR M:IF M-1 THEN COLOR 3 
980 DRAW"BM"*STRS(T(S.9)*B)+-." 
+STRS (T (S , 8) *B> : UU-VAL (MID$ (US . 
S.l) ) :AS-UCS (UU) :GOSUB 3000 
990 NEXT K 
1000 NEXT M 
1010 RETURN 

Como as oito unidades são escolhi- 
das ao acaso, a posição inicial de cada 
uma varia e, assim, cada novo jogo é di- 
ferente do anterior. 

Os dois exércitos estão armazenados 
em uma só matriz. Por isso, a mesma 
rotina pode ser usada para escolher a 
posição inicial de todas as tropas, bas- 
tando, apenas, um laço FOR... NEXT 
(linhas 880 e 1000). O laço também faz 
com que os dois exércitos apareçam em 
cores diferentes. 



ÀS ARMAS 



Uma vez determinadas as posições 
iniciais das unidades, elas devem ser co- 
locadas no vídeo. 
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Capa e Espadai mapa do campo de batalha no Spectrum. 



410 LET US-CHR3 148+CHRS 149+ 
CHBS 150+CHR3 1S0+CHR3 151+ 
CHBS 151+CHRS 152+CHRS 152: 
LET US-US+US 



740 PRINT AT i,0;CHR3 150:AT 

,31;CHR$ 150 

750 NEXT i 

760 FOR 1=0 TO 31 

770 PRINT AT 0,Í;CHRS 150;AT 

16.iiCHRS 150 

780 NEXT 1 

790 RETURN 



410 UU)-228:U{2)=229:U(3)=230: 
U(4) -230:U(5)-231:U<6)-231 :U(7) 
-232:U<8)-232 



720 P KM BORDA 

730 FOR 1-0 TO 31 

740 VPOKE BASE (5) +1 . 246 

750 VPOKE BASE(5)+I+544,246 

760 NEXT I : FOR 1-0 TO 574 Í3TEP 

32 

770 VPOKE BASE (5) +1 . 246 
780 VPOKE BASE (5) +1-1. 246 
790 NEXT T : RETURN 



Q 

410 US--6577B899" :US-U5+U3 

Na linha 410 definimos um cordão 
U$ para armazenar os códigos dos ca- 
racteres que representam cada unidade. 
No caso do MSX, utilizamos uma va- 
riável indexada Vi ). 



A tela fica mais bonita — e menos 
confusa — se fizermos uma moldura pa- 
ra o campo de batalha. 



D 



720 REM BORDA 

730 LINE (0,128)- (255,135) , PRES 
ET , BF 

740 LI NE (24 8,0)- (255,191) , PRESE. 



720 REM BORDA 
730 FOR YY - 0 TO 19 STEP 19 
740 FOR XX = 1 TO 20 
750 N - IliX - XX:Y - yy 
760 X - X * 2 - 2:N - N * 2 : FO 
R U - 0 TO l:X ~ X + W:N - N + 
U: FOR V = 0 TO 7 
770 POKE T + (Y - 8 * (Y > 7) 
- 8 * (Y > 15) ) * 128 + 40 « (Y 
> 7) + 40 * (Y > 15) + X + 102 
4 * V, PEEK (E + N * 8 + V) - 1 
28 



Essa rotina simplesmente desenha, 
repetidas vezes, em torno do mapa, o 
símbolo utilizado para os lanceiros, só 
que em outra cor. 



MOBILIZAÇÃO DAS FORÇAS 



Agora que o mapa está preparado, 
veremos como os jogadores movem suas 
unidades. Toda a mobilização decorre 
de ordens — explicadas no próximo ar- 
tigo. Porém, antes que se possa comple- 
tar o movimento, é preciso definir vá- 
rios detalhes do jogo: 

• Distância máxima, em número de po- 
sições, que cada unidade pode atingir 
em um só movimento. Em Capa e Es- 
pada, a mobilidade de uma unidade de- 
pende apenas do peso de sua armadu- 
ra, mas, em outros jogos, fatores como 
moral, disciplina e cansaço, entre ou- 
tros, podem ser levados em conta. 

• Existência de vantagens e bónus. Em 
nosso programa, os bónus são dados 
apenas aos cavaleiros. Porém, é possí- 
vel destiná-los também a unidades que 
realizem determinadas ações — como 
subir uma ladeira ou transportar carga 
— ou, ainda, que possuam um coman- 
dante muito habilidoso. 

• Obstáculos ao movimento. O progra- 
mador deve decidir que tipo de influên- 
cia o terreno exerce sobre o movimento 
de tropas. Em nosso caso, todos os ter- 
renos, menos o campo aberto, dimi- 
nuem a distância máxima em uma uni- 
dade. Também é preciso verificar se há 
outra unidade no caminho. 

" A borda do mapa foi alcançada? 

Adicione mais esta rotina e o progra- 
ma poderá movimentar as tropas levan- 
do em conta todos esses fatores. 



9) 

1175 LET 23-"" 

1180 IF »(T(b,8) ,T(b,9))O0 THE 
ti LET zS-CHRS <143+m(T(b.8) ,T( 
b,9))) 

1190 LET D-5-T(b,4) 

1200 IF b<3 OR b=9 0R b=10 TIIEN 

LET D-D+2 
1210 LET v=T (b, 2) -1 , 
1215 LET up-0: LET al=v-2 
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1220 IF v/2-ÍIKT (v/2))-0 THEN 

LET up-v-1: LET al-0 
1230 HEH Repetição 
1240 LET nl-T(b.9)+al : LET np-T 
(b.8)+up 

1250 IF np<l THEN LET np-1 
1260 IF np>15 THEN LET np-15 
1270 IF nl<l THEN LET nl-1 
1280 IF nl>30 THEN LET nl = 30 
1290 IF m(np,nl)>0 THEN LET D- 
D-l 

1300 FOR k-1 TO B 

1310 IF (T(k,9)-nJ. AND T{k.8)-n 

p AND kOb) THEN LET D^O 

1315 IF (T(k+8,9)=nl AND T[k+8, 

8)-np AND k+80b) THEN LET D-0 

1320 NEXT k 

1330 IF d>0 THEN LET T(b,9)=nl 
: LET T(b.8)=np: LET D-D-l 
1340 IF DOO THEN GOTO 1230 
1350 INK 0: PRINT AT ox,oy;zS 
1360 INK cl: PRINT AT Ttb.8),T( 
b,9) :uS(D 
1370 RETURN 



1160 REM MOVE 

1170 OX-T(B.B) :0Y-T(B,9) 

1175 CH-32 

11B0 IF M(T(B.B) ,T(8,9)O0 THEN 

CH-223+M(T{B,8) ,T tB , 9) ) 
1190 D-5-T(B.4) 

1200 IF B<3 OR B-9 OR B=10 THEN 

D-D+2 
1210 V-T(B,2)-1 
1215 UP-0:AL-V-2 

1220 IF V/2-(INT{V/2))-0 THEN U 
P-V-l:AL-0 

1240 N1-T(B,9)+AL:NP-T(B,8)+UP 

1250 IF NP<1 THEN NP-1 

1260 IF NP>15 THEN NP-15 

1270 IF NK1 THEN Nl-1 

1280 IF Nl>30 THEN Nl-30 

1290 IF M(NP,N1)>0 THEN D-D-l 

1300 FOR K-1 TO 8 

1310 IF (T(K,9)-N1 AND T(K,8)-N 

P AND KOB) THEN D-0 

1315 IF (T(K+B,9)-N1 AND TÍ.K+8. 

8) -NP AND K+BOB) THEN D-0 

1320 NEXT K 

1330 IF D>0 THEN T (B . 9) -NI : T <B. 
8) -NP: D-D-l 

1340 IF DOO THEN 1240 

1350 LOCATE OY.OX:PRINT CHRS tGH 

)i 

1360 LOCATE T<B,9) ,T(B,B) : PRINT 

CHRS (U(I)+CL) 
1370 RETURN 

GE El 

1160 REM MOVE 

1170 OX - T(B,B):OY - T(B,9) 

1175 GH - 14 

11B0 IF M (T (B , B) . T (B , 9) ) < > 
0 THEN GH - M(T(B,B) ,T(B,9)) - 

1 

1190 D - 5 - T(B.4) 
1200 IF B < 3 OR B - 9 OR B - 
10 THEN D-D+2 
Il210 V - T(B,2) - 1 



1215 UP - 0:AL - V - 2 

1220 IF V / 2 - ( INT {V / 2) ) 

- 0 THEN UP - V - 1:AL - 0 
1240 NI - T(B.9> + AL : NP - T(B, 
8) + UP 

1250 IF NP < 1 THEN NP-1 
1260 IF NP > 18 THEN NP - 1B 
1270 IF NI < 0 THEN Nl-1 
1280 IF NI > 19 THEN NI - 20 
1290 IF M(NP.Nl) > 0 THEN D - 
D- - 1 

1300 FOR K - 1 TO 8 

1310 IF (T(K,9) - NI AND T (K , 8 

) - NP AND K < > B) THEN D-0 

1315 IF CTÍK + 8.9] - NI AND T 

(K + 8.8) - NP AND K + 8 < > B 

1 THEN D-0 

1320 NEXT K 

1330 IF D > 0 THEN T{B.9) - NI 
:T(B,8) - NP:D - D - 1 
1340 IF D < > 0 THEN 1240 
1350 X - 0Y:Y - OX:N - GH: GOSU 
B 10000 

1360 X - T(B,9):Y - T(B.8):N - 
VAL ( MIDS (US.I - (I > B) * 8 
,1)) + {I > 8) "5: GOSUB 10000 
1370 RETURN 



íi 

1160 REM MOVE UNIDADE 
1170 OX-T(B,8) :0Y-T{B,9) 
1175 ZZ-0 

1180 IF M(T(B,8) ,T(B.9) ) <>0 THE 
N ZZ=M(T(B,8) ,T(B,9)1 
1190 D-5-TÍB.4) 

1200 IF B<3 OR B-9 OR B-10 THEN 

D-D+2 
1210 V-T(B.2)-1 
1215 UP=0:AL=V-2 

1220 IF <V/2)-INT(V/2)~0 THEN U 
P-V-l :AL-0 
1230 REM 

1240 NL-T(B.9)+AL:NP«T{B,8)+UP 

1250 IF NP<1 THEN NP-1 

1260 IF NP>15 THEN NP=15 

1270 IF NL<1 THEN NL-1 

1280 IF N>30 THEN NL-30 

1290 IF M(NP.NL)>0 THEN D-D-l 

1300 FOR K-1 TO 8 

1310 IF (T(K.9)-NL AND T{K,B)-N 

P AND KOB) THEN D-0 

1315 IF (T[K+B,9)-NL AND T(K+B, 

8)=NP AND K+SOB) THEN D-0 

1320 NEXT K 

1330 IF D>0 THEN T (B , 9) -NL : T (B , 
8) -NP:D-D-1 

1340 IF DOO THEN 1230 
1350 X9-OY*8:Y9=OX*8:IF ZZOO T 
HEN COLOR 4;LINE(X9,Y9)-(X9+7,Y 
9+7) . PRESET . BF :DRAU"BM"+STR3 (X9 
)+","+STRS(Y9)+UCS(ZZ) ELSE LIN 
E (X9, Y9) - (X9+7 . Y9+7) , PRESET, BF 
1360 COLOR CL:DRAU"BM"+STRS (T(B 
,9)*8)+" . "+STRS(T(B,8) *8) :UU-VA 
LtMIDSÍUS.I.D) :AS-UCS(UU) :GOSU 
B 3000 
1370 RETURN 

Os testes vão aumentar, reduzir ou 
impedir completamente a mobilidade 
das tropas. A rotina primeiro "lembra- 




O que é uma simulação aleatória? 

Os jogos de simulação geralmente 
envolvem uma metodologia de cálculo 
específica para a área que está sendo 
simulada. Na maioria das simulações is- 
so abrange tanto fórmulas matemáti- 
cas quanto regras de decisão (regras 
heurísticas). 

Entretanto, o jogo de simulação fi- 
ca muito previsível se não contiver al- 
gum elemento de probabilidade (ou se- 
ja, um sorteio ao acaso realizado para 
uma equação matemática para uma re- 
gra de decisão). As situações passam 
a se repetir exatamente da mesma ma- 
neira frente a um determinado conjun- 
to de condições. 

Por isso, é importante usar o gera- 
dor interno de números aleatórios do 
computador (funções RAND, RNO etc.l 
para sortear ao acaso o caminho a ser 
seguido ou o valor numérico de algum 
dado de simulação. 

São exemplos do que pode ser ge- 
rado em programas de simulação: 

• O nome de uma nave espacial e o de 
seu comandante. 

• O número e a direção das saldas de 
uma câmara secreta em um jogo de 
aventuras. 

• A permanência do jogador na prisão, 
no Jogo Imobiliário. 



se" da posição anterior e do tipo de ter- 
reno que havia naquela posição. Em se- 
guida, calcula a direção e o deslocamen- 
to máximo. 

As linhas 1230 a 1340 formam um la- 
ço que testa cada posição ao longo da 
trajetória da unidade, verificando se são 
ocupadas por tropas ou tipos de terre- 
no que afetam o movimento. De acor- 
do com o que esse laço encontrar, o des- 
locamento final é' calculado. O laço se 
repete até que a distância ao ponto de 
destino seja zero. 

Após decidir sobre o deslocamento, 
a rotina coloca o símbolo do terreno ori- 
ginal na posição anterior e desenha a 
tropa na nova posição. 

As listagens aqui apresentadas ainda 
não poderão ser completamente testa- 
das. Como está, o programa apenas de- 
senha o mapa, sendo interrompido por 
uma mensagem de "falta de dados". 
Com as rotinas do próximo artigo, que 
trata das ordens dadas pelo jogador, es- 
se problema deixará de existir. 
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JOGOS DE GUERR 
A ARTE DE COM, 




0 INÍCIO DA PARTIDA 




COMO DAR ORDENS A TROPA 
MOVIMENTO E DIRE ÇÃO 



O COMPUTADOR COMO JOGADOR 



Mobilize seu exército para a guerra, 
definindo uma estratégia de 
ação e disciplinando a tropa. Esses 
requisitos são fundamentais 
para o exercício da arte de comandar. 



Agora que as rotinas de posiciona- 
mento e movimentação das tropas já fo- 
ram incorporadas ao programa, é pre- 
ciso começar a dar ordens ao exército. 

Diversos fatores tendem a influenciar 
o comportamento de cada unidade no 
campo de batalha. Os mais significati- 
vos dentre eles são os seguintes: 

- Última ordem recebida pela unidade. 

- Direção em que a unidade se move. 

- Tipo de munição utilizado. 

- Armaduras e demais equipamentos de 
que dispõe a unidade. 

- Poder destrutivo inicial. 

- Poder destrutivo no momento em que 
a batalha é travada. 

- Moral da tropa. 

- Posição estratégica assumida pela uni- 
dade. 

- Terreno em que a batalha tem lugar. 

Esses fatores correspondem aos no- 
ve elementos da matriz da tropa, que di- 
mensionamos no artigo anterior. O ter- 
reno e a posição já foram definidos por 
ocasião da rotina de movimento. Neste 
artigo atribuiremos valores aos elemen- 
tos restantes. 

Ao começar o jogo, os valores iniciais 
adequados são colocados na matriz da 
tropa. Os tipos de armadura e de muni- 
ção serão sempre os mesmos. Da mes- 
ma forma, o moral será também quase 
sempre o mesmo, embora possa sofrer 
algumas variações — os camponeses 
provavelmente nunca estarão muito dis- 
postos a lutar (afinal, a guerra não é de- 
les, mas dos barões feudais), enquanto 
os cavaleiros, para manter as aparên- 
cias, nunca agirão covardemente. A ca- 
pacidade destrutiva poderá ser multo di- 
ferente de uma partida para a outra. As 
ordens e as direções iniciais são deter- 
minadas pelo programa: todos começam 
parados ("ALTO"), de modo que não 
existe uma direção definida. 
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As rotinas que se seguem acertam o 
valor de diversas variáveis. Os dados são 
obtidos de linhas DATA, ou através de 
alguns cálculos, ou das duas maneiras. 
Quando o programa estiver completo e 
em funcionamento, poderemos modifi- 
car esses dados de acordo com nossas 
preferências. 



ABANDONE 0 QUARTEL-GENERAL 



Estas rotinas acertam os valores ini- 
ciais dos elementos que ainda não foram 
definidos: 




190 BEM Inicialiiacao 
200 LET vc-0: LET de = 0 
310 BEM 
320 PAPER 7 
330 INK 0 
340 CLS 

360 DIM tS(8.12): DIM oS(5.12) 
: DIM vS(5,9) ■ DIM mS (5.12) ; 
DIM aS{4,12): DIM rS(4.12): 



-DIM c(B) 
380 FOR i-l TO 5: HEAD oS(i). 
«3(i) .mS(i) : NEXT i 
390 FOR 1=1 TO 8: READ t$(i>: 
NEXT i 

400 FOR 1=1 TO 4: BEAD a3<i). 
r$(i) : NEXT i 

410 LET uS-CHRS 148+CHRS 149+ 
CHR$ 150+CHRS 151+CHR3 151+ 
CHHS 152+CHRS 152: LET uS-uS+ 

uS 

415 LET x3="NnSa" 

420 RETURN 
2760 DATA "f ogo" , "nada" . "rovard 
e" ."alto* , "arco", "baixo" 
2;/0 DATA "marche" , "eapada" , "di 
aposto" . "status" . "machado" , "bra 

2/80 DATA "ret irada" ." larica" , "v 
alente" 

2790 DATA "cava 1 ei roa" . "aargent 

que 1 roa" , "camponeses" , "camponês 

2B00 DATA "nada" , "campo" ," gibão 
" , "vila" , "malha metalica"."flor 
esta" , "chapa met ica" , "montanh 

2810 DATA 5,4,3,5,3,3.4.3,2,3,3 
.1,2,2.1,2,3,2,3,2,0,3,1.0 



190 REM INICIO 
200 VC-0:DE=0 
340 CLS 

360 DIM T$(8) ,0$(5) ,WS(S) ,M3<5) 
,A3{4) ,RS(4) 

380 FOB .1=1 TO 5 : READ OS(J).W3< 
J) .MS(J) -NEXT J 

390 FOR J-l TO 8 : R EAD T3(J):NEX 
T J 

400 FOR .1=1 TO 4 : BEAD AS(J).B3( 
J) : NEXT J 
415 XS="NnSs" 
420 RETURN 

2760 DATA FOGO , NADA . COVARDE . ALT 
O.ABCO.BAIXO 

2770 DATA MARCHE, ESPADA, DISPOST 

O , STATUS , MACHADO , BB AU O 

2780 DATA RETIRADA , LANCA , VALENT 

E 

2790 DATA CAVALEIROS , SARGENTOS, 
LANCEIBOS , LANCEI ROS . ARQUEI BOS , A 
R QUEIRÓS , CAMPONESES . CAMPONESES 
2800 DATA NADA. CAMPO . GIBÃO . VILA 
, MALHA METÁLICA. FLORESTA, PLACA 
METÁLICA. MONTANHA 
2810 DATA 5,4.3,5.3.3,4.3,2.3.3 
,1.2.2,1,2,3,2.3,2,0.3,1,0 
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FtEAD OS(I) 



190 BEM INICIO 

200 CL - Q:VC ■ 0 1 DC ■ 0 

340 HGB2 ! POKE - 16301,0: GO 

SUB 2540 

360 DIM TS(8J ,OS(5) ,WS(5) ,MS(5 
) ,AS(4) ,BS<4> 
380 FOB I - 1 TO 5 
,WS(I) .MS(D : NEXT 
390 FOB I = 1 TO 8 
: NEXT I 

400 FOB I - 1 TO 4 
,BS(D : NEXT I 
410 US - "45667788" 
415 XS ■ "NNSS" 
420 BETURN 

2760 DATA FOGO , NADA , COVARDE , A 
LTO , ARCO , BAIXO , MARCHE . ESPADA , DI 
SPOSTO 

2780 DATA STATUS .MACHADO . BB AV 

O . RETIBADA , LANCA . VALENTE 

2790 DATA CAVALEI BOS , SABGENTO 

S , LANCEIROS , LANCEIROS . ABQUEIROS 

, ARQUEIROS . CAMPONESES , CAMPONESE 

S 

2800 DATA NADA. CAMPO. GIBÃO. VI 
LA. MALHA METÁLICA , FLORESTA, CHAP 
A METÁLICA. MONTANHA 



Os usuários do micro TK-2000 devem 
modificar as seguintes rinhas do progra- 
ma destinado ao Apple. 



READ TS(I) 340 HGB2 : GOSUB 2540 
READ AS (I I ^ ^ 



310 REM 

330 COLOR 4,2 

340 PCLS 

360 DIM TS(8) .03(5) ,WS(5) ,MS{5) 
.AS (4) . BS (4) 

3H0 FOR J-l TO 5 : READ OS(J).WS< 
J) .MS (J) : NEXT J 

390 FOR J-l TO 8 : READ TS(J):NEX 
T J 

400 FOR J-l TO 4 : READ AS(J),RSI 

J) :NEXT 

415 XS="NnSs" 

420 BETURN 

2760 DATA FOGO. NADA , COVARDE , ALT 
O.AHCO.BAIXO 

2770 DATA MABCHE , ESPADA , DISPO ST 

O , STATUS , MACHADO , BRAVO 

2780 DATA RETIBADA. LANCA. VALENT 

E 

2790 DATA CAVALEIROS , SARGENTOS , 
LANCEIROS , LANCEIROS .ARQUEIROS , A 
RQUEIROS . CAMPONESES , CAMPONESES 
2800 DATA NADA. CAMPO, GIBÃO, VILA 
. MALHA METÁLICA, FLORESTA, CHAPA 
METAL I C A . MONTANHA 
2910 DATA 5.4.3,5,3,3.4.3.2,3,3 
,1.2,2,1,2,3.2,3,2,0,3.1.0 

Os valores iniciais são obtidos com 
READ das linhas DATA, juntamente 
com as palavras equivalentes aos valo- 
res numéricos colocados na matriz. As 
palavras serão usadas na janela de tex- 
to para que a batalha se desenrole de 
maneira clara para o jogador. 



te, quanto mais simples for o jogo, mais 
fácil será o processo de comando. As- 
sim, um jogo muito realista será mais di- 
fícil de jogar; e, se quisermos produzir 
um jogo fácil de jogar, teremos que sa- 
crificar os detalhes. Depois de progra- 
mar alguns jogos desse tipo, você será 
capaz de criar programas mais com- 
plexos. 



ROTINA DE COMANDO 



A rotina de comando de Capa e Es- 
pada seleciona as unidades de cada jo- 
gador, uma a uma, para que estes pos- 
sam dar as ordens. A unidade em ques- 
tão tem sua cor modificada no mapa 
(em alguns computadores a mudança é 
sutil). Uma mensagem solicitando as no- 
vas ordens para essa unidade (indicada 
por seu número) é mostrada na janela 
de texto. Se o jogador não quiser alte- 
rar as ordens, basta pressionar a tecla 
N. Se S for pressionada, será mostrado 
um menu com as ordens possíveis. 

Caso seja selecionada a ordem de ati- 
rar (FOGO) e a unidade não seja cons- 
tituída de arqueiros, uma nova ordem 
será escolhida. O comando ALTO faz 
a unidade permanecer onde está e MAR- 
CHE exige a definição da direção, indi- 
cada pelas iniciais de norte, sul, leste e 
oeste. O programa não faz nenhum tes- 
te para verificar se a direção é válida; 
portanto, preste atenção ao mapa. 



COMO SELECI0NAR UMA UNIDADE 



Quando chega a vez do jogador, a 
primeira unidade é destacada por meio 
da mudança de cor; isso se repete com 
cada uma das outras sete unidades. O 
símbolo que muda de cor é a unidade 
que o jogador deve considerar: as or- 
dens devem ou não ser modificadas? 
Quando a unidade é destacada, uma 
mensagem surge na janela de texto, 
mostrando a última ordem dada. 



O jogo consiste basicamente em dar 
ordens às unidades — sem isto não ha- 
verá combate e, consequentemente, vi- 
tória ou derrota. 

Existem quatro ordens básicas no jo- 
go Capa e Espada: "Fogo", "Alto", 
"Marche" e "Status". A ordem de ati- 
rar se aplica somente aos arqueiros, que 
obedecerão mesmo que não haja unida- 
des inimigas nas redondezas. 

Dar ordens às tropas tem suas des- 
vantagens: quanto mais real quisermos 
que seja um jogo de guerra, mais com- 
plicadas serão essas ordens. Inversamen- 



13B0 REM unidade 
1390 COSUB 2540 
1400 INK 0 

1410 PBINT FLASH 1 ;AT T(l,6).T 
(i,9) ;u$(i) 

1420 PBINT AT 1 7 . U ; "Unidade num 
«ro "ji i" - ;tS(i) " 
1430 PRINT AT 18 , 0 ; "Ult i ma orde 
m:";oS(T(i,l>> |" *j 
1440 IF T(Í,l)-3 THEN PRINT AT 

18.28;iS<T(i , 2) ) 
1450 REM Loop 

1460 PRINT AT 19,0; "Deseja muda 
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r as ordena (S/N) ?" 

1465 LET y=0: LET yS=INKEYS 

1466 IF yS = "" THEN ^OTO 1465 
1470 FOB k-1 TO 4 

1475 IF *3(k)=yS THEN LET Y=k 

1480 NEXT k 

1490 IF y=0 THEN GOTO 1450 

1500 BETUBN 



1380 REM UNIDADE 
1390 GOSUB 2540 

1410 LOCATE TU. 9) ,TU,8) : PRINT 

CHHSIUÍD+4B) : 
1420 LOCATE 0,18:PRINT "UNIDADE 
•|I|"!"|T*<I) :" 

1430 LOCATE 0,19:PRINT "ULTIMA 

0BDEM:";OS(TtI.D) ; 

1440 IF T(I,l)-3 THEN PHINT IS ( 

T(I,2)) 

1460 LOCATE 0,20: PBINT "QUER MU 
DAB AS ORDENS (S/N)?" 

1465 YW-0:YS-INKEYS 

1466 IF YS = "" THEN 1465 
1470 YW-INSTRU.XS.YS) 
1490 IF YW = 0 THEN 1460 
1500 BETUBN 



1380 BEM UNIDADE 
1390 GOSUB 2540 
1410 X = T(I.9):Y = T(I.8i:N - 
UAL ( MIDS <US.I - (I > 8) * 8 
.1)} + (I > 8) * 5: GOSUB 20000 
1420 VTAB 21: PHINT "UNIDADE N 
UMEHO " ; I; " " :TS(I) 
1430 PBINT "ULTIMA OBDEM : " : 03 

rtu.Dj i" "i 

1440 IF T(I.l) c 3 THEN PBINT 
MIDS (IS.TÍI.2) .1) : GOTO 1460 
1450 PBINT 

1460 PBINT "DESEJA MUDAB AS OH 

DENS (S/N)?": GOSUB 30000 

1465 YW - 0: GET YS 

1470 FOB K - 1 TO 4 

1475 IF MIDS (XS.K.l) - YS TH 

EN YW = R 

14 80 NEXT K 

1490 IF YW = 0 THEN 1450 
1500 RETUBN 

20000 X = X * 2 - 2:N - N * 2: 
FOR » - 0 TO 1:X - X + H:N ■ N 
+ W: FOR V - 0 TO 7 
20010 POKE T+(Y-B*(Y>7 
) - 8 * (Y > 15) ) * 126 + 40 * 
(Y > 7) + 40 * <Y > 15) + X + 1 
024 * V, PEEK (EE + N * 8 + V) 
- 128 

20020 NEXT V.W: RETUBN 

m 

Faça a seguinte modificação no pro- 
grama do Apple: 

1460 PRINT "DESEJA MUDAB AS OR 



1380 REM UNIDADE 
1390 GOSUB 2540 
1400 COLOR 4 

1410 DRAW"BM"+STRS(T(I,9)*8)+", 
■+STR3(TU.B)*8) :UU-VAL (MIDS (U3 
,1,1)) :AS"UCS(UU) :GOSUB 3030 
1420 DRAW"BM0.144":A3-"UNIDADE- 
+SBS(U+" "+T3 (I) +" ":GOS 
UB 3190 

1430 DRAWBM0. 152" :AS-"OBDENS S 
AO PARA "+OS(T(I.l))+" ":GOSU 
B 3190 

1440 IF T(I.l)-3 THEN DBAW "BM1 
60,152" :AS-MIDS(IS.T(I,2) .1) :GO 
SUB 3190 
1450 REM 

1460 DBAW"BM0 , 160" : AS" "DESEJA M 
UDAB AS ORDENS (S/N)": GOSUB 319 
0 

1465 Y-0:YS"INKEY3 

1466 IF YS-"" THEN 1465 
1470 Y-INSTR(1,XS,)ÍS) 
1490 IF Y-0 THEN 1450 
1500 RETURN 

3000 X9-PEEKÍ200) : Y9-PEEK (202 ) : 
LINE(X9.Y9) -{X9+7, Y9+7) .PRESET. 
BF 

3010 POKE 200,X9:POKE 202,Y9:DB 
AW AS 

3020 BETUHN 

3030 X9=PEEK(200) : Y9=PEEK ( 202 ) : 

C9=PEEK(178) :C'OLOB 2:LINE(X9.Y9 

) - (X9+7 , Y9+7) , PSET . BF 

3040 POKE 178,C9:GOTO 3010 

3050 REM DADOS PAHA LEBAS E DIG 

ITOS 

3060 DATA BR4 , BDDSRU3NR2U2ERFND 
5BR4BU . D6R3EUHEUHBR5 . NR5D6R5BR3 
BU6 , NR 3D6R3EU4BUBR4 .NR5D3NR3D3B 
5BR3BU6 , NR5D3NR3D3BHB11U6 , NR5D6R 
5U2BU4BR3 

3070 DATA ND6D3R5D3U6BR3 , H5L2D6 
L3R5BR3BU6 , BD5RFHEU'jL2BR6 , ND6D3 
R3FD2BU4U2BR4 . D6R5BR3BU6 . ND6DR5 
NL5UBR3,NI)6DH2D3K3D2U6BRJ 
3080 DATA D6R5U6NL5BR3 , D6U3R5U3 
NL5BR3 , D6UR3FRBU2U4NL5BH3 , D6U2H 
3FDUBU2NL2U3NL4BR4 . NR5D3R5D3NL5 
BU6BR3 . R5L2ND6BR5 , D6H5U6BR3 
3090 DATA D4RFDRUEU4BR4 .D6UR5DU 
6BH3 , D2RFGND2ERFND2HEU2BR4 .D2RF 
D3BU3EU2BH4 , R4D2GLUD2R4BU6BR3 
3100 DATA BR3LGD4FREU4BR4BU , BR2 
DNL2D5L2R5BU6BB3 , BDRERFDGL2D3B4 
BU6BR3 . BDBEBFDGFDGLHLBU5BR8 , D4R 
5UD3BU6BR3 , NR5D2R3FD2GLHLBU5BR8 
■BDBR5LHLGD2NR2D2FREUBU4BR4 
3110 DATA R5D2LGLGD2BR7BU6 , BR3L 
GDFGDFREUHEUBUBR4 , BB3LGDFB2D2GL 
HLBU2BR4U2BUBR4 
3120 REM MATRIZ DE CARACTERES 
3130 DIM LES(26) 

3140 FOR K9-0 TO 26 :READ LES (K9 
) : NEXT 

3150 FOR K9=0 TO 9 : READ NUS(K9) 
:NEXT 

3170 RETUBN 

3180 REM BOTINA PARA IMPRIMIR A 



3190 FOB K9-1 TO LEN (AS) 

3200 BS-MIDS(AS,K9,1) 

3210 IF BS>-"0" AND BS<-"9" THE 

N DBAW NUS (VAL (BS) ) :GOTO 3240 

3220 IF B$-" " THEN N9-0 ELSE N 

9-ASC(BS)-64 

3230 DRAW LES (N9) 

3240 NEXT 

3250 RETURN 

As ordens para a unidade destacada 
são mostradas na janela de texto. O jo- 
gador é indagado, então, sobre se dese- 
ja mudar as ordens. 

O micro TRS-Color possui linhas 
adicionais (3000 a 3250) destinadas a de- 
senhar as letras e os números na leia de 
alta resolução. 



A ARTE DE COMANDAR 



Esta rotina mostra um menu com a 
ordens possíveis: 



1900 BEM acao 

1910 GOSUB 2540 

1920 PHINT AT 18 . 0 ; "Opcoea :" 

1930 FOR J^l TO 4 

1940 PRINT AT 17+ j , 8 ; 05 ( 3,1) 1 *- 

" íoS(j) 

1950 NEXT j 

1960 BEM loop 

1962 LET a=0 

1965 LET f S="FtAaMmS3" 

1970 LET oS-TNKEYS : IF gS="" TH 

EN GOTO 1970 

1975 FOR k^l TO 8 

1980 IF tS(k)=gS THEN LET a = IN 

T ((k+l)/2) 

1985 NEXT k 

1990 IF a<=0 THEN GOTO 1960 
2000 IF l<>6 AND i05 AND 3=1 T 
HEN GOSUB 2540: PRINT AT 18,8; 
"Nao ha arcos': GOSUB 2410: GOT 
O 1910 

2010 IF a=4 THEN GOSUB 2440: R 
ETUHN 

2020 LET T(i,l)=a 

2030 IF a=3 THEN GOSUB 2050 

2040 RETURN 



1900 BEM AÇÍO 
1910 GOSUB 2540 

1920 LOCATE 0,19: PBINT "OPÇÕES: 

1930 FOB J-l TO 4 

1940 LOCATE 8,18+J:PRINT LEFTS ( 

03.2) ;--";0$(J) 

1950 NEXT J 

1960 A=0 

1965 FS="FHMS" 

1970 GS=INKEYS:IF GS="" THEN 19 
70 

1980 A-INSTRU .FS.GS) 
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1990 IF AOO THEN 1960 

2000 IF IOfi AND I<>5 AND A=l T 

HEN GOSUB 2540:LQCATE 8,19:PRIN 

T "SEM ARCOS" :G0SUB 2410:GOTO 1 

910 

2010 IF A-4 THEN GOSUB 2440:RET 
URU 

2020 T(I,1)-A 

2030 IF A=3 THEN GOSUB 2050 
204 0 RETURN 



no 

1900 HEM ACAO 

1910 GOSUB 2540 

1920 UTAB 21: PRINT "OPCOES: " 

1930 FOR J » 1 TO 4 

1940 HTAB 10: PRINT LEFTS {OS 



(J) ,1) - " ;OS(J) : : IF J < 4 T 

BEN PRINT " " 

1950 NEXT J: GOSUB 30000 

1960 FS - "FFAAMMSS" 

1970 GET GS 

1973 A - 0 

1975 FOR K - 1 TO 8 
1980 IF MIDS (F3.K.1) = GS TH 
EN A = INT ( (K + 1) / 2) 
1985 NEXT K 

1990 IF A < - 0 THEN 1970 
2000 IF I < > 6 AND I < > 5 
AND A - 1 THEN GOSUB 2540: PRI 
NT -NAO HA ARCOS" : GOSUB 30000: 

GOSUB 2410: GOTO 1910 
2010 IF A = 4 THEN GOSUB 2440 
: RETURN 
2020 T(I.l) " A 

2030 IF A - 3 THEN GOSUB 2050 
2040 RETURN 



GB 



Modificações para o TK-2000: 

1950 NEXT J 

2000 IF I < > 6 AND I < > 5 
AND A - 1 THEN GOSUB 2540: PBI 
NT "NAO HA AHCOS": GOSUB 2410: 
GOTO 1910 

O 

1900 REM SELECIONA ACAO 

1910 GOSUB 2540 

1920 DRAW"BM0.152':AS-"OPCOES 

" :GOSUB 3190 
1930 FOR J-l TO 4 
1940 DRAW"BM104,"+STRS<144+J"8) 



HM 
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:AS-LEFT3(0S(J) ,1)+" 
OSUB 3190 
1950 NEXT J 
1960 HEM 
1962 A-0 
1965 FS-"FAMS" 
1970 GS-INKEYS:IG GS-" 
70 



1980 A-INSTR(l.FS.GS) 
1990 IF AOO THEN 1960 
2000 IF I<>6 AND I<>5 AND A-l T 
HEN GOSUB 2540:DRAW"BM64.152":A 
S="NAO HA ARCOS-:G0SUB 3190:GOS 
UB 2410:GOTO 1910 
2010 IF A-4 THEN GOSUB 2440 : RET 
DUM 

2020 TÍI.D-A 

2030 IF A-3 THEN GOSUB 2050 
2040 BETUBN 

As linhas 1920 a 1950 mostram as op- 
ções na tela. As linhas 1965 a 1985 ob- 
têm a resposta do teclado e colocam o 
número equivalente à ordem seleciona- 
da na variável A: 0 é "fogo", 1 é "al- 
to", 2 é "marche" e 3 é "status". 

A ordem de atirar só será possível por 
meio de uma rotina do próximo artigo 
da série. As opções de marchar e de sta- 
tus serão dadas pelas próximas rotinas. 
A ordem "ALTO" não precisa de uma 
rotina especial, já que nada acontece 
com a unidade. O elemento da matriz 
da tropa que indica a direção em que se 
movimentava a unidade não deve ser 
modificado porque é utilizado na roti- 
na de combate. 

A linha 2020 coloca o valor da variá- 
vel A na matriz da tropa; o número da 
ordem corresponde ao primeiro elemen- 
to da matriz. 



UMA NOVA DIREÇÃO 



Se o jogador ordenar a uma unidade 
que se movimente, o programa solicita- 
rá uma direção. Esta rotina cuida das 
opções possíveis: 



2050 REM Direção 
2055 GOSUB 2540 

2060 PBINT AT 17,0;"Para onde ( 
N5L0) ?" 
2065 LET g-0 
2070 REM loop 

2080 LET gS-INKEYS: IF gS-"" TH 
EN GOTO 2080 

2090 IF CODE (gS)>90 THEN LET 

gS=CHBS (CODE (gS)-32) 

2095 FOB k-1 TO 4 

2100 IF iS(k)=g$ THEN LET g=k 

2105 NEXT k 

2110 IF g-0 THEN GOTO 2070 
2120 LET T(l,2)-g 
I 2130 BETUBN 



2050 BEM DIREÇÃO 
2055 GOSUB 2540 
2060 LOCATE 0,18:PRINT 1 
THEN 19 DE (NSLO)?" 

2065 G-0 
2070 BEM 
2075 REM 

2080 GS-INKEY$:IF GS = "" 



80 

2100 G-INSTR<1,IS.GS) 
2110 IF G-0 THEN 2070 
2120 T(I,2)-G 
2130 RETURN 



Kl 



2440 
2450 
2470 



2500 
$(T{ 
2510 
r$(m 
2520 
2530 
2560 



2050 REM DIREÇÃO 
2055 GOSUB 2540 

2060 VTAB 21: PH1NT "PARA ONDE 

(NSLO)?" 
2065 GOSUB 30000 
2070 G-0 
2080 GET GS 

2090 IF ASC (GS) > 90 THEN GS 

- CHR3 ( ASC (GS) " 32) 
2095 FOR K = 1 TO 4 
2100 IF MIDS (IS.K.l) - GS TH 
EN G ' K 
2105 NEXT X 
2110 IF G ■ 0 THEN 2070 
2120 T(I,2) " G 
2130 RETURN 

@] 

Modificações a fazer no programa: 
2065 REM 



HEM status 
GOSUB 2540 

PR [NT AT 18, 0 ; "Arna: " :uS 

3)) 

I PBINT AT 1 8, 15 ; "Armadura : 

l{T(i,4>) 

I PBINT AT 19.0;"Po<Jer: ";T 

PBINT AT 19,14:"Moral: ";i 
,5)) 

PRINT AT 20.0;"Terreno: " 
(T(i,B) ,T(i,9))*l) 
GOSUB 2410 
BETURN 

PRINT AT 17.0;"UN1DADE "; 
Tipo: ";tS(i) 



fiU 



2440 HEM STATUS 



2050 REM DIREÇÃO 
2055 GOSUB 2540 

2060 DHAW"BMQ,144":AS-"QUAL A D 
IRECAO NSLO ":G0SUB 31 

90 

2065 G-0 
2070 REM 

2080 GS=INKEYS:IF GS""" THEN 20 
80 

2100 G-INSTR(l.IS.GS) 
2110 IF GO0 THEN 2070 
2120 T(I,2)-G 
2130 BETURN 

A rotina verifica se a letra teclada pe- 
lo jogador é N, S, L ou O. Se for uma 
delas, a linha 2120 colocará o número 
do movimento equivalente no segundo 
elemento da matriz da tropa. 



Para conferir a situação de uma uni- 
dade, o jogador terá esta rotina. 




Illllllll 



41 PROGRAMAÇÃO DE JOGOS 41 



■Illllllll 



2450 GOSUB 2540 

2460 LO CATE 0,18: PRINT "UNIDADE 

-;I,-TIPO:-iTS(I) 

2470 LO CATE 0,19:PRINT " AH MA : " ; 

US(T(I,3)> 

2480 LOCATE 15.19:PBINT " ARMADU 
RA:"jA$(T(T,4)) 

2490 LOCATE 0,20:PRINT "PODER:" 
iT(I.7> 

2500 LOCATE 15,20:PRINT "MORAL : 
":M$<T(I,5)) 

2510 LOCATE 0.20:PRINT "POSICSO 
:"rR$(M<T(I.B} ,T(I,9) )+l) 
2520 GOSUB 2410 
2530 RETURN 



2440 REM STATUS 
2450 GOSUB 2540 

2460 VTAB 21: PRINT "UNIDADE * 

;Ii*.";"TIPO: "TSU) 

2470 PRINT "ARMA : ";WS(T(I.3)> 



2480 PRINT "ARMADURA : "|A$(T(I 

,4)) 

2490 PRINT "PODER: ";T(I,7);". 

2500 PRINT "MORAL: "(M» (TU. 5) 

2510 PRINT "TERRENO: "iR$(M{T( 
1,8) ,T(I,9)) + 1) 

2520 GOSUB 2410 

2530 RETURN 



Modificações para o TK-2000: 

2545 HCOLOR= 0: FOR ER - 160 T" 

O 191 

2546 HPLOT O.ER TO 279. ER: NEX 



Q 

2440 REM STATUS 



2450 GOSUB 2540 

2460 DRAW" BM0.144":AS* "UNIDADE " 
+STRS(I)+" TIPO "+T3(I):GOSU 
B 3190 

2470 DRAWBM0.152":A$-"ARMA "+W 

$(T(I, 3) ) : GOSUB 3190 

2480 DRAW."BM120.152":AS-"ARMADU 

RA •+A$(T(I,4)) :GOSUB 3190 

2490 DRAW"BM0,160":AS-"PODER "+ 

SR3(TU.7)) :GOSUB 3190 

2500 DRAW"BM120,160":AS-"MORAL 

"+M3(T(I,5)) :GOSUB 3190 

2510 DRAW"BM0,168":AS-"TERRENO 

"+RS(M(T(I.B) ,TU,9) )+l) :GOSUB 

3190 

2520 GOSUB 2410 
2530 RETURN 



Todos os elementos pertencentes à 
matriz da tropa (ou as palavras corres- 
pondentes) que se referem à unidade que 
o jogador está querendo conferir são 
mostrados na tela. 
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O EFEITO DAS ORDENS 



Esia rotina informa ao jogador quan- 
do cada unidade obedece às ordens. 



10Z0 REM cumpre 

1030 FOR l-l TO 16 

1032 IF t(i,l)>3 THEN GOTO 114 



1040 LET Cl-l! IF 1>B THEN LET 

cl-2: INK cl 
1050 IF T(i.l)-3 THEN LET b-1 : 

GOSUB 1160 
1055 IF T(i,l)-2 THEN GOTO 114 
0 

1060 IF T(i,l)-1 THEN LET ah-i 

: GOSUB 1710: GOTO 1140 

1070 FOR f— 1 TO 1 

1080 FOR ç—l TO 1 

1090 FOR e-1 TO 16 

1100 IF (T(i,8)+£=T(e,8)) AND ( 

T(i,9)+9=T(e.9) ) AND T(e,ll<>5 

THEN LET us=i : LET th=e : GOSUB 

1510 
1110 NEXT e 
1120 NEXT 9 
1130 NEXT f 
1140 NEXT i 
1150 RETURN 



SUB 30000 

1040 LET CL - 0: IF 1 > 8 THEN 
CL - 5 

1050 IF TU.l) - 3 THEN B - I: 

GOSUB 1160 
1055 IF T(I,1) ■ 2 THEN 1140 
1060 IF TU.l) = 1 THEN 9H = I 
: GOSUB 1710: GOTO 1140 
1070 FOR F - - 1 TO 1 
1080 FOR G - - 1 TO 1 
1090 FOR E - 1 TO 16 
1100 IF (TU, 8) + F - T tE , 8) ) 
AND (TU. 9) + G - T(E,9)) AND T 
(E,l) < > 5 THEN US - I:TH - E 
: GOSUB 1510 
1110 NEXT E 
1120 NEXT G 
1130 NEXT F 
1140 NEXT I 
1150 RETURN 

Modificações necessárias: 



1020 REM CUMPRE 
1030 FOR 1-1 TO 16 
1032 IF T(I.1)>3 THEN 1140 
1035 GOSUB 2540:LOCATE 0,1B;PRI 
NT "UNIDADE- ; I ; "OBEDECE" 
1040 IF TU,1)>3 THEN 1140 
1050 IF T(I,l)-3 THEN B=I: GOSUB 
1160 

1055 IF TU. 11=2 THEN 1140 

1060 IF T(I,1)-1 THEN SH-I:GOSU 

B 1710:GOTO 1140 

1070 FOR F=-l TO 1 

1080 FOR G--1 TO 1 

1090 FOR E-1 TO 16 

1100 IF (TU.8)+F-T{E,8)) AND (T 

(I.9)+G-T(E,9>) AND T(E,1K>5 T 

HEN US-I:TH-E:GOSUB 15)0 

1110 NEXT E 

1120 NEXT G 

1130 NEXT F 

1140 NEXT I 

1150 RETURN 



1020 REM CUMPRE 

1030 FOR I - 1 TO 16 

1032 IF T(I.l) > 3 THEN 1140 

1035 GOSUB 2540: VTAB 21: PRIN 

T "A UNIDADE ";I;" OBEDECE" : GO 



El 



busca de tropas inimigas (linhas 1070 a 
1 150). Se alguma delas for encontrada, 
será chamada a rotina de combate, que 
apresentaremos no próximo artigo. 



A VEZ DO COMPUTADOR 



Por enquanto, o computador dará 
ordens ao acaso. Na última parte desta 
série, veremos como transformá-lo em 
um adversário inteligente. A rotina se- 
guinte limita-se a tornar o programa 
possível de ser jogado. 



2140 REM inimigo 

2150 LET T(e,2>«3 

2160 LET T(e.l)-FN r(3) 

2170 IF T(e,l)-1 AND T(e,3)<>2 

THEN GOTO 2160 

2180 IF T{e.l)-3 THEN IV FN r( 
21=1 THEN LET T(e.2)=FN r(4) 
2190 RETURN 



fffi 



1020 REM CUMPRE 

1030 FOR 1-1 TO 16 

1032 IF T(I,1)>3 THEN 1140 

1335 COLOR 4;GOSUB 2540:DRAW "B 

MO, 144* :AS-"UNIDADE"+STR$(I)+"E 

NT RA EM ACAO ! " :GOSUB 3190 

1040 CL-3:IF I>8 THEN CL-4:COLO 

R CL 

1050 IF T(I.l)-3 THEN B-1: GOSUB 
1160 

1055 IF T(I,1)=2 THEN 1140 

1060 IF T(I,1)-1 THEN SH-I:GOSU 

B 1710:GOTO 1140 

1070 FOR F--1 TO 1 

1080 FOR G— 1 TO 1 

1090 FOR E-1 TO 16 

1100 IF (T(I.8)+F-T(E.8)) AND I 

TU.9)+G-T(E.9)1 AND T(E.1K>5 

THEN US-l:TH-E:GOSUB 1510 

1110 NEXT E,G,F 

1140 NEXT I 

1150 RETURN 

O funcionamento dessa rotina é par- 
ticularmente simples. Ela toma cada 
uma das unidades e executa as ordens. 
Só haverá combate se uma das unida- 
des se mover (a que se moveu por últi- 
mo é considerada atacante). Quando 
uma ordem de "alto" é detectada, tu- 
do permanece como está, passando-se à 
próxima opção. Quando ordens de "fo- 
go" são encontradas, a rotina de tiro é 
chamada. Se as ordens forem de "mar- 
che", será chamada a rotina MOVE. 

Após a realização de um movimen- 
to, a rotina verifica as posições adjacen- 
tes à nova localização da unidade em 



2140 REM INIMIGO 

2150 T(E,2)-3 

2160 T(E,1)-FN RO) 

2170 IF T(E,1)-1 AND T(E.3)<>2 

THEN 2160 

2180 IF T(E,2)-3 THEN IF FN R (2 
)-l THEN T(E,2)-FN R(4) 
2190 RETURN 



GB El 



2140 REM INIMIGO 

2150 T(E,2) - 3 

2160 T(E.l) - FN R(3) 

2170 IF T(E.l) - 1 AND T(E,3) 

< > 2 THEN 2160 

2180 IF T(E.l) = 3 THEN IF F 
1 THEN T(E, 2) - FN R( 



N R(2) 
4) 

2190 RETURN 

El 



2140 REM INIMIGO 

2150 T(E,2)«3 

2160 T(E.1)-RND(3) 

2170 IF T(E,1)-1 AND T(E.3)<>2 

THEN 2160 

2180 IF T{E,l)-3 AND RND(2)-1 T 
HEN T(E.2)-RND(4) 
2190 RETURN 

A rotina gera um número aleatório 
na linha 2160 que decide o tipo de açào 
das unidades do computador na joga- 
da. Se o computador decidir mover al- 
guma unidade, haverá uma tendência ao 
movimento em direção sul (linha 2150). 



23 APUCACÓÍS 23 



GRÁFICO 



COMO DESENHAR 



AJUSTE A ESCALA 



COMO AMPLIAR E REDUZIR 
DETALHES ESCONDIDOS 



DESENHOS DE PRECISÃO 



O programa deste artigo pode reduzir 
um desenho a proporções diminutas 
ou expandi-lo em escala astronómica. 
Utilize o como jogo ou para 
realizar desenhos muito detalhados. 



O programa que acompanha este ar- 
tigo é muito mais divertido do que os 
programas aplicativos habituais. De fa- 
to, ele pode ser usado, seja como jogo, 
seja como aplicação. 

Ele permite desenhar e, em seguida, 
ampliar ou reduzir, até um nível micros- 
cópico, partes de uma figura para ob- 
ter maiores detalhes. É possível, além 
disso, mudar a escala a qualquer mo- 
mento, usando ampliações de milhares 
de vezes ou até mesmo de centenas de 
milhares. Assim, uma enorme quantida- 
de de detalhes que seriam imperceptíveis 
a olho nu numa Figura de proporções re- 
duzidas aparece de modo bem claro 
quando ela é submetida a uma amplia- 
ção por meio de um zoom. 

Imagine-se com um poderoso micros- 
cópio, penetrando cada vez mais em di- 
reção à estrutura da imagem. Os deta- 



lhes desta aparecerão à medida que a 
ampliação for aumentando e, inversa- 
mente, desaparecerão quando ela sofrer 
uma redução de certa magnitude. 

Para tornar ainda mais claro esse 
processo, podemos considerar o seguin- 
te exemplo: se começarmos a fotogra- 
far nossa casa e nos afastarmos pouco 
a pouco até uma distância de centenas 
de milhares de quilómetros, os objetos 
— primeiro a casa, depois a rua, o bair- 
ro, a cidade, o pais e mesmo a Terra — 
desaparecerão gradualmente das ima- 
gens retidas pela câmara. Tais efeitos 
gráficos podem ser conseguidos com o 
programa deste artigo. 

Uma maneira de usar o programa é 
transformá-lo em um jogo para duas 
pessoas. Uma delas faz um desenho que 
esconde, em algum lugar discreto, um 
"tesouro", de tamanho diminuto. A ou- 
tra deve procurar o tesouro. Essa tare- 
fa pode se revelar surpreendentemente 
difícil. Imaginemos que o jogador co- 
mece sua busca em um quadrado de 10 
cm de lado. Se este for ampliado 5 000 
vezes, o quadrado original se transfor- 
mará em uma área enorme de cerca de 
250 000 m 2 — espaço suficiente para 
esconder qualquer coisa. 



O programa se presta ainda a aplica 
ções em diferentes áreas profissionais 
Desenhos minuciosos, por exemplo, po 
dem ser produzidos traçando-se os de 
talhes em uma escala de grandes propor 
ções e depois reduzindo-se a figura pa 
ra um tamanho normal. Desenhos téc- 
nicos muito precisos podem ser obtidos 
trabalhando-se em um setor de cada vez. 
O programa também é útil como ele- 
mento de apoio no campo peda- 
gógico. Tomemos como exemplo 
uma lição geográfica. A posição 
das maiores cidades pode ser 
marcada no mapa em uma esca- 
la muito reduzida. No tamanho 
normal, ficariam só como pon- 
tos residuais e apareceriam em 
detalhe apenas quando se usasse 
um zoom no local adequado. 

O programa oferece também 
a possibilidade de se es- 
crever nomes. Embora 
não permita o uso de le- 
tras normais, é possível 
desenhá-las. Para isso, 
recorra a uma escala 
bem grande e depois re- 
duza as letras para o ta- 
manho adequado. 



Y. 
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você pudera olhar através da vidraça... 



s verificar que há um livro sobre a r 



COMO EXECUTAR 0 PROGRAMA 



Ao ser executado, o programa apre- 
sentará a tela em branco e um pequeno 
cursor no centro dela. Você encontrará 
também dois números: o da esquerda in- 
dica a escala da tela atual — 1 para 
meçar; o da direita mostra o número de 
linhas desenhadas. Esse número é limi- 
tado a um máximo de seiscentos no iní 
cio do programa, que é controlado pe 
lo teclado e muito fácil de usar. 

No MSX. no Spectrum e no TRS 
Color, o cursor é controlado pelas se- 
tas do teclado. Nos outros micros, as te- 
clas são: I, para cima; M, para baixo; 
J, para a esquerda e K, para a direita. 
Pressionando-se simultaneamente essas 
teclas — <SYMBOL-SHIFT> no 
Spectrum, ou < CLEAR > no TRS- 
Color — acelera-se o cursor. 

As outras teclas usadas são L, M, C, 
D, E, S e Z. Veja o que elas fazem: L 
desenha uma linha junto ao cursor; M 
move o cursor sem desenhar (nos micros 
da linha Apple, use ; em vez de M para 
mover o cursor). Pressionar C leva o 
cursor ao centro da tela; D cancela li- 
nhas. O número de linhas a ser apaga- 
do será perguntado pelo computador. 
Pressione S para ter acesso a um arqui- 
vo de saída que permita a armazenagem 
de seu desenho em disco ou fita. 

Agora, a parte mais interessante. A 
tecla Z (para zoom) permite a alteração 
da escala. É digitada sempre com um 
número: 2, por exemplo, dobra a escala 
e 0.5 a reduz ao meio. O desenho é refei- 
to na nova escala e centrado no cursor 
Assim, você deve deixar o cursor sem 
pre no meio da área que deseja ampliar 

Usar 0 como escala não altera o de- 
senho, enquanto 1 redesenha a figura 
centrada no cursor, reproduzindo-a na 
escala anterior (no Apple, 0 centra o de- 
senho e 1 retorna a imagem para a es- 
cala 1). Um número negativo produz 
uma imagem em espelho do desenho. As 
mudanças de escala são cumulativas. 



Assim, um aumento de 2 seguido de ou- 
tro de 2 leva a ampliação para 4. 

Note que uma escala muito pequena 
no TRS-Color, como 0.0001, é conver- 
tida para 10E-4, mas aparece na tela co- 
mo 104. Esta é uma limitação da rotina 
que desenha números na tela e não afe- 
ta a maneira com que o desenho é feito. 



10 DEF FN alx)=(x/256)+12S 
20 DEF FN b(x)=(x/256)+65 
30 BORDER 0; I NK 7: PAPER 0: 
CLS 

50 LET ln-l: LET ac-1 : LET 1- 
600 

60 LET f-0: LET x-0 : LET yO: 
LET 70om-l 

70 DIM a(l+l): DIM b(l): DIM 
c(l) : DIM dfl) 
90 LET a(l)=x: LET b(l>-y 
90 LET c(l)-x: LET d(l)-y 
100 LET 1S-INKEYS 
110 IF iS="l" AND f AND l>ln 
THEN SOUND 0.1,0: PLOT FN ala 
(lnH.FN btbtln)): DRAW FN a(c 
(ln)l-PEEK 23677. FN b(d(ln))- 
PEEK 23678: LET ln-ln+1: LET a 
(ln)=x: LET btln)<*y: LET ctln) 
■x: LET d(ln)=y: LET f-0 
120 IF iS-"c" THEN LET x-0: 
LET y = 0: LET e(ln)=x: LET d Un 

)-y 

130 IF i5 = "ni" THEN LET a(ln)= 
x: LET b(ln)=y 

140 IF THEN GOSUB 420 

150 IF jS="o" THEN GOSUB 600 
160 IF i3-"d" THEN GOSUB 710 
170 IF i$-~z" THEN LET 1 v-0 : 
GOSUB 840 

180 LET Bp=256: IF CODE INKEY5 

<=41 THEN LET hp=2048 

190 IF 1NKEYS=" 6" OP. INKEYS="( 

" AND x>-32768+ap THEN LET f- 

1: LET x-x+ap: LET c(ln)-ctln) 

+sp 

200 IF INKEYS-"5" OR INKEYS-" l 
" AND x<326/8-ap THEN LET f— 
1: LET x-x-bp: LET cUn)-c(ln) 
-ap. 

210 IF INKEY$-"7" OR INKEY$=" 1 



" AND y>-224004- B p THEN LET f- 
-1: LET y-y+Hp: LET d(ln)=d(ln 
)+ap 

220 IF INKEYS-"6" OR INKEY$-"l 
' AND y<22400-ap THEN LET f=J 
: LET y-y-ap: LET d (ln) -d (ln) - 
ap 

230 GOSUB 250 
240 GOTO 100 

250 PRINT AT 1.2; INVERSE Lj ■ 
ESCALA:";: LET aS=STRS ac : IF 
LEN aS>4 THEN LET aS=aS ( TO 4 
) 

255 PRINT INVERSE liaSiAT 1, 

18:" LINHAS:"iln-l 

280 LET bx = FN a(a(ln)): LET by 

=FN b(b(ln)): LET ex=FN a(c(ln 

) ) : LET ey-FN b(díln) ) 

290 PLOT bx.by: PLOT ex.ey 

310 PLOT OVER l.bx.by: PLOT 

OVER l;ex,ey 

320 RETURN 

420 CLS 

430 INPUT "NOME DO ARQUIVO ?"; 
f9 



BC-1 

460 LOAD fS DATA a() 
470 LOAD fS DATA b() 
480 LOAD £3 DATA c(] 
485 LOAD fS DATA d O 
490 LET ln=a(601) 
590 RETURN 
600 CLS 

610 INPUT "NOME DO ARQUIVO ?"; 
fS 

615 IF fS~"" THEN GOTO 610 
620 LET lvli GOSUB 840 
625 LET a(601)=ln 
630 SAVE fS DATA a O 
640 SAVE fS DATA b() 
650 SAVE E$ DATA cO 
660 SAVE fS DATA d O 
700 RETURN 

710 INPUT "NUMERO DE LINHAS A 
APAGAR ?"'k 

750 IF k=0 OR ln-k<=0 THEN 

GOTO B30 

755 LET ln=ln-k 

760 LET x=a(ln>: LET y=b(ln) 

780 CLS 

790 LET c(ln)=x: LET d(ln)=y 
BOO IF ln^l THEN GOTO 830 
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810 IF ABS (C<ln-m<32767 AND 

ABS (d(ln-l)><22399 THEN LET 

X-0: LET Y-0 

820 LET lv-2: GOSUB 840 

830 BE TU RN 

640 IF ln=0 THEN HETURN 

BSO IF lvl THEN LET zoob=1/ 

ac: CLS : GOTO 920 

B60 IF lv=2 THEN LET ioo«»l: 

GOTO 920 

B70 SOUND .1,10: INPUT "DIGITE 
A ESCALA - 2O0M "ízooki 
890 IF zooo-0 THEN GOTO 1020 
910 CLS 

920 FOR u-1 TO ln-1 
930 LET a{u)=(a(u)-x)*zoom: 
LET b(u)"(b{ii)-y)*íoom 
940 LET c (u) = (c (u) -x) "zoom: 
LET d (u) - (d (u) -y) -zoom 
950 IF ABS <a(u>)<32768 AND 
ABS (b(u))<22400 AND ABS (c (u) 
X32768 AND ABS (ó , (u>)<22400 
THEN PLOT FN a(a{u)).FN btb(u 
)): DBAW FN a(cíu) ) -PEEK 23677 
.FN b(d(u) J-PEEK 23678 
960 NEXT u 

970 LET a(u}=(a{u)-x)*zoom: 

LET b(u) = lb(u)-y)"zooni 

980 LET c(u)Mc<u)-x)*zoom: 

LET d (u) ■ (d (u) -y) «zoom 

990 LET x=c(ln): LET y=d(ln) J 
1000 IF ABS U(ln>)>32767 OR AB. 
S <b(ln))>22399 THEN LET a(ln)' 
=x: LET b(ln)=y 
1010 LET BC=Bc«zoom 
1030 HETURN 



10 PM ODE 4,1: COLOR 0 , 1 : PCLS : SCR 
EEN 1.0:V-247 

20 DIM NUS(10):FOB 1-0 TO 10:RE 
AD NUS(I) : NEXT 
30 DEF FN A(X)MX/256)+128 
40 DEF FN B(X)MX/256)+96 
50 LN-0:SC-1 :L-600 
60 X-0:Y=0:ZOOM-1 
70 DIM BX ( L ) , BY ( L ) , EX ( L ) , EY ( L ) 
80 BX(0)-X:BY(0)-Y 
90 EX(0)-X:EY<O)-Y 
100 IS-INKEYS 

110 IF IS="l" AND F AND L>LN TH 

EU LINE (FNA (BX (LN) ) , FNB (BY (LN) ) 

)-(FNA(EX(LN)) , FNB (EY ( LN) ) ) , PSE 

T : LN-LN+1 : BX (LN) "X : BY ÍLN) =Y : EX ( 

LN)=X:EY(LN)=Y:F-0 

120 IF IS="C" THEN X-0:Y=0:EX(L 

N)=X:EY(LN)-Y 
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680 CLOSE #-1 
690 SCREEN 1 , 0 
700 RETURN 
710 CLS 

720 PHINT 6256. "QUANTAS LINHAS 
QUER APAGAR "j 
730 INPUT K 
740 SCREEN 1,0 

750 IF K-0 OR LN-K<0 THEN 830 

760 LN-LN-K 

770 X-BX(LN) : Y-BY (LN) 

760 PCLS 

790 EX(LN) -X:EY (LN) -Y 

800 IF LN-0 THEN 830 

810 IF ABS(EX(LN-1))<32767 AND 

ABS(EY(LN-1))<24576 THEN X-0:Y- 

0 

820 LV-2:GOSUB 840 

830 SCREEN 1.0:RETURN 

840 IF LN-0 THEN RETURN 

850 IF LV-1 THEN ZOOM- 1 /SC : PCLS 

:GOTO 920 

860 IF LU-2 THEN ZOOM-1:GOTO 92 
O 

870 CLS 

880 PRINT §256," DIGITE A ESCAL 

A / ZOOM " ; 

890 INPUT ZOOM 

900 IF ZOOM-0 THEN 1020 

910 PCLS: SCREEN 1,0 

920 FOR U-0 TO LN-1 

930 BX (U) - (BX (U) -X) «ZOOM: BY (U) - 

(BY (U) -Y) "ZOOM 

940 EX (U) - (EX (U) -X) «ZOOM: EY (U) - 
(EY (U) -Y) «ZOOM 

950 IF ABS {BX (U) X32768 AND ABS 
(BY(U))<24576 AND ABS{EX(U))<3 
2766 AND ABS (EY (U) X245 76 THEN 
LINE (FNA(BX (U) ) , FNB (BY (U) ) ) - ( FN 
A(EX(U)) , FNB (EY (U) ) ) , PSET 
960 NEXT 

970 BX(U)-(BX(U)-X)*ZOMM:BY(U)- 
(BY(U)-Y)*ZOOM 



980 EX(U)-(EX(U)-X)*ZOOM:EY(U)- 

(EY (U) -Y) «ZOOM 

990 X-EX(LN) : Y-EY (LN) 

1000 IF ABS{BX(LN))>32767 OR AB 

S(BY(LN))>24576 THEN BX(LN)-X:B 

Y{LN) -Y 

1010 SC-SC*ZOOM 
1020 SCREEN 1.0 
1030 RETURN 



5 LOMEM: 16384 

10 HGR : HCOLOR= 3: HOME : DS = 

CHRS (13) + CHR5 (4) 
30 DEF FN A(X) = (X / 256) + 
128 

40 DEF FN B(X? = {X / 256) + 
96 

50 LN = 0:SC - 1:L = 600:LM = 8 
192 

60 X = Q:Y = 0:ZOOM ■= 1:SP = 25 
6 

70 DIM BX(L) ,BY(L) , EX (L) ,EY(L) 

80 BX(0) = X:BY(0) = Y 
90 EX (0) = X : EY (0) = Y 
95 COSUB 240 
100 GET IS 

110 IF IS = *L" AND F AND L > 
LN THEN HPLOT FN A {BX (LN) ) , F 
N B (BY (LN) ) TO FN A (EX (LN) ) , F 
N B (EY (LN) ) : VTAB 21 : LN - LN + 
1:BX{LN) = X : BY (LN) = Y : EX (LN) 
= X : EY (LN) > 1 : F - 0:M1 - 0:M2 
= O: GOSUB 320 

320 IF TS = "C THEN X = 0:Y = 

0:EX(LN) - X : EY (LN) * Y 
130 IF IS = ";" THEN BX (LN) = 
X:BY(I.N) = Y 

140 IF IS - "E" THEN GOSUB 42 
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150 IF 13 = "S" THEN G03UB 60 
0 

160 IF IS ■ "D" THEN GOSUB 71 
D 

170 1F IS - "Z" THEN LU = 0 : G 
OSUB 840 

1B0 IF IS ■ "J" AND X > - 327 
68 THEN F- - J:S ■ X - 8P:BX( 
LN) - EX(LN) - SP 
190 IF IS ■ "K" AND X < 32768 
- SP THEN F " - 1:X - X + SP : E 
X(LN) = EX([.N) + SP 
.200 IF IS = "I" AND Y > - 245 
76 + SP THEN F" - 1:Y = Y - S 
P : EY (LN) - EY (LN) - SP 
210 IF 13 - "M" AND Y < 16128 
THEN F = - 1;T - 1 + SP:E¥(LN) 

- EY (LN) + SP 
220 GOSUB 240 
230 GOTO 100 

240 IF M < > O THEN POKE M,M 
E: POKE MO .MA 

245 VTAB 21: HTAB 1: CALL - 9 
5B: PBINT "ESCALA: " ; SC. "LINHAS: 
" i LN 

250 BX - FN A(BX{LN)):BY - FN 
B(BY(LN)):EX = FN A(EX(LN)):E 
Y - FN B(EY{LN) ) 

260 LX - INT (EY / 64) :CX - I 
NT (EY / 8) - <B * INT (EY / 6 
4)):TX - EY - (6 • INT (EY / 8 

) ) 

270 M - LM + (LX * 40) + (CX * 

128) + (TX * 1024) 

280 M - M + ( INT (EX / 7) ) 

290 LX - INT (BY / 64):CX - I 

NT (BY / 8) - (8 * INT (BY / 6 

4) ) :TX - BY - (8 * INT (BY / 8 

) ) 

300 MO - LM + (LX * 40) + (CX * 

128) + (TX * 1024) 
310 MO = MO * I INT (BX / 7)) 
320 IF M < > Ml THEN Ml = M:M 
E « PEEK (M) 

330 IF MO < > M2 THEN M2 - MO 

l MA = PEEK (MO) 

340 HPLOT EX , EY ; HPLOT BX . BY 

350 RETURN 

420 TEXT ! HOME 

430 INPUT "NOME DO ARQUIVO A S 
ER LIDO:";FS 

440 LN ■ O : ZOOM = l : SC = 1 
450 HGR 

460 PR TNT DS;"OPEN " ; FS 

470 PRTNT D0;"HEAD " ; FS 

480 INPUT LN 

490 FOR U = 0 TO LN - 1 

500 INPUT 8X(U) ,BY(U) . EX (U) . EY 

(U) 

520 IF ABS (BX(U)) < 32768 AN 
D ABS (BY(U)) < 24576 AND ABS 
(EX(U)) < 32768 AND ABS (EY(U 
)) < 24576 THEN HPLOT FN A(BX 
(U)). FN B(BY(U)) TO FN A(EX(U 
)) , FN B(EY(U) ) 
530 NEXT 

540 INPUT BX(U) ,BY(U) , EX (U) > EY 
(U) 

560 X - EX(LN):Y ■ EY (LN) 
570 PR. INT DS; "CLOSE" 
590 RETURN 
600 TEXT ! HOME 



610 INPUT "NOME DO ARQUIVO A 3 

ER GRAVADO:" ;F3 

620 LV - 1 : GOSUB 840 

630 PR INT D3;"OPEN "|F9 

635 PRINT DSi"WHITE " : FS 

640 PRINT LN 

650 FOR U - 0 TO LN 

660 PRINT BX(U): PRINT BY(U): 

PRINT EXIU): PRINT EY (U) 

670 NEXT 

680 PRINT DS; "CLOSE" 

700 RETURN 

710 TEXT : HOME 

720 INPUT " QUANTAS LINHAS QUER 

APAGAR? ";K 
750 IF K ' O OB LN - K í 0 THE 
N B30 

760 LN - LN - K 

770 X =■ BX(LN):Y - BY (LN) 

780 HGR 

790 EX (LN) = X : EY (LN) = Y 

800 IF LN » 0 THEN 830 

810 IF ABS ( EX ( LN - 1 ) ) <■ 227 

67 AND ABS (EY (LN - D) < 2457 

6 THEN X - 0:Y - 0 

820 LV - 2: GOSUB 640 

830 RETURN 

840 IF LN = O THEN RETURN 
850 IF LV - 1 THEN ZOOM = 1 / 
SC: GOTO 910 

B60 IF LV = 2 THEN ZOOM - 1; G 

OTO 910 

870 VTAB 23 

880 INPUT "ESCALA DO ZOOM ? "| 
ZOOM 

900 IF ZOOM » 1 THEN LV - li G 
OTO 850 

905 IF ZOOM - 0 THEN ZOOM - 1 
910 HGR 

920 FOR U - 0 TO LN - 1 
930 BX(U) = (BX(U) - X) * ZOOM: 
BY(U) = (BY(U) - Y) * ZOOM 
940 EX(U) = (EX(U> - X) * ZOOM: 
EY(U) ■= (EY(U) - »)■ * ZOOM 
950 IF ABS (BX(U)) < 3276B AN 
D ABS [BY(U)> < 24576 AND ABS 
(EX(U)) < 3276B AND ABS (EY(U 
)) < 24576 THEN HPLOT FN A(BX 
(Ul). FN B(BY(U)) TO FN AIEX(U 
) ) , FN B(EY(U) ) 
960 NEXT 

970 BX(U) = (BX(U) - X) * ZOOM : 

BY(U) = (BY(U) - Y) ■ ZOOM 

980 EX(U) - (EX(U) - X) * ZOOM: 

EY(U) - (EY(U) - Y) * ZOOM 

990 X - EX(LN):Y - EY (LN) 

1000 IF ABS (BX (LN) ) > 32767 

OR ABS (BY (LN) ) > 24576 THEN B 

X(LN) - X :BY (LN) - Y 

1010 SC - SC * ZOOM 

1030 RETURN 



5 MAXFILES=2:CLEAR 2000 

10 OPEN "GRP : " FOR OUTPUT AS II 

20 DEFFNA(X)=(X/256)+12B 

30 DEFFNB (X) ■ (X/256) +96 

40 LN=0:SC=1:L=600:SP=256 

50 X=0:Y=0:ZOQM=1 

60 D1M BX ( L) , BY (L) , EX ( L) , EY [ L) 

70 BX(0)=X:BY(0)=Y 



80 EX(0 
90 GOSUI 
100 15- 
110 IF 
EN LINE 
) ) - ÍFNA 
! LN=LN 
N)=X:EY 
120 IF 
N) =X:EY 
130 IF 
LN) =Y 
140 IF 
150 IF 
160 IF 
170 IF 



)-X:BY(0)-Y 
B 1200 
NKEYS 

S="L" AND F AND L>LN TH 
(FNA(BX(LN)l , FNB (BY (LN) 
(EX (LN) ) . FNB (EY (LN) } ) , 15 
l:BX(LN)=X:B¥(LN)-í:EX(L 
(LN)=Y:F=0 

THEN X=0:Y=0:EX(L 

(LN) =Y 

IS-"M~ THEN BX(LN)=X:BY( 

IS = "F." THEN GOSUB 420 

IS C "S" THEN GOSUB 600 

IS="D" THEN GOSUB 710 

IS*="Z" THEN LV=0:GGSUB E 
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1B0 IF IS=CHRS(29) AND X > -327 
68! + SP THEN F = -l : X=X-SP : EX (LN 
)-EX(LN)-SP 

190 IF 1S=CHRS(2B) AND X < 3276 
8! -3P THEN F=-1:X=X+SP:EX(LN)= 
EX(LN)+SP 

200 IF IS=CHRS(30) AND Y>- 24576 
+SP THEN F=-1:Y=Y-SP:EY(LN)=EY( 
LN) -SP 




210 IF IS-CHBSÍ31) AND Y<24576- 
SP THEN F=-1:Y-Y+SP:EY(LN)=EY(L 
N)+SP 

220 GOSUB 250 
230 GOTO 100 

250 BX-FNA(BXILN)) : BY-FNB (BY (LN 
)) : EX=FNA {EX (LN) ) i EY=FNB (EY (LN) 
) 

260 PUT SPBITE 1 . (BX-4 , BY-4) , 15 
.1 

270 PUT SPRITE 2 . (EX-4 , EY-4 ) , 15 
,1 

280 LINE (10.180)-(255,191) ,4,B 

F 

290 PRESET (10,180) : PRINTÈl , "ES 
C: " iSC; " LIN: " ; LN 
300 RETURN 
420 SCREENO 

430 INPUT"NOME DE ARQUIVO A SER 

CARREGADO : " ; FS 
440 LN=0:ZOOM=1:S01:GOSUB 1200 
450 FS="CAS:*+FS 
460 OPEN F3 FOR 1NPUT AS 12 
470 INPUT ÍZ.LN 
490 FOR U=0 TO LN~1 
500 INPUT »2.BX,BY,EX.EY 
510 BX(U)-BX:BY(U)=BY:EX(U)-EX: 
EY(U)=EY 

520 IF ABS(BX(U)X32768! AND AB 
S(BY(U) K24576 AND ABS[EX(U))<3 
2768! AND ABS (EY (U> X24576 THEN 
LINE (FNAIBX (U) ) . FNB (BY (U) ) ) - (F 
NA(EX(U) ) , FNB (EY (U) ) ) . 15 
5 30 NEXT 

540 INPUTI2, BX , BY , EX , EY 

550 BX(U)-BX:BY(U)«BY:EX(U)-EX: 

EY (U) =EY 

560 X=EX (LN) : Y=EY (LN) 
570 CLOSE «2 
590 RETURN 
600 SCREENO 

610 INPUT-NOME DE ARQUIVO PARA 

GRAVAR: " ; FS : FS="CAS : "+FS 

620 LV=J :GOSUB 120O:GOSUB B40 

630 OPEN FS FOR OUTPUT AS |2 

640 PRINT|2.LN 

650 FOR 11=0 TO LN 

660 PBTNT|2.BX(U) ,BY(U) ,EX(U) ,E 

Í(U) 

670 NEXT 
680 CLOSE 12 
700 RETURN 
710 SCREENO 

720 1NPUT"QUER APAGAR QUANTAS L 

INHAS" ; K 

730 GOSUB 1200 

750 IF K=0 OR LN-K<0 THEN B20 
760 LN=LN-K 



770 X=BX(LN) : 
790 EX(LN)=X:1 
800 IF LN=0 ' 



: Y=BY(Ln: 
: : EY (LN) =Y 
THEN 830 
SilO IF ABS (EX (LN-1 ) K32767 AND 
ABS(EYUN-1))<24576 THEN X=0:Y= 
0 

B20 LV^2:GOSUB B40 
830 RETURN 

840 IF LN=0 THEN RETURN 
850 IF LV=1 THEN ZOOM = L/SC : GOTO 
920 

B60 IF LV = 2 THEN ZOOM=l : GOTO 92 
0 

870 SCREENO 




IDÉIAS PARA O JOGO 

Quando você usar o programa apre- 
sentado neste artigo como um jogo. a 
tarefa mais difícil será fazer com que 
o "tesouro" oculto na figura não apa- 
reça como uma mancha muito Obvia 
para quem o está procurando. 

Existem, para isso, vários truques. 
Um deles consiste em executar um de- 
senho bem elaborado e ocultar o tesou- 
ro em um dos detalhes. A dificuldade 
será ainda maior se você desenhar os 
detalhes em diferentes graus de am- 
pliação. Isso obrigará seu oponente a 
também utilizar vários graus de amplia- 
ção na procura do tesouro. 

Outro truque é a inclusão, no dese- 
nho, de pequenos detalhes parecidos 
com o tesouro, quando se utilizam as 
reduções. Seu oponente terá que inves- 
tigar um a um, perdendo precioso tem- 
po com isso. 

A diversão será maior se você ado- 
tar alguma forma de contagem de pon- 
tos. Verifique, por exemplo, o número 
de vezes que o jogador muda a escala 
de aumento, ou o número de movimen- 
tações que ele precisa fazer até achar 
o tesouro. Outra alternativa é medir o 
tempo transcorrido entre o inicio e o fim 
da busca. 



80 INPUT "ESCALA DO ZOOM:' 



; ZOO 



890 GOSUB 1200 

900 IF ZOOM=0 THEN 1030 

920 FOR U=0 TO LN-1 

930 BX(U)=(BX(U)-X)«ZOOM:BY(U)= 

(BY(U)-Y)*ZO0M 

940 EX(U)=(EX(U)-X)*ZOOM:EY(U>= 
(EY(U)-Y)*Z0OM 

950 IF ABS(BX(U) X32768! AND AB 
S (BY (U) X24576 AND ABS(EX(U))<3 
2768! AND ABS (EY (U) X24576 THEN 
LINE ( FNA (BX (U) ) , FNB (BY (U) ) > - (F 
NAÍEX(U) ) , FNB (EY (U) ) ) .15 
960 NEXT 

970 BX (U) - (BX (U) -X) «ZOOMrBY (U) - 
(BY(U)-Y)«ZO0M 

980 EX(U)-(EX(l))-X)*ZOOM:EY(U) = 

(EY(UXY)*ZOOM 

990 X-EX(LN) :Y=EY(LN) 

1000 IF ABS(BX(LN))>32767 OR AB 

S(BY(LN))>24576 THEN BX(LN)-X:B 

Y(LN)-Y 

1010 SC-SCZOOM 
1030 RETURN 

1100 DATA 0.0,16,56,16,0.0,0 
120» COLOR 15,4,4:SCREEN 2 . 0 : RE 
ST ORE 

1210 FOR 1-1 TO 8 : READ 3:S3=SS+ 
CHRS(S) :NEXT:SPRITES(1)-SS 
1220 RETURN 
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HEINO DE NETUN© 



Depois de viver mil aventuras em terra 
firme, Willie - o infortunado 
herói do jogo Avalanche - tem que se 
defrontar com os perigos de um mar 
agitado. Veja como ele se sai dessa. 



Willie está agora num morro a beira- 
mar. Mas não tem tempo de admirar a 
paisagem: se ele perder a calma quando 
as pedras estiverem rolando morro abai- 
xo, ou se tremer com o barulho das co- 
bras, descobrirá tardiamente que está 
em vias de afogar-se. Para criar o cená- 
rio adequado, devemos providenciar vá- 
rios baldes de água do mar. 



A rotina seguinte dá inicio ao avan- 
ço da maré; logo, é melhor que Willie 
não perca tempo no caminho e retorne 
rapidamente a seu gostoso piquenique. 

10 Et EM org 58882 

20 BEM aea td bc, 57312 

30 BEM ld a, (57353) 

40 REM bit 2, a 

50 REM jr z.apt 

60 REM ld bc, 57320 

70 REM spt ld hl . (57354) 

60 REM ld a, 15 

90 REM ld d, 32 
100 REM apu puah de 



nt 



130 REM inc hl 

140 REM pop bc 

150 REM pop de 

160 REM dec d 



Jr 



170 REM jr nz.Bpii 
180 REM ld a, (57353) 
190 REM dec a 
200 REM ld (57353) ,a 
210 REM jr nz.ert 
220 REM ld a, 10 
230 REM ld (57353) ,a 
240 REM ld hl , (57354) 
250 REM ld de. 32 
260 REM abe hl .de 
270 REM ld (57.154) ,hl 
280 REM art ret 
290 REM oro 58217 
300 REM print * 

Embora pareça que temos na tela um 
trecho do mar, há na verdade apenas 
dois caracteres. O primeiro ocupa as oi- 
to posições do endereço 57312 em dian- 
te, e o segundo as oito posições a partir 
do endereço 57320. Você pode achar que 
isso não é água suficiente nem mesmo 
para molhar os pés de nosso herói. Mas, 
quando esses dois caracteres forem im- 
pressos consecutivamente em linhas al- 
ternadas, você construirá rapidamente 
um oceano. 

Como o mar será impresso na tela na 
proporção de um caractere por vez, re- 
correremosàrotina print de novo. Assim, 
os parâmetros necessários devem ser 
carregados nos registros corretos. Como 
de costume, o par BC carrega o apon- 
tador do primeiro byte de dados. O acu- 



mulador A carrega o código da cor e o 
par HL contém a posição da tela onde 
o dado será impresso. Depois desse lem- 
brete, carregamos o par de registros BC 
com o endereço do byte inicial que for- 
ma o primeiro caractere de mar. 

A variável no endereço 57353 é cha- 
mada variável de atraso do mar; é ela 
que controla o movimento das águas. O 
bit 2 é usado como uma baliza para in- 
formar ao processador qual dos dois ca- 
racteres de mar deverá ser impresso na 
última linha. 

O conteúdo do atraso do mar é colo- 
cado no acumulador e a instrução bit 2,a 
analisa esse bit em particular. Se o seu 
valor for 0, a instrução jr z que vem em 
seguida faz o processador saltar para a 
próxima instrução. Mas, se o valor do 
bit 2 é 1, o salto não ocorre e o par BC 
é carregado com o endereço do padrão 
inicial do segundo caractere de mar. 



O par de registros HL é carregado 
com o conteúdo das posições de memó- 
ria 57354 e 57355. Esses endereços con- 
lêm a posição do mar que está sendo im- 
pressa no momento e que foi inicializa- 
da pela rotina da parte sete de Avalan 
che com a posição do canto inferior es< 
querdo da tela. 

O acumulador A é carregado com o 
número 15 para dar ao mar a tonalida- 
de azul adequada. O registro D, por sua 
vez, é carregado com o número 32; ele 
será usado como contador para somar 
32 colunas através da tela. 

O contador em D deve ser preserva- 
do intacto. Se o processador utilizar o 
registro D na rotina print, ele se perde- 
ra; assim, o par DE é guardado na pi- 
lha. Os dados para o caractere de mar 
serão usados outras vezes, já que cada 
linha de mar é formada pelo mesmo ca- 
ractere impresso 32 vezes. Dessa forma, 
o par BC é guardado na pilha também. 
A rotina print é chamada e os oito bytes 
do caractere de mar são impressos no lu- 
gar correto da tela. 

O par HL é então incrementado, mo- 
vendo o apontador de tela para a pró- 
xima posição ao longo da linha. Ao 
mesmo tempo, o apontador de dados é 
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■ O AVAN Ç O DA MARÉ ■ REPETIÇ ÃO 



■ 


IMPRESSÃO DOS CARACTERES 




DOS CARACTERES 




DO MAR 




EM LINHAS ALTERNADAS 


■ 


TONALIDADE DO MAR 


■ 


A ROTINA CHARPR 


■ 


VARIÁVEL DE ATRASO 


■ 


MAR BRAVIO 



levado de volta para o início dos padrões 
do caractere (ele tinha sido incrementa- 
do durante a rotina prínt), sendo recu- 
perado da pilha. O contador de colunas 
é também recuperado da pilha e decre- 
mentado. Se ele não foi reduzido a ze- 
ro, a instrução jr nz retornará ao início 
do laço e o processador imprimirá o ca- 
ractere de mar na posição seguinte da te- 
la ao longo dessa linha. 

Quando o contador em D tiver sido 
reduzido a zero, o processador saltará 
para fora do laço e prosseguirá com a 
próxima instrução. 



O atraso do mar é carregado sobre o 
acumulador, decrementado e armazena- 
do de volta em 57353. Se ele não tiver 
sido reduzido a 0, a instrução jr nz fa- 
rá o processador saltar as instruções res- 
tantes até o final da rotina para a qual 
ele retornará. Se ele tiver sido reduzido 
a zero, o atraso do mar será ajustado pa- 
ra 10. 

O apontador de posição do mar é car- 
regado em HL; 32 é carregado em DE 
e subtraído de HL; o resultado é arma- 
zenado de volta no apontador de loca- 
lização do mar em 57354. Assim, na 
próxima vez que a rotina for chamada, 
o mar terá subido uma Unha. 



O programa a seguir inicia a expan 
são da maré. 

10 org 19678 
20 SEA LDU #18206 
30 LDA 18246 
40 B I TA |2 
50 BEQ 3PT 
60 LDU (19222 
70 SPT LDX 18247 
80 LDA tl6 
90 SPTI PSHS A.U 
100 JSB CHARPR 
110 PULS U,A 
120 DECA 
130 BNE SPTI 
140 DEC 18246 
ISO BNE SRT 
160 LDA |10 
170 STA 18246 
180 LDX 18247 



190 LEAX -256.X 

200 STX 18247 

210 SRT P.TS 

220 CHARPR EQU 19402 

Para testar esse programa, você pre- 
cisa carregá-lo no resto de Avalanche e 
executar a seguinte rotina: 

5 P0KE S.H467F.1.H4C:P0KE Í.H4C80 . 
LHP3 

10 EXEC 19426 

20 FOR G-l TO 160 

30 EXEC 19678 

40 FOR H-l TO 100:NEXT H , G 
50 GOTO 50 

Quando esta rotina estiver funcio- 
nando, a maré subirá até que a tela es- 
teja completamente cheia de água. Isso 
nunca aconteceria durante o jogo, pois 
Willie teria se afogado antes e o jogo 
voltaria ao início. 



PEQUENAS GOTAS DE ÁGUA 



Embora aparentemente tenhamos um 
trecho do mar representado na tela, exis- 
tem na verdade apenas dois caracteres 
importantes na tabela de dados. O pri- 
meiro desses caracteres ocupa os oito en- 
dereços a partir de 18206 e o segundo 
ocupa os oito a partir de 18222. Quan- 
do esses dois caracteres forem impres- 
sos repetidamente em linhas alternadas, 
você terá um oceano. 

Como o mar será impresso na tela do 
microcomputador, segundo um ritmo de 
um caractere de cada vez, a rotina 
CHARPR será usada de novo. Logo, 
seus parâmetros têm de ser carregados 
nos registros corretos. Como sempre, o 
registro U carrega o apontador do pri- 
meiro byte de dados; então, a própria 
tabela de dados atua como pilha do 
usuário. O registro X, por sua vez, car- 
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rega a posição da tela onde o dado será 
impresso. U é então carregado com o 
endereço do primeiro byte que forma o 
primeiro caractere de mar. 

A variável no endereço 18246 é cha- 
mada variável de atraso do mar e con- 
trola o movimento da maré. O bit 2 des- 
sa variável é usado como uma baliza pa- 
ra informar ao processador qual carac- 
tere de mar será usado na linha que es- 
tá sendo impressa. 

O conteúdo do atraso do mar é car- 
regado no acumulador e a instrução BI- 
TA #2 analisa esse bit em particular. Se 
o valor do bit não for I, a instrução 
BEQ fará o processador pular a próxi- 



ma instrução através do rótulo SPT. 
Mas, se o valor for I , o salto não ocor- 
rerá e U será carregado com o endereço 
do primeiro byte que forma o segundo 
caractere de mar. 



O registro X é carregado com o 
conteúdo da posição de memó- 
ria 18247. Esse endereço car- 
rega a posição em que 
o mar está sendo 
impresso no 
momento 
em que 
foi inicia- 
lizada pe- 
rotina da parte sete de 
Avalanche no canto inferior esquerdo 
da tela. O acumulador A é carregado 
com 16, e será usado como contador pa- 
ra fazer com que dezesseis caracteres de 
mar sejam impressos. 

Esse contador precisa ser preservado 
intacto enquanto o processador execu- 
ta a rotina CHARPR; portanto, guar- 
damos A na pilha do usuário. Os dados 
para o caractere de mar serão usados vá- 
rias vezes, porque cada linha do mar é 
feita do mesmo caractere — assim, o re- 
gistro U também é guardado na pilha. 
A rotina CHARPR é chamada e os oi- 
to bytes do caractere de mar são impres- 
sos no lugar correto da tela. 



A rotina CHARPR incrementa auto- 
maticamente o registro X, de modo que 
ele esteja pronto para imprimir o pró- 
ximo caractere ao longo da linha. O 
apontador de dados é movido de volta 
ao início dos bytes que formam o carac- 
tere de mar por meio de sua recupera- 
ção da pilha; esse apontador foi incre- 
mentado durante a rotina CHARPR. O 
contador também é recuperado da pilha. 

O contador é então decrementado e, 
se ainda não for zero, a instrução BNE 
saltará para o laço onde o processador 
imprime o caractere de mar na próxima 
posição ao longo da linha atual. 

Quando o contador em A já for ze- 
ro, o processador sairá do laço e execu- 
tará a instrução seguinte. 



O próximo passo consiste em decre- 
mentar o atraso do mar. Se esse atraso 
não tiver sido reduzido a zero, a instru- 
ção BNE fará o processador saltar as 
próximas instruções até o final da roti- 
na, para onde ele retornará. 

Se ele tiver sido reduzido a zero, o 
atraso do mar será reajustado com va- 
lor 10. O apontador de posição será en- 
tão carregado no registro X e 256 sub- 
traído dele. O resultado é armazenado 
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de volta nos endereços que guardam es- 
se apontador, ou seja, 18247. Assim, da 
próxima vez que essa rotina for chama- 
da, o mar subirá uma linha. 



A rotina que vem a seguir inicia a ex- 
pansão da maré; por isso, é melhor Wil- 
lie andar o mais rápido possível e recu- 
perar o seu lanche. 

10 org 5421B 

20 sea Id b, 72 

30 ld a, (-5211) 

40 bit 2. a 

50 jr z.Bpt 

60 ld b,76 

70 apt ld hl , (62407) 

80 ld de, (-5212) 

90 add bl.de 
100 ld a,b 
110 ld bc.32 
120 call 86 
130 ld a, (-5213) 

140 dec a 
150 ld (-5213) ,a 
160 jr nz.art 
170 ld a. 10 
180 ld (-5213). a 
190 ld hl . (-5212) 
200 ld de, 32 

210 sbc hl.de 
220 ld (-5212) .hl 

230 srt ret 

240 end 

Embora tenhamos a impressão de 
que ha um trecho do mar na nossa tela, 



na verdade só existem dois padrões di- 
ferentes. O primeiro tem o código 72 na 
tabela de padrões e o segundo é o pa- 
drão de código 76. À primeira vista, a 
quantidade de água não é suficiente nem 
mesmo para molhar os pés de Willie. 
Mas, quando esses dois padrões forem 
impressos consecutivamente em linhas 
alternadas, em pouco tempo teremos, na 
tela, um oceano. 

Como o mesmo padrão de mar será 
impresso 32 vezes na mesma linha, ocu- 
pando-a completamente, usaremos a ro- 
tina 86 da ROM. Essa rotina escreve um 
número na VRAM a partir de um ende- 
reço e um certo número de vezes. 

Neste programa, a rotina 86 da ROM 
será usada para colocar o código de um 
padrão de mar várias vezes na tabela de 
nomes da VRAM; isso equivale a impri- 
mir o mesmo caractere diversas vezes em 
sequência, já que a tela é um reflexo da 
tabela de nomes. 

Os parâmetros necessários devem ser 
carregados nos registros correios, antes 
de se chamar a rotina 86. É preciso tam- 



bém que o acumulador A contenha o có- 
digo do padrão que vai ser impresso. O 
par HL, por sua vez, contém a posição 
da tabela de nomes — ou seja, da tela, 
onde o padrão começará a ser impresso 
e o par de registros BC carrega o núme- 
ro de vezes que ele será impresso. Feito 
o lembrete, continuemos a examinar o 
programa. O código do padrão do pri- 
meiro caractere de mar é colocado no re- 
gistro B. 

Avariável no endereço -5213écha- 
mada variável de atraso do mar; é ela 
que controla a subida da maré. O bit 2 
dessa variável é usado como baliza pa- 
ra indicar ao processador qual dos dois 
caracteres de mar deve ser impresso na 
linha atual. 

O conteúdo do atraso do mar é colo- 
cado no acumulador e a instrução bit 
2, a analisa esse bit isoladamente. Se o 
seu valor for 0, a instrução jr z que vem 
em seguida fará o processador saltar a 
próxima instrução. Mas, se o valor do 
bit 2 for 1, o salto não será realizado e 
o registro B será carregado com o códi- 
go 76 do padrão do segundo caractere 
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que está armazenado nas posições 62407 
e 62408. O par DE, por sua vez, é car- 
regado com o valor contido nas posições 
-5212 e -5211; esse número corres- 
ponde à posição na tela do começo da 
linha que está sendo impressa atualmen- 
ie e foi inicializado pela rotina da parte 
sete de A vatancke para indicar o canto 
inferior esquerdo da tela. Os conteúdos 
de HL e DE são somados em HL, que 
passa a abrigar o endereço correspon- 
dente na tabela de nomes. 

O acumulador A recebe então o có- 
digo do padrão que até agora estava em 
B. Ao mesmo tempo, o par BC é carre- 
gado com o número de vezes em que o 
padrão deve ser impresso na tela — ou 
seja, 32, que corresponde ao número de 
colunas na linha. A seguir, é chamada 
a rotina 86 da ROM; nesse momento, 
a linha de mar já estará impressa. 



O atraso do mar é carregado no acu- 
mulador, decrementado e armazenado 
de volta no endereço - 5213. Se o seu 
valor ainda não tiver sido reduzido a ze- 
ro, a instrução jr nz fará com que o pro- 
cessador salte as instruções restantes até 
o final da rotina, para a qual ele re- 
tornará. 



Por outro lado, se ele tiver sido re- 
duzido a zero, o atraso do mar será ajus- 
tado para 10. 

O apontador de posição do mar é car- 
regado em HL e o número 32 é subtraí- 
do dele por meio do par DE; o resulta- 
do é armazenado de volta no apontador 
de posição em - 5212 e - 521 1 . Assim, 
na próxima vez que a rotina for chama 
da, o mar terá subido uma linha. 

Como você já deve ter notado, 
o atraso do mar controla o tem- 
po que a rotina passará impri- 
mindo a primeira linha; es- 
gotado esse tempo, a roti- 
na é ajustada para subir uma 
linha a cada dez chamadas. 

Depois de jogar algumas vezes, 
lalvez você queira reforçar a dose de 
emoção de Avalanche. 

Torne a aventura mais difícil alter- 
nando a variável de atraso. 
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MATEMÁTICA 
EB 



COMO AS CO I SAS CRESCEM 



SUPERF ÍCIE E VOLUME 



PROB L EMAS ESTRUTURAIS 
RAZÃO DE CRESCIMENTO 



NÚMEROS DE FIBONACCI 



Os computadores têm sido utilizados 
no estudo dos mais diversos aspectos 
da natureza. Veja aqui como 
eles podem nos ajudar a compreender 
o fenómeno do crescimento. 



O emprego de computadores na aná- 
lise das situações relacionadas à nossa 
realidade não se limita às coisas inani- 
madas. Ao contrário, a máquina tem se 
mostrado de grande utilidade no estu- 
do do comportamento dos organismos 
vivos. Ocorre que a matemática está in- 
timamente associada à natureza — nas 
formas mais inesperadas. E, sempre que 
há uma conexão com a matemática, os 
computadores podem ajudar a com- 
preender o que se passa, efetuando cál- 
culos e indicando resultados. 

Neste artigo, examinaremos algumas 
maneiras de se utilizar computadores na 
análise do crescimento dos organismos. 
Todas as formas vivas são capazes, em 
algum estágio do seu desenvolvimento, 
de mudar de tamanho, número ou for- 
ma. Apenas as duas primeiras situações 
serão tratadas aqui, juntamente com ou- 
tros exemplos de ínter-relação entre a 
natureza e a matemática. 



COMO AS COISAS CRESCEM 



O crescimento — mudança de tama- 
nho — envolve a formação de novos 
materiais de estrutura. Tanto plantas 
quanto animais obtêm a matéria-prima 
necessária para isso do seu meio ambien- 
te. Mas o crescimento geral de um ser 
pode se dar de duas maneiras: pela mul- 
tiplicação do número de células (por 
meio da divisão celular) ou pelo aumen- 
to do tamanho das células. 



Tendo em vista essa diferença, resta 
saber como medir o crescimento. É me- 
lhor medir o peso, como se faz com os 
bebés, ou a altura, como se faz com as 
crianças maiores? Ou seria o volume a 
medida mais adequada? Ou a superfí- 
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cie do corpo? Não há uma resposta úni- 
ca para lais questões, pois seres diferen- 
tes exigem tipos de medida diferentes. 
Porém, sempre é interessante comparar 
medidas diversas quando se estuda o 
crescimento. 

As medidas mais significativas para 
animais são as de volume (ou peso) e su- 
perfície corporal. Essas medidas não au- 
mentam no mesmo ritmo, enquanto o 
animal cresce, o que tem consequências 
importantes, já que o tamanho e a for- 
ma de um ser estão muito ligados a seu 
modo de viver. 

Como vimos no artigo da página 434, 
a área é uma medida quadrática e o vo- 
lume, uma medida cúbica — isso expli- 
ca a diferença de velocidade que se re- 
gistra no aumento dessas duas medidas. 
A relação entre ambas poderá ser me- 
lhor compreendida se lomarmos como 
exemplo uma forma regular como um 
cubo. O programa a seguir mostra o que 
acontece com o volume e a área de cu- 
bos que tenham diferentes tamanhos. 
Digite-o e execute-o. 



10 GOSUB 180 
20 LET X-45: LET y-35 
30 LET S = 2 
40 GOSUB 140 




50 PRINT AT 18.S/5+X/8iS 
60 LET SA=6*(S*2): LET VO"S"3 
: LET AS=STRS (SA/VO) ! IF LEN 
A3>3 THEN LET AS-AS t TO 3) 
70 PRINT AT 20.S/5+X/8-1) 
PAPER 0; INK 7;AS;":1" 
80 INPUT "TAMANHO DO CUBO (MA 
X 20) ?" ;A: IF A<S THEN 
GOSUB 180 
90 LET S = A 
100 IF S<1 OR S>20 THEN GOTO 
80 

110 LET X-X+S*5*l .5+5 
120 IF X+S«5*1.5>255 THEN 

GOSUB 180: LET X-45 
130 GOTO 40 
14 0 PLOT X,Y. 
150 LET D=S*5 

160 DRAW 0.D: DRAW D.0: DRAU D 
/3.D/3: DRAU -D.0: DRAW -D/3,- 
D/3: DRAW 0,-D: DRAW D.0: DRAW 
D/3, D/3; DRAW 0,D; DRAW -D/3.- 
D/3: DRAW 0,-D 
170 RE TU RN 

JB0 BORDER 0: PAPER 4: INK 0: 
CLS 

190 FOR N-0 TO 6 : PRINT AT N,0 
; PAPER li" 

' : NEXT N 
?.a0 PR [NT AT 1B.0; INK !; - LADO 
:";AT 20,0;"A/V:" 
210 PRINT AT 0,3; PAPER li INK 
7 ; "A/V=PROPORCAO APEA : VOLUME" 




10 GOSUB ISOtCLS 
20 X-45:Y-1S6 
30 S-2 

40 GOSUB 140 

60 SA-6*S*S:VO-S*S*S 

70 PRINT"TAMANHO-";S;TAB<12) i "P 

ROP.AREA/VOL"" : : PRINT USING"I-I 

|:l";SA/VO:PRINT 

BO INPUT"DIGITE O TAMANHO DO CU 
BO (1-20) "í A: IF A<3 GOSUB 180 
90 S-A 

100 IF A<1 OR S>20 THEN 80 
110 X-X+S*7.5*5 

120 IF X+S*7.5>255 GOSUB 180:X= 
45 

130 GOTO 40 
140 SCREEN 1,0 

150 DRAW*BM"+STRS(INT(X))+"."+S 
TRS ( INT (Y) ) +"S-+STRS ( INT (S*3) ) + 
"C1E2NR6U6C4R6G2L6NE2D6R6NU6E2U 
6" 

160 IF IHKEYSO" " THEN 160 

170 RETURN 

180 PMODE 3:PCLS2 

190 RE TU RN 



f/U 



10 GOSUB 180:CLS 
20 X=45:Y=156 
30 3 = 2 

40 GOSUB 140 

60 SCREEN0:SA*6*S*S:VO-S*S"S 
70 PRINT"TAMANHO="iS;TAB(15) ;"S 
UP/VOL-" ; : PRINTUSINC" t . II : 1" i SA 
/VO : PRINT 

80 INPUT" TAMANHO DO CUBO? (1-20 
)";A:IF A<S THEN GOSUB 180 
90 S-A 

100 IF ACI OR A>20 THEN 80 
110 X=X+S*7.5+5 

120 IF X+S*7. 55255 THEN GOSUB 1 
BO-X-45 
130 GOTO 40 
140 SCHEEN2 

150 LINE (X,Y)-(X+5*S,Y-5*S) ,8. 
B 

160 X«X+2*S:Y*Y-2«S:I.tNE (X,¥)- 
(X+5*S,Y-5*S) ,8.B 
165 LINE (X,Y>-(X-2*S,Y+2*S) .8: 
LINE (X*5«S.Y)-(X+3*S,Y+2*S) ,8: 
LINE (X+5*S,Y-5*S)-(X+3«S,Y-3»S 
),8:LINE (X,Y-5*S)-(X-2*S,Y-3*S 
) ,B: Y-156 

170 IF INKEY3-"" THEN 170 ELSE 

RETURN 

180 SCREEN2 

190 RETURN 



60 SA - 6 * S * S:VO - S • S * 
S 

70 VTAB 21: CALL - 958: PRINT 
"TAMANHO - "iS: PRINT * RAZÃO S 
UP/UOL - ";8A / VO;":l" 
BO INPUT "TAMANHO DO CUBO (1-2 
O) ? " j A: IF A < S THEN GOSUB l 



< 20 THEN 80 

110 X - X + S * 7.5 + 5 

120 IF X + S * 7.5 > 255 THEN 

GOSUB 180 :X = 45 
130 GOTO 40 

140 HPLOT X,YTOX+5*S.YT 
OX+S*5.Y-S«5TOX,Y- 
5 * S TO X.Y 

150 U = ABS (U - L): IF U THEN 
X=X+2*S:Y=Y-2«S:G 
OTO 140 

160 HPLOT X.Y TO X - 2 * S,Y + 

2 * S: HPLOT X+5*S,YT0X 
+3*S,Y+2*S: HPLOT X + 5 
» 3,! - 5 • S TO X U « 3,V - 
3 * S: HPLOT X,Y - 5 * STOX - 

2 * 3.Y - 3 * 8 
170 Y - 156: RETURN 
180 HGR : HCOLOR- 3: RETURN 

O programa pede ao usuário que es- 
colha um número para a aresta (a me- 
dida de uma quina à outra) do cubo. Em 
seguida, desenha a figura na tela e mos- 
tra a razão entre área e volume. Come- 
ce com um cubo pequeno — quatro uni- 
dades de aresta, por exemplo — e vá au- 
mentando o valor fornecido ao compu- 
tador para simular um crescimento. Vo- 
cê verá que, à medida que o cubo se tor- 
na maior, a razão entre área e volume 
diminui. Em outras palavras, o volume 
aumenta muito mais rapidamente que a 
superfície do corpo. 

Grande parte da listagem está desti- 
nada a formatar a tela e desenhar os cu- 
bos. Assim, vamos nos deter na linha 
60, cujo conteúdo nos interessa de ma- 
neira mais direta. 

S é a aresta do cubo, A área de um 
lado é, portanto, S*S e a superfície do 
cubo todo (ele tem seis lados) é 6*S*S. 
O volume é S ao cubo, ou S*S*S. A ra- 
zão entre as duas medidas corresponde 
ao resultado da divisão da superfície pe- 
lo volume. Por exemplo, quando S é 
igual a 2, a razão é 6*2*2 dividido por 
2*2*2, que dá 3:1. Se dobramos o tama- 
nho da aresta, temos 6*4*4 dividido por 
4*4*4, que dá 1,5:1 — ou seja, a área 
é relativamente menor. 

Como animais não têm forma de cu- 
bo, é provável que queira adaptar o pro- 
grama para torná-lo mais próximo da 
realidade, Pequenos animais, como os 
camundongos, são melhor representa- 
dos por uma esfera, enquanto seres hu- 



manos lembram mais um conjunto de 
cilindros — um para o tronco e outro 
para cada membro. No primeiro caso, 
precisamos conhecer a superfície e o vo- 
lume da esfera. A superfície é 
4*PI*raio 2 e o volume, 4/3*PI*raio 3 . Já 
a área de um cilindro é 2*PI*raio*altura 
mais 2*Pl*raio 2 e o volume, PI*raio 2 " 
altura. 

Seja qual for a forma escolhida, o 
princípio geral é o mesmo e, em todos 
os casos, o volume cresce mais rapida- 
mente que a superfície. 



CRESCIMENTO E VIDA 



Essas relações matemáticas são mui- 
to importantes no Reino Animal, afe- 
tando as atividades e o habitat do ser em 
questão. Tomemos como exemplo o ra- 
to: ele tem um volume pequeno e, por- 
tanto, uma área relativa grande. Isso 
significa que seu corpo irradia calor ra- 
pidamente (dependendo do ambiente em 
que se encontra). O rato consegue 
manter-se aquecido produzindo energia 
pela queima de alimento. Ora, graças à 
velocidade com que perde calor, ele pre- 
cisa ingerir alimentos em quantidade 
equivalente à metade do seu peso. 

Um elefante, em contrapartida, tem 
um volume muito grande em compara- 
ção com sua superfície corpo; al. Por- 
tanto, mantidas as proporções, ele irra- 
dia menos calor que o rato, e sobrevive 
com uma quantidade menor (em relação 
ao seu peso) de alimentos diários. Isso 
explica por que animais grandes se adap- 
tam melhor ao clima frio dos pólos, on- 
de a comida é escassa. 



A relação entre massa e superfície 
ajuda a explicar por que animais e plan- 
tas não crescem além de certo tamanho. 
Dadas as proporções de uma determi- 
nada espécie, há um limite definido pa- 
ra as dimensões que ela pode alcançar. 
Esse limite é imposto pelo peso que os 
ossos do animal podem suportar. 

Quando seu tamanho — isto é, altu- 
ra, comprimento e largura — dobra, o 
peso cresce oito vezes, mas a área de su- 
porte dos ossos cresce apenas quatro ve- 
zes. Se os ossos se desenvolvessem o su- 
ficiente para sustentar o novo peso, fi- 
cariam desproporcionalmente finos em 
relação ao tamanho do animal. Em de- 
terminado ponto do seu crescimento, o 
animal estaria tão desajeitado que não 
conseguiria se mover. 




Volumes e superfícies: gráfico comparativt 



Alterações da taxa de crescimento de u 



Se um rato atingisse o tamanho de 
um elefante, mantidas as mesmas pro- 
porções iniciais, suas pernas seriam in- 
capazes de suportá-lo. Isso explica por 
que espécies de tamanhos diversos têm 
proporções tão diferentes. 

O maior animal terrestre — o elefante 
— chega a pesar cerca de 10 toneladas. 
Um dinossauro podia alcançar 80 tone- 
ladas, mas ficava a maior parte do tem- 
po imerso na água. Os animais marinhos 
contam com o suporte da água, o que 
amplia os limites de seu tamanho. Ba- 
leias azuis têm peso superior a 150 to- 
neladas e medem mais de 30 metros de 
comprimento. Naturalmente, não have- 
ria pernas que fossem capazes de susten- 
tá-las fora da água. O limite de seu cres- 
cimento, assim como dos demais ani- 
mais marinhos, está mais relacionado á 
perda de calor. 



RAZÃO DE CRESCIMENTO 



O programa a seguir mostra a velo- 
cidade de crescimento de uma planta, do 
plantio à maturidade, quando ela che- 
ga a seu limite de tamanho. 

A planta cresce devagar no inicio, e 
rapidamente depois. Atingindo seu limi- 
te de tamanho, volta a se desenvolver 
bem devagar, até parar ou, eventual- 
mente, morrer. Digite e execute o se- 
guinte programa: 



10 DIH G(ll) 

20 DATA 2.9.22.35,58,92.104, 

112.115.117,118 
I 30 FOR N=l TO lli RE AO G(N): 
I HEXT N 



40 BORDES 0: PAPER 0: INK 4: 

CL3 

50 LET X=60: LET Y = 10 
60 DRAW 80,0 

70 PLOT 30,0: DRAW INK 7;0, 
168 

80 PRINT INK 2|AT 0.1: "ALTUR 
A" 

90 FOR N=0 TO 13B STEP 12 
100 PLOT INK 7i30,N 
110 DRAW INK 7|-5.0 
120 NEXT N 

130 PRINT AT 20.0i"2";AT 17,0; 

"6";AT 14,0;"10"iAT 11,0í"14": 

AT 8,0i"2O-;AT 5,0;"24" 

140 PLOT 160.0: DRAU INK 7;0, 

16B 

150 PLOT 160,0: DRAW INK 7 ; 95 

.0 

160 PRINT AT 0.17; INK 6;"TAXA 

DE " ; AT l,15;"CRESCIMENTO" 
170 LET C-l 
1B0 LET GX=161 
190 LET GY-1 
200 FOR N-l TO 117 
210 IF GIOON THEN GOTO 250 
220 PLOT X,Y: DRAW 9. 9. PI/2: 
DRAW -9.-9.PI/2 

230 DRAW -9, 9, PI/2: DRAW 9,-9, 
PI/2 

240 LET GX-GX+8: LET GY-1 : LET 
C-C+l 

250 PLOT X.Y 

260 EOR K»0 TO 3 

270 PLOT INK 5;GX,GY+K: DRAW 

INK 5:8,0 

280 NEXT K 

290 LET GY-GY+4 

100 LET Y-Y+l 

310 NEXT N 

320 FOR Y=117 TO 140 

330 PLOT X.Y 

340 NEXT Y 

350 FOR R=l TO 10 STEP .3 
360 CIRCLE INK 6;X,Y,R 
370 NEXT R 
380 GOTO 380 



20 DATA 2,9,22,35,58,92,104,112 
,115,117.118 

30 FOR N-0 TO 10 : READ G (N) : NEXT 
40 PMODE 3:PCLS;SCREEN 1,1 
50 X-60:Y-190 

60 LINE <8, 23)-(8,192) ,PSET:LIN 
E-{80,192) ,PSET 

80 DRAWBM20.6S24C7D2BRUNLUBR2L 

DNRDRBRU2BR2LD2RUS8NLS24BED2BRU 

NLUBRS16RND3RC8" 

90 FOR N-47 TO 191 STEP 12 

100 LINE (2,N)- (8.N) ,PSET 

120 NEXT 

140 LINE (158.23)-(158,191) .PSE 

T 

150 LINE - (255,191) , PSET 

160 DRAWBM176,6C6S24LD2RUS8NLS 

24BEND2RDLFBRNU2RU2LBR2D2EFU2BR 

S16RND3RS24BRD2BRUNLUBM182 , 24ND 

2RDLFBRU2RDNLDS16BR2U3LR2S24BR2 

LDNRDR " 

170 GX=161 :GY-190 

190 COLOR 6,7 

200 FOR N-l TO 117 

210 IF G(C)>N THEN 250 

220 CIRCLEÍX. Y-4) ,15,6. .4,0. .5 

230 CIRCLE(X-16,Y) ,16,6, .4, .75. 

1 : CIRCLE (X+16.Y) , 16 , 6 , . 4 , . 5 . . 75 

240 GX-GX+8:GY-190:C-C+1 

250 PSET<X,Y,6) 

260 FOR K-0 TO 3 

270 LINE (GX ,GY-K) - (GX+8 ,GY~K) . P 

RESET 

260 NEXT 

290 GY-GY-4 

300 Y-Y-l 

310 NEXT 

320 FOR Y=75 TO 56 STEP -1 

330 PSET (X,Y,6) 

340 NEXT : POKE 178,54 

350 FOR R=l TO 15 

360 CIRCLE {X,Y) ,R, -B 

370 NEXT 

380 GOTO 380 



IHHIIIIIIIIII 




Regra de Fibonacci para um retôngulo bem proporcionado. 



.1 populacional de coelhos. 



20 DATA 2, 9. 22,35, 5B, 92, 104, 112 
.115,117,118 

30 FOR N-l TO 10 : BEAD G (N) : NEXT 

40 COLOR 2,15.15:3CBEEN2 

50 X-60:Y-190:PI-3.1416 

60 LINE (8 , 23) - (8 , 192) :LINE -(8 

0,192) 

90 FOR N-47 TO 191 STEP 12 
100 LINE (2.N)-(8,N) 
120 NEXT 

140 LINE (158,23)-(158.191) .8 

150 LINE - 1255,191) ,8 

170 GX-161;GY-190 

200 FOB N-l TO 117 

210 IF G(C)>N THEN 250 

220 LINE(X,Y)-(X+10,Y-5) :LINE(X 

,Y)-(X-10.Y-5) 

240 GX-GX+8:GY-190:C-C+1 

250 PSET(X.Y) 

260 FOR K=l TO 3 

270 LINE {GX , GY-K) - (GX+8 ,GY-K) , 8 
280 NEXT 
290 GY-GY-4 
300 Y-Y-l 
310 NEXT 

320 FOR Y=75 TO 5B 3TEP-1 
330 PSET(X.Y) ,6 
340 NEXT 

350 FOR R-l TO 14 

360 CIRCLE(X.Y) .B.16-B, , . .6 

370 NEXT 

380 GOTO 3B0 



HQElI 



20 DATA 2,9,22.35.58.92.104,1 
12.115,117,118 

30 FOR N - 1 TO 10: READ G (N) : 
NEXT 

40 HOME : HCfi ! HCOLOR= 3 

50 X * 60 :Y = 156 

60 HPLOT B.2 TO 8,156 TO 80.15 



80 VTAB 21 : PBINT " TAM DA PL 
ANTA"." VEL DE CRESCIMENTO" 
90 FOR N - 11 TO 155 STEP 12 
100 HPLOT 2.N TO 8.N 
120 NEXT 

140 HPLOT 158,2 TO 158,156 TO 
255.156 

170 GX - 161 :GY - 156 

200 FOR N - 1 TO 117 

210 IF G(C) > N THEN 250 

230 HPLOT X.Y TO X + 10, Y - 5: 

HPLOT X.Y TO X - 10, Y - 5 
240 GX - GX + 8:GY - 156:C - C 
+ 1 

250 HPLOT X.Y 

260 FOR K = 1 TO 3 

270 HPLOT GX.GY - K TO GX + 8. 

GY-K 

280 NEXT 

290 GY-GY-4 

300 Y - Y - 1 

310 NEXT 

340 CX = XrCY = Y - 15:R1 ■ 13: 
R2 ■ B : HPLOT CX + ft.CY 
350 FOR A - 0 TO 6.28 STEP .1 
360 HPLOT TO CX + RI ■ COS ( 
A),CY - BI * SIN (A): HPLOT T 
0 CX + R2 • COS (A).CY - B2 « 

SIN CA) 
370 NEXT 

O programa mostra graficamente o 
que acontece com a planta. Os dados da 
linha 20 equivalem ao tamanho da plan- 
ta, medido a intervalos regulares. São 
usados tanto no desenho da figura quan- 
to no traçado do gráfico que mostra a 
velocidade de crescimento. 

A rotina da linha 200 à 310 encarre- 
ga-se do desenho da planta. Os eixos e 
escalas do gráfico são definidos nas li- 
nhas 40 a 160, enquanto o traçado das 
barras é feito peias linhas 260 a 280. A 
flor, finalmente, é desenhada pelas li- 
nhas 350 a 380. 

Como o gráfico deixa claro, o cres- 



cimento da planta é lento no princípio, 
acelerando em seguida, até perder, de 
novo, a velocidade. Os dados foram re- 
tirados de um experimento real que me- 
diu o crescimento da área de uma folha 
de um pepineiro. Os mesmos valores po- 
dem ser usados para avaliar o crescimen- 
to de toda a planta. 



GERAÇÕES E NÚMEROS 



Quando se acasalam, os animais mul- 
tiplicam-se, dando origem a várias ge- 
rações. Tomemos o caso dos coelhos. 
Um par de coelhos — primeira geração 
— produz um novo par. Este forma a 
segunda geração. O casal inicial produz 
mais um par e a segunda geração passa 
a ter dois pares. Como veremos adian- 
te, uma série de números representan- 
do gerações pode ser como se segue: 
1,1,2,3,5,8,13,21 etc. O próximo pro- 
grama mostra graficamente como o nú- 
mero de coelhos cresce com o passar do 
tempo. 



10 BORDE H 0: PAPER 1: INK 7: 
CLS 

20 FOR N-0 TO 7: READ A: POKE 

USB 'a"+N,A: NEXT K 

30 FOR N-0 TO 7: READ A: POKE 

USB "b"+N,A: NEXT N 

40 LET CS"" 



50 LET AS-CHB3 144: LET BS« 
CHR3 145 

60 PAPER 0: CLS : PAPER 1 
70 FOR N-l TO 6: PRINT CS": 
NEXT N 

80 PRINT INK 5: AT 0,0; "GEB" 
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90 FOR N-l TO 20 
100 IF N>1 THEN FOR P-l TO 10 
: SOUND .01.P: NEXT P 
110 READ X.Y: PRINT AT Y . X ; ASi 
AS: AT Y+1.X;BS:BS 
120 NEXT N 
130 FOR N-l TO 20 
140 RE A D X.Y.XX.YY: PLOT X.Y: 
DRAW INK 4;XX.YY 
150 NEXT N 

160 PBINT AT 18,2; INVERSE 1;" 
ARVORE GENEALÓGICA - COELHOS" 
170 INK 6: INVERSE 1: PRINT " 
GERAÇÃO : 0 1 2 3 4 

5 P '-PARES : 1 1 2 



,195,87.208,101,199.103 

230 DATA 29,120,12,133,3,135,68 

,69.68,133.59,135,124,121.124.1 

33,115,135 

240 DATA 180.89,180,133,171,135 
.222.120,234.133.225,135,12.153 
,12,165.3.167 

250 DATA 40.121.42,165,33,167,6 
8.153.72,165,63.167,113,120,98, 
165.93.167,124.153,144,165.137, 
167 

260 DATA 178,153.176.165,167,16 
7.208.121,206,165.197.167,234,1 
53,234.165,225,167,124,70,124.7 



160 GOTO 180 

190 DATA 144,60,48,28.52,62,62 
,24.60.126.118,120.126,254.252 
.63 

200 DATA 16.0,16,3.22,6.11.6. 

16.9,6,9,11,12,25,9.22,12,3.12 

,6,15,14.15.16,12,28,12,26.15, 

2,15.10.15.18,15.22.15.30,15 

210 DATA 136.159.0.-7.144,159. 

32,-31,128,135.-34,-7,136.135, 

0,-31.184.112,0,-31.192,112,8. 

-8.88.111,-25,-7,96,111,0,-31 

220 DATA 48.87,-10,-7,56.87.0. 

-31,24,63.-5.-7.90.63.-8,-7, 

128,87.-8,-8,120,79,0,-23.136, 

87.0,-7 

230 DATA 144,63,7,-7,184,63,0, 

-7.20B.88,0.-31.216,8B.7,-7, 

240.63,7.-7 



260 DATA 178,153,176,165.167.16 
7, 208. 1.21.206, 165, 197, 167,234.1 
53,234,165,225,167,124,70,124,7 



QBE] 



Mi 



10 PMODE 3:PCLS:DIM R(9) 
20 S9-PEEK(186)*256+PEEK(187> 
30 FOR K-SS TO SS+480 STEP 32 
40 READ A , B : POKE K,A:POKE K+l.B 
50 NEXT 

60 GET (2,0)-(13, 15) ,R,0 

70 PUT (14,0) -(25, 15) ,R,PSET: GET 

(2,0)-(25,15) ,R,G 

80 PCLS4:SCREEN 1,0 

90 C0LOR3: FOR K-0 TO 5 

100 LINE (0,32«K)-(255.32*K+24) 

.PSET.BF 

110 NEXT 

120 COLOR l:FOR N-l TO 20 

140 READ X.Y:PUT(X.Y)-ÍX+23,Y+1 

5) .R.PSET 

150 IF N>1 THEN PLAY"01T5QCCEFC 
AB" 

160 READ X.Y,XX,YYiLINE(X,Y)-(X 
X.YY) , PSET 
170 NEXT 
180 GOTO 180 

190 DATA 169,170,153.170,165,17 
0,169,90,165,154,165,86,15,90,1 
69,106 

200 DATA 169,106,165,90,165,154 
,165,106,165.106,149.106.149,10 
6,165,90 

210 DATA 114.7.124.24, 124, 3B, 11 
4,39,113,56,69,70,59.71,138,23, 
176,68,171,71,57,89,42,100,31,1 
03 

220 DATA 124,57,124,101,115,103 



5 CLEAR 5000 

10 COLOR 4,15,15:SCREEN2 

60 AS-"S4F1D1L2BF1R3G1L1D1H1F1L 

3D1R3" 

90 FOR K=0 TO 5 

100 LINE (0, 32*K)- (255, 32*K+24) . 

2,BF 

110 NEXT 

120 FOR N-l TO 20 

140 READ X.Y:PRESET(X,Y) :DRAW"X 
AS I " : PH ES ET (X+J. 5 , Y) : DRAWXA8 i " 
160 READ X , Y , XX , YY : LINE (X , Y) - (X 
X.YY) .8 
170 NEXT 
180 GOTO 180 

210 DATA 114,7.124,24,124,36,11 
4 . 39. 11 3, 56, 69, 70, 59, 71, 13B, 23. 
178,68,171, 71 .57, B9, 42. 100, 31 ,1 
03 

220 DATA 124,57.124,101,115,103 
, 195 , 87, 208, 101 , 199, 103 
230 DATA 29,120. 12, 133, 3, 135, 6B 
,89,68, 133,59, 135,124.121.124,1 
33, 115,135 

240 DATA 180,89,180,133,171,135 
,222,120,2 34, 133,225.135,12,153 
.12,165.3,167 

250 DATA 40,121,42,165,33,167.6 



10 HGR2 : HCOLOR- 3 

20 DATA 1,0,4,0.60.60.28.109, 

1,193.193,43.53.55.53.54,55,45. 

53.63,63,46,173,27.54,45,45,62, 

63,63,46,45,53,63,55,45,53,63,6 

2,63,60,7.0 

30 P - 233: POKE P - 1.0: POKE 
P.97: SCALE- 1: ROT- 0 
40 FOR I - 24B32 TO 24874: REA 
D C: POKE I.C: NEXT 
90 FOR K-0 TO 5 
100 HPLOT 0.30 * K TO 255,30 • 
K 

110 NEXT 

120 FOR N-l TO 20 

140 READ X,Y: DRAW 1 AT X,Y: D 

RAU 1 AT X + 15, Y 

160 READ X.Y.XX.YY: HPLOT X.Y 

TO XX, YY 

170 NEXT 

190 DATA 1 14 , 7 , 1 24 , 24 , 1 24 , 38 
,114,39,113,56,69,70.59.71,138. 
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Uma propriedade interessante pode 
ser observada tomando-se quaisquer três 
números em sequência. Multiplique o 
primeiro pelo último e compare o resul- 
tado com o quadrado do número do 
meio. A diferença será sempre 1 . Tome- 
mos os números 5, 8 e 13: 5 vezes 13 dá 
65 e 8 ao quadrado, 64. 

Dividindo cada número pelo da direi- 
ta, obtemos uma série de ("rações que se 
relacionam à natureza e à arte. Desco- 
briu-se, por exemplo, que nem todas as 
formas retangulares são igualmente 
agradáveis de se olhar. Algumas pare- 
cem muito estreitas, outras muito largas. 
O retàngulo de melhor aparência tem 
uma relação especial entre altura e lar- 
gura, conhecida como a "razão de ou- 
ro". Essa razão é igual a (sqr (5) - l)/2, 
cujo resultado é 0.6180. Se você calcu- 
lar qualquer das fraçôes de Fibonacci, 
verá que, quanto maiores os números 
usados, mais elas se aproximam da ra- 
zão de ouro. Por exemplo, 8/13 é igual 
a 0,6154; 13/21, a 0,6190 e 21/34, a 
0,6176. 

Experimente agora o próximo pro- 
grama. Ele desenha retãngulos de dife- 
rentes tamanhos, de maneira que você 
mesmo poderá julgar quais os melhores. 




23, 178, 68, 171, 71. 57. 89. 42, 100, 3 
1,103 

200 DATA 124,57,124,101,115.1 

03. 195,87, 20B, 101 ,199,103 

210 DATA 29,120.12.133,3.135 

,68,69,68,133,59,135,124,121.12 

4,133,115.135 

220 DATA 180.89,180.133.171, 
135.222,120,234,133,225,135,12, 
153.12,165.3.167 

230 DATA 40,121,42.165,33,167 
,68,153.72,165,63,167,113.120.9 
8,165,93,167,124.153,144,165,1,3 
7.167 

240 DATA 178. 153.176. 165. 167 
.167.208.121.206,165,197.167,23 
4.153,234.165,225,167,124.70,12 
4,70 

O programa começa criando o UDG 
para o coelho, a partir das linhas de da- 
dos (190 e 200). As linhas 60 a 1 10 (40 
a 80, no Spectrum) desenham barras na 
tela para separar cada geração. A seção 
seguinte do programa, que vai até a li- 
nha 180, imprime os coelhos e as linhas 
que ligam as gerações. Os dados que de- 



finem as linhas e posições são lidos da 
linha 210 em diante. 

A medida que os organismos se mul- 
tiplicam, eles se espalham e colonizam 
outras áreas. Um bom exemplo é a ma- 
neira pela qual as bactérias se reprodu- 
zem. Computadores também podem ser 
usados para representar esse tipo de ex- 
pansão. Existem jogos interessantes ela- 
borados a partir dessa idéia. Você en- 
contrará um deles, o Jogo da Vida, na 
página 961. 



NÚMEROS DE FIBONACCI 



A série de números mencionada an- 
teriormente — 1,1,2,3,5,8,13,21 etc. — 
apresenta algumas propriedades que po- 
dem ser observadas na natureza e em 
obras de arte. É conhecida como "nú- 
meros de Fibonacci" desde o século 
XIII, quando o matemático italiano a 
descreveu. Cada número dessa série cor- 
responde à adição dos dois anteriores. 
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10 DIM F(12) : DIM D(14) 

20 LET D(l)-1: LET D(2)-l 

30 FOR N-3 TO 14 

40 LET D(N)-D(N-l)+D(N-2) 

50 NEXT N 

60 FOR N-l TO 12 

70 LET F(N)«D(N)/D(N+1) 

80 NEXT N 

90 BORDER 0: INK 7: PAPER 0: 
CLS 

100 LET A-15: LET B-8 
110 LET X-20: LET Y-170 
120 GOSUB 310 

130 PLOT 0,130: DRAW INK 2; 
2S5.0 

140 PLOT 0.12B: DRAW INK 2; 
255,0 

150 PLOT 80,130: DRAU INK 2;0 
,45 

160 PLOT 82,130: DRAW INK 2:0 
.45 

170 PP I NT AT 2.1; INK 3;"B";AT 
4,5;"A" 

180 INPUT "COMPRIMENTO DO LADO 

A (MAX 70) ?":A 
190 IF A<1 OR A>70 THEN GOTO 

180 

200 INPUT -COMPRIMENTO DO LADO 

B (MAX 40) ?" ;B 
210 IF B<1 OR B>40 THEN GOTO 

200 

220 LET X-128- (A*3/2) : LET Y- 
120 

230 GOSUB 310 

240 PRINT AT 0,11: INK 5 ; " LADO 

A-" ;A; " LADO B-" :B 
250 FOR N-l TO 12 
260 IF A/B-F (N) OR B/A-F <N) 

THEN PRINT AT 2,8;"RAZAO DE 
FIBONACCI" 
270 NEXT N 

280 PRINT AT 4,1; FLASH 1; INK 
6 : "QUALQUER TECLA PARA CONTINU 
AR" 

290 PAUSE 0 
300 RUN 

310 PLOT X.Y: DRAU 3*A,0: DRAW 



150 LINE(80,62)-(B0.17) , PSET 

160 LINE(82,62)~(82,17) , PSET 

170 DRAWBM9.3BC2S8U4R2FGNLFGL2 

BM40 , 58U3EFDNLD2" 

175 FOR K-l TO 900:NEXT 

160 INPUT"COMPRIMENTO DO LADO A 

(MAX 70) ";A 
190 IF A<1 OR A>70 THEN 180 
200 INPUT"COMPRIMENTO DO LADO B 

(MAX 40) " iB 
210 IF B<1 OR B>40 THEN 200 
220 X-128-A*S/3:Y-72 
230 GOSUB 310 
250 FOR N-0 TO 11 

260 IF A/B-F (N) OR B/A-F (N) THE 
N DRAW-BM106.44C2S8NR2D2NRD2BR4 
U4BR2ND4RFGNLFGLBR4NU4R2U4L2BR4 
DND3F2NU3DBR2U3EFDNL2D2BR4L2U4R 
2BR4L2D4R2BR2U4BRBND4R2D2L2F2BR 
2U3EFDNLD2BR3U4LR2BR2D4BR2R2U4L 
2D4" 

270 NEXT 

2B0 IF INKEY5"" " THEN 280 
300 RUN 

310 SCREEN 1.0: COLOR 3 

320 LINE (X , Y) - ( 3*A+X , Y+3*B) , PSE 

T.BF 

330 HETURN 



H]E] 



10 DIM F(11),D(13) 

20 D(0)-1:D(1>-1 

30 FOR N-2 TO 13 

40 D(N)-OÍN-l)+D(N-2) 

50 NEXT 

60 FOR N-0 TO 11 
70 F(N)-D(N)/D(N+1) 
80 NEXT 

90 PMODE 3:PCLS:CLS 
100 A-lS:B-8 
110 X-20:Y-22 
120 GOSUB 310 

130 COLOR 4:LINE(0,62)-(255.62) 
I . PSET 

|l40 LINE (0 , 64 ) - (255 , 64) , PSET 



10 DIM FUI) .D(13) 

20 D(0)-1:D(1)-1 

30 FOR N-2 TO 13 

40 D(N)-D(N-l)+D(N-2) 

50 NEXT 

60 FOR N-0 TO 11 

70 F(N)-D<N)/D(N+1) 

BO NEXT : OPEN "GRP : " FOR OUTPUT 

AS *1 

85 COLOR 15.2.2:GOTO 1B0 

90 SCREEN2 

100 A-15:B-8 

110 X-20:Y-22 

120 GOSUB 310 

130 LINE(0.62)-(Z55.62) ,B 

140 LINE{0.64)- (255,64) .8 

150 LINE(80,62)-(80,17) .8 

160 LINE (82,62)- (B2, 17} ,8 

170 FOR K-l TO 1500:NEXT:RETURN 

180 SCREEN0 : INPUT" TAMANHO DO LA 

DO A (MAX 70) " jAA 

190 IF AA<1 OR AA>70 THEN 1 BO 

200 INPUT "TAMANHO DO LADO B (MA 

X 40) " ; BB 

210 IF BB<1 OR BB>40 THEN 200 
2)5 GOSUB 90 

220 A-AA:B-BB:X-12B-A«3/2:Y-72 
230 GOSUB 310 
240 FOR N-0 TO 11 

260 IF A/B-F (N) OR B/A-F (N) THE 
N PRESET(90,15) : PRINTI1 , "RAZKO 
DE FIBONACCI" 
270 NEXT 

280 IF INKEY3-"" THEN 280 
300 RUN 
310 BEM 

320 LINE(X.Y)-(3*A+X,Y+.1«B) .4.B 

r 

330 RETURN 



10 DIM F(ll) ,D(13) 

20 D(0) - liD(i) - 1 

30 FOR N - 2 TO 13 

40 D (N) - D (N - 1) + D(N - 2) 

50 NEXT 

60 FOR N - 0 TO 11 

70 F(N) - D (N) / D (N + 1) 

BO NEXT 

90 HOME : HGH : HCOLOR- 3 

100 A - 15:B - 8 

110 X - 20:Y - 22 

120 GOSUB 310 

130 HPLOT 0.62 TO 255,62 

140 HPLOT 0,64 TO 255,64 

150 HPLOT 80,62 TO 80,17 

160 HPLOT 82,62 TO 82.17 

180 VTAB 21: INPUT "TAMANHO DO 

LADO A (MAX 70) " ;A 
190 IF A < 1 OR A > 70 THEN 18 
0 

200 INPUT "TAMANHO DO LADO B ( 
MAX 39) "iB 

2)0 IF B < 1 OR B > 39 THEN 20 

0 

220 X - 128 - A * 3 / 2:Y - 72 
230 GOSUB 310 
250 FOR N ' 0 TO 11 
260 IF A / B - F(N) OR B / A - 
F(N) THEN VTAB 21: CALL - 95 
B: PRINT " RAZÃO DE FIBÔNACCI " 
; CHR3 (7) 
270 NEXT 

280 FOR I - 1 TO 1000: NEXT : 
POKE - 16302,0: GET RS 
300 GOTO 90 

310 FOR XX=XTOX+3»A 
320 HPLOT XX. Y TO XX , Y + 3 ■ B 



O programa começa pedindo que o 
usuário defina o tamanho dos lados do 
retângulo. Se você entrar dois números 
adjacentes da série de Fíbonacci, será 
avisado de que se trata de uma f ração 
de Fibonacci. 

Os números da série são calculados 
nas linhas que vâo de 20 a 50. A partir 
dos dois primeiros números, os demais 
vâo sendo calculados pela adição de ca- 
da número ao anterior. As linhas 60 a 
80 guardam os números em uma matriz 
e as linhas 90 a 1 70 desenham um retân- 
gulo, para exemplo. Em seguida, come- 
ça a rotina de entrada, que verifica se 
os números escolhidos pertencem à sé- 
rie de Fibonacci, 

Podem-se encontrar exemplos dos 
números de Fibonacci também na natu- 
reza; assim, uma espiral ligando folhas 
de um galho tem voltas e vãos que for- 
mam razões de Fibonacci. Conte o nú- 
mero de voltas da espiral, de uma folha 
à outra. Depois, conte o número de vãos 
da espiral entre essas duas posições. A 
razão é, em geral, 5/3 ou 8/5. 
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JOGOS DE i 
ÀS ÂIRMAS 



ALCANCE DOS PROJÉTEIS 



COMBATE CORPO A CORPO 



CONFERINDO O MORAL 



VITÓRIA E DERROTA 



INSTRUÇÕES 



A batalha começa, afinal, possibilitada 
pelas rotinas de combate balístico e 
corpo a corpo que apresentamos neste 
artigo. Veremos também como testar o 
moral e contar as baixas de cada lado. 



Capa e Espada está quase completo; 
já podemos dar ordens às unidades e 
movê-las pelo campo de batalha. Faltam 
apenas as rotinas de combate. Depois de 



adicioná-las ao programa, experimenta 
remos, finalmente, o jogo. 

Os eventos resultantes do choque en 
tre dois exércitos podem ser bem com 
plicados — assim, antes de qualquer 
sa, devemos decidir o que incluir no pro- 
grama. No tipo mais simples de resolu- 
ção de combate, o maior sempre vence, 
o que faz do tamanho das unidades o 
fator decisivo da vitória ou da derrota. 
Podemos ainda relacionar o desenlace 
da batalha ao moral da tropa, ao núme- 
ro de cavaleiros etc. Na realidade, nin- 



guém tem a receita infalível do triunfo; 
portanto, os fatores que determinam 
quais serão os vencedores em um jogo 
de guerra dependem da escolha do pro- 
gramador. 



Em Capa e Espada existem dois tipos 
de combate: balístico (flechas) e corpo 
a corpo. Esta primeira rotina trata do 
combate com projéteis. 
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1710 BEM Tiro 
1720 GOSUB 2540 

1730 PRINT AT 18,0;"Unidade "jb 
h; _ atira" 

1740 LET fx*5: LET fy-5; LET gp 
— 1 

1745 LET st-9 

1750 IF sh>8 THEN LET at=l 
1770 FOR n-al TO (at+7) 
1780 LET t»=ABS (T 8) -T (ah . B ) 
): LET ty-ABS (T (n , 9) -T í ah , 9) ) 
1785 IF tm<fx AND T(m,l)<5 AND 
ty<fy THEN LET fx-tm: LET fy-t 
y: LET gp=n 
1790 NEXT ■ 

1800 IF gp*-l THEN PRINT AT 19 
,0;-Fora de alcance": GOSUB 241 
0: RETURN 

1810 LET C=8-T(gp.4)-ABS{fx-fy ) 
1820 IF gp<3 OR gp = 9 OR gp-10 T 
HEN LET C-C+l 

1B30 IF m(T(gp,8) .T(gp.9) í*2 TH 
EN LET OC-2 

1840 IF T(gp.l)<>2 THEN LET C= 
C+l 

1850 LET CMC+dNT (T(sh,7)/40) 
)*FN r(3))M0 

1860 LET T(gp.7)*T(gp.7)-C 

1870 PRINT "Houve ":C:" baixaa 

na unidade " ; gp 

1875 GOSUB 2410 

1880 LET un=gp: GOSUB 2200 

1890 RETURN 



ff/i 



1710 REM TIRO 
1720 GOSUB 2540 

1730 LOCATE 0.19:PRINT "UNIDADE 

";SH; _ ATIRA" 

1740 FX-5:FY-5:GP--1 

1745 ST-9 

1750 IF SH>8 THEN ST-1 

1770 FOR M-ST TO ST+7 

1780 TM" ABS (T{M,8) - (T(SH,B) ) :TY 

-ABS(T(M.9)-T(SH.9)) 

1785 IF TM<FX AND T(M,1)<5 AND 

TY<FY THEN FX-TM : FY=TY : GP-M 

1790 NEXT M 

1800 IF GP=-1 THEN LOCATE 0.20: 
PRINT "FORA DE ALCANCE" :GOSUB 2 
410 

1810 C-8-T<GP,4)-ÀBSCFX-FY) 
1820 IF GP<3 OR GP-9 OR GP-10 T 
HEN C-C+l 

1830 IF MÍT(GP.B) ,T(GP,9))-2 TH 
EN C-C-2 

1840 IF T(GP.1K>2 THEN C-C+l 
1850 C-(C+INT(T(SH,7)/40))+FN R 
(3) )*10 

1860 T(GP.7)-T(GP,7)-C 

1870 PRINT *HOUUE";C;"BAIXAS NA 

NIDADE" ; GP 
1875 GOSUB 2410 
1880 UN-GP:GOSUB 2200 
1890 RETURN 




SC 



1710 REM TIRO 



1720 GOSUB 2540 

1730 VTAB 21: PRINT "UNIDADE 1 
;SHi" ATIRA* : GOSUB 30000 
1740 FX - 5:FY - 5:<JP - - 1 
1745 ST-9 

1750 IF SH > B THEN ST-1 
1770 FOR M - ST TO (8T + 7) 



1780 TM - ABS (T(M,8) - T(SH,8 

) ) :TY - ABS (T(M,9) ) 

17B5 IF TM < FX AND T(M.l) < 5 

AND TY < FY THEN FX - TM: FY - 
TY:CP - M 
1790 NEXT H 

1800 IF GP - - 1 THEN PRINT 
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- C + 1 

1850 C - (C + 1 INT (T<SH,4> / 
40) ) + FN R(3) ) « 10 
1860 T(GP.7) - T(GP,7) - C 
1870 PRINT "HOUVE ";Ci" BAIXAS 

HA UNIDADE - :GP 
1875 GOSUB 30000: GOSUB 2410 
1880 UN - CP: GOSUB 2200 
1890 RE TU RN 

El 

Modifique as seguinles linhas do pro- 
grama destinado ao Apple: 

1730 VTAB 21: PB TNT "UNIDADE " 
:SH;" ATIBA" 

1800 IF GP - - 1 THEN PHINT 
* FORA DE ALCANCE" : GOSUB 2410: 
RETURN 

1875 GOSUB 2410 



a 



"FORA DE ALCANCE": GOSUB 30000: 

GOSUB 2410: RETURN 
1810 C - B - T(GP.4) - ABS (FX 

- FT) 

1820 IF GP < 3 OR GP - 9 OR GP 

- 10 THEN C-C + l 

1830 IF M<T(GP.B) ,T(GP,9)) - 2 



1710 REM TIRO 
1720 GOSUB 2540 

1730 DRAW"BM0.152":AS--UNIDADE" 
+STRSÍSHI+" ATIRAVGOSUB 3190 
1740 FX-5:FY-5:GP--1 
1745 ST-9 

1750 IF SH>8 THEN ST-1 

1770 FOR M«ST TO (ST+7) 

1780 TM- ABS (T (M , B) -T (SH . 81 ) : TY- 

ABS<T(M.9)-T[SH.9)) 

1785 IF TM<FX AND T{M.1)<5 AND 

TY<FY THEN FX-TM : FY-TY :GP-M 

1790 NEXT W 

1800 IF GP— 1 THEN DRAU"BM0,160 
":AS-"FORA DE ALCANCE" : GOSUB 31 
90 : GOSUB 24 10: RETURN 
1810 OB-T(GP.4>-ABS<FX-FY) 
1820 IF GP<3 OR GP-9 OR GP-10 T 
HEN C-C+l 

1830 IF MÍTCGP.8) ,T<CP.9))-2 TH 
EN C-C-2 

1840 IF T(GP,1)<>2 THEN C-C+l 
1850 C-(C+INT(T(SH.7)/40))+RND( 
3) )«10 

1860 T(GP,7)-T(GP,7)-C 

1870 DRAW"BM0,160":AS~"HOUVE"+S 

TR3(C)+" BAIXAS NA UN IDADE *+STR 

S(GP) :GOSUB 3190 

1875 GOSUB 2410 

1880 UN-GP:GOSUB 2200 

1890 RETURN 

A rotina de tiro é chamada sempre 
que os arqueiros recebem a ordem "FO- 
GO". Em outros jogos pode haver mais 
de um tipo de unidade com capacidade 
de atirar diferentes projéteis. 

Quando uma unidade recebe a ordem 
de disparo, G% (GP ou gp) passa a va- 
ler - 1 na linha 1740. A seguir, a rotina 
verificará se há um alvo vulnerável na 
área. As coordenadas da unidade que 
atira são comparadas às de cada unida- 
de inimiga pela linha 1780. Se o alvo es- 
tiver dentro de um alcance de cinco po- 



sições do mapa, GVt (GP ou gp) assu- 
me o número da unidade atingida. Se 
houver mais de um alvo, o mais próxi- 
mo será considerado. 

Caso não haja unidades inimigas por 
perto, G% (GP ou gp) permanece va- 
lendo - 1 e o jogador é informado que 
o inimigo está "FORA DE ALCANCE". 

Se o disparo atingir o alvo, as baixas 
inimigas serão calculadas e armazenadas 
em Cft (ou C). 

Vários fatores determinam a gravida- 
de dos danos causados por um disparo. 
Na linha 1810, o tipo de armadura da 
unidade-alvo é subtraído de 8. Em se- 
guida, subtrai-se do resultado um fator 
de distância. A linha 1820 adiciona 1 a 
C<7« (ou C), se a unidade-alvo for de ca- 
valeiros. Se ela estava resguardada por 
uma floresta (terreno tipo 2), a linha 
1830 subtrai 2; se se encontrava em mo- 
vimento, a linha 1840 adiciona 1 (tro- 
pas em movimento são mais vulneráveis 
à artilharia). 

Finalmente, a linha 1850 soma o re- 
sultado a um quarto do poder da uni- 
dade atacante, mais uma parcela alea- 
tória — tudo isso vezes dez. O resulta- 
do corresponde ao total de baixas da 
unidade-alvo. As baixas são subtraídas 
do poder da unidade e, em seguida, a 
rotina que testa o moral é chamada. 



O resultado do combate corpo a cor- 
o é calculado de maneira similar: 



1510 REM Combate 

1520 IF <us<9 AND th<9) OR lua> 

8 AND th>B) THEN RETURN 

1530 IF Ttus.l)=5 OR T(th,l>=5 

THEN RETURN 

1540 GOSUB 2540 

1550 PRTNT AT 16 , 0 ; "Combate t !" 
1560 LET at=INT ( (T tus , 7 ) -T t th , 
7) )/50) 

1570 LET at-at+T(uB.3)-T(th.4)+ 
T(ub.5)+FN r<5) 

1580 IF ABS (T(u3.2)-TCth.2>)<> 

2 THEN LET at-at+2 

1590 IF U8<3 OR ub=9 OR us*10 T 

HEN LET at-at+l 

1600 LET dr = INT { |T(l.h, 7) -T(ua. 

m/e©] 

1610 LET df-df+Ttth. 3)-T(us.4í* 
T(th.5)+a(T[th.8) ,T(th,9))+FN r 
(31+2 

1615 LET wn-th: LET 1o-ub 
1620 IF aOdf THEN I.ET wn-ua : 
LET lo=th 

1630 LET wc-INT (Tfwn, 71/10) : I 
V wc<l THEN LET wc=l 
1640 LET T(wn.7)«T<un.7)-wc 
1650 LET lc-INT (T(lo.7)/5): IF 
lc<l THEN LET lc-1 
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1660 LET T( lo, 7) =T( lo. 7) -lc 

1670 PRINT wn;" perde ";wc; 

lo;* perde ":1c 

1680 GOSUB 2410 

1690 LET un-lo: GOSUB 2200 

1700 RETURN 



1670 PRINT WN ; " PERDE" : WC ; 

; "PERDE" ; LC 

1680 GOSUB 2410 

1690 UN-L0:G0SUB 2200 

1700 RETURN 



1660 T(LO,7) = TCL0.7) - LC 
1670 PRINT WN;" PERDE ";WC;" 
;LO;" PERDE ";LC: GOSUB 30000 
1680 GOSUB 2410 
1690 UN = LO: GOSUB 2200 
1700 RETURN 



1510 REM COMBATE 

1520 IF (US<9 AND TH<9) OR (US> 

8 AND TH>B) THEN RETURN 

1530 IF T(US.1)=5 OR T{TH,1)=5 



1560 AT-INT((T(US,7)-T(TH,7))/5 
0) 

1570 AT-AT+T(US.3)-T(TH.4)+T(US 
,5)+FN R(5) 

1580 IF ABS(T(US.2)-T(TH.2))<>2 

THEN AT»AT+2 
1590 IF USO OR. US-9 OR US=10 T 
HEN AT-AT+1 

1600 DR-INTI (T<TH,7) -T<US, 7) )/6 



1615 WN=TH:LO=US 
1620 IF AT>DF THEN WN=US:LO=TH 
1630 WC-INT(T(WN. 7)/10) :IF WC<1 
THEN WC-1 
1640 T<WN.7)=T(WN,7)-WC 
1650 LC=INT(T(LO,7)/5> : IF LC<1 
THEN LC=1 

1660 T(LO,7)=T(L0.7)-LC 



1510 REM COMBATE 
1520 IF (US < 9 AND TH < 9) OR 
{US > 8 AND TH > 8) THEN RETU 
RN 

1530 IF T(US.l) - 5 OR T(TH,1) 

- 5 THEN RETURN 
1540 GOSUB 2540 

1550 VTAB 21: PRINT "COMBATE ! 
U-i GOSUB 30000 

1560 TT - INT ((T(U3,7) - T (TH 
.7)) / 50) 

1570 TT - TT + T(US,3) - TÍTH.4 
) + T(US,5) + FN R(5) 
1580 IF ABS (T(US,2) - T (TH , 2 
) ) < > 2 THEN TT ■ TT + 2 
1590 IF US < 3 OR US - 9 OR US 

- 10 THEN TT 1 TT t 1 

1600 DR - INT <(T(TH.7) - T (US 
.7)) / 60) 

1610 DF - DF + TITH.3) - T(US,4 

) + TÍTH.5) + M(T(TH,8) ,T(TH,9) 

) ♦ FN RO) + 2 

1615 WN - TH : LO - US 

1620 IF TT > DF THEN WN - US:L 

0 - TH 

1630 WC - INT (T[WN,7) / 10): 
IF WC < 1 THEN WC-1 
1640 T(WN,7) = T(WN.7) - WC 
1650 LC - INT (T(L0.7) / 5) : I 
F LC < 1 THEN LC =■ 1 



1550 VTAB 21: PRINT "COMBATE 



1510 REM COMBATE 

1520 IF (US<9 ANU TH<9) OR (US> 

8 AND TH>B) THEN RETURN 

1530 IF T1US.D-5 OR T[TH.1)=5 

THEN RETURN 

1540 GOSUB 2540 

1550 DRAWBM0 .144" : AS-"COMBATE ! 

! " :GOSUB 3190 

1560 AT'INT((T(US.7)-T(TH,7))/5 
0) 

15/0 AT=AT+T(US,3)-T(TH.4)+T(US 
, 5) +RND |5) 

1580 IF ABS(T(US,2)-TÍTH.2))<>2 

THEN AT-AT+2 
1590 IF USO OR US--9 OR US-10 T 
HEN AT-AT+1 

1600 DF= INT [ (T{TH,7)-T(US, 7) ) /6 
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1615 UN = TÍÍ : LG=US 

1620 IF AT>DF THEN WN=US : L0=TH 

1630 WC= INT ÍT(WN.7)/10) : IF WC<] 

THEN WC=1 
1640 T(WN.7)-TÍWN,7)-WC 
1650 LC=INT(T(LO,7)/5) : IF LC<1 
THEN LC=1 

1660 T(LO./)=T(LO,7)-LC 

16/0 DRAWBMQ , 160 " : AS"STRS ( WN) ♦ 

" PERDE"+STKS(WC>+" "+STRS (LO) + 

" PERDE" + 5TRS (LO : GOSUU 3190 

1680 GOSUB 2410 

1690 UN=LO:GOSUB 2200 

1700 RETURN 

Essa rotina é chamada sempre que 
duas unidades se encontram no tabulei- 
ro. Se elas forem do mesmo exército, a 
rotina é imediatamente interrompida. O 
mesmo acontece se uma das unidades es- 
tiver em retirada — linha 1530. 

A principal diferença entre o combate 
balístico e o corpo a corpo é que, no se- 
gundo caso, as duas unidades entram em 
ação. O combale corpo a corpo é, por- 
tanto, mais complexo, exigindo que se 
calculem as baixas dos dois lados, 

A linha i 560 dá ao atacante uma no- 
ta igual a um quinto da diferença entre 
o poder das duas unidades. Em segui* 
da, a diferença entre a arma do atacan- 
te e a armadura do atacado é somada 
ao valor do moral do atacante mais um 
número aleatório de I a 5. 



Aquele que ataca tem 
ional se o inimigo não e 



te. Inclui-se nessa situação o atacante 
que se movia em direção diferente da do 
inimigo — se ele estiver parado, a dire- 
ção de seu último movimento será con- 
siderada. Por isso, nunca apagamos o 
elemento de direção de uma unidade, 
após uma ordem "ALTO". Finalmen- 
te, o atacante tem também um bónus se 
for uma unidade de cavaleiros. 

A nota da unidade atacada é calcu- 
lada de modo semelhante, correspon- 
dendo a soma destes elementos: um sex- 
to da diferença de poder, a diferença en- 
tre a arma do atacante e a armadura do 
atacado, o moral do defensor, um bó- 
nus que depende do terreno, um bónus 
fixo de 2, um número aleatório de 1 a 
3. Esses cálculos têm como pressuposto 
que defender é mais fácil que atacar. Às 
vezes, porém, o entusiasmo do atacan- 
te pode neutralizar tal vantagem. 

Assim, os atacantes obterão uma no- 
ta (AT) e os defensores outra (DF). A 
unidade que alcança o valor mais alto 
ganha a batalha, perdendo apenas um 
décimo de seu poder. Já o poder do der- 
rotado é reduzido em um quinto. 

Finalmente, a rotina que testa o mo- 
ral é chamada para o derrotado. 



O fator psicológico tem grande pe 
uma guerra. É bem possível que i 



exército seja derrotado, mesmo que es- 
teja equipado com as melhores armas do 
mundo, se a tropa detestar seus gene- 
rais, simpatizar com a causa inimiga ou, 
simplesmente, não quiser lutar. 

A psicologia humana é muito com- 
plexa e nào pretendemos reproduzi-la 
aqui. Em Capa e Espada o moral in- 
fluencia apenas a sobrevivência da uni- 
dade e o resultado do combate. 



2200 BEM Moral 

2210 IF T<un,6)-T(un.7)<({T(un. 

6) /100) ■ ( IT<un,5)+2) ) ) THEN RE 

TURN 

2220 GOSUB 2540 

2230 PRINT AT 18,0;" Aa perdas 

foram tao grandes" 

2240 PRINT AT 19,0;" que a urud 

ade " ;un; " se desintegra" 

2250 GOSUB 2410 

2260 LET T(un,l)-5 

2270 PRINT AT T(un,B) ,T(un,9) i" 
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2240 PRINT 'QUE A UNIDADE" j UN i " 
SE DESINTEGRA" 

2250 GOSUB 2410 

2260 T<UN.l)-5 . 
2270 LOCATE T (UN, 9) , T (UN. 8) : PRI 
NT p ■ ! 
2280 BETUBN 

IX 

2200 BEM MORAL 

2210 1F T{UN,6) - T(UN,7) < ({ 
TIUN.6) / 100) * <(T(UN,5) + 2) 
)) TH EN BETUBN 
2220 GOSUB 2540 

2230 VTAB 21: PRINT 'AS BAIXAS 

FORAM MUITO GBANDES" 
2240 PRINT "A UNIDADE ";UN;" S 
E DESINTEGROU" 
2250 GOSUB 2410 
2260 T(UN.l) - 5 
2270 X - T(UN,9):Y - T(UN,8):N 
- 14: GOSUB 10000 
2 2 80 RETURN 

EB 

Adicione as seguintes linhas: 

2545 COLOR- 0: FOR I - 160 TO 

191 

2550 BPLOT 0.1 TO 279,1: NEXT 
! RETURN 
30000 RETURN 

D 

2200 REM MORAL 

2210 IF T(UN,6)-T(UN,7)<({T{UN. 
6)/100)M(T(UN,5)+2>*10)) THEN 
RETURN 

2220 GOSUB 2540 

2230 DRAW"BM0.152":AS-"AS PERDA 
S FORAM MUITO GRANDES" : GOSUB 31 
90 

2240 DRAW"BM0,16O":AS-"UNIDADE" 
+STRS(UN)+" SE DESINTEGRA" :GOSU 
B 3190 

2250 GOSUB 2410 
2260 T(UN,l)-5 

2270 X9-T(UN,9)*8:Y9-T(UN.8}"8: 
LINE (X9 , Y9) - (X9+7 , ¥9+7) , PRESET. 
BF 

2280 RETURN 

A linha 22 10 subtrai o poder at uai do 
poder inicial da tropa, comparando o re- 
sultado com o moral. Se a unidade so- 
freu uma perda de 30% e tem o moral 
baixo, ela se dispersa e não participa 
mais do jogo. Se o moral for mais ele- 
vado, uma unidade poderá perder até 
70% do poder antes de se dispersar. 

Quando uma unidade não passa no 
teste do moral, as linhas 2230 e 2240 
transmitem uma mensagem informando 
a dispersão. O elemento de comando da 
matriz da tropa passa a valer 5, o que 
significa que a tropa bateu em retirada. 
A unidade é apagada da tela e ignora- 
da. Porém, como há desertores espalha- 



dos pelo campo de batalha, a unidade 
poderá dificultar o movimento de tro- 
pas, apesar de estar invisível. 



ENFIM. A PAZ 



Entre os últimos detalhes que preci- 
samos incluir no programa está uma ro- 
tina de verificação do fim do jogo. 




2290 BEM Vitoria 

2300 LET gd»0: LET bd=0 

2310 FOR k-1 TO 8 

2320 IF T(«,l)<>5 THEN LET gd- 

gd+1 

2330 IF T(n+8.1.)<>5 THEN LET b 

d-bd+1 

2340 NEXT ■ 

2350 IF gd>bd*2 OR (bd<2 AND gd 

>2) THEN LET ve-1 

2360 IF bd>gd*2 OR (gd<2 AND bd 

>2) THEN LET de-1 

2370 RETURN 

2380 REM Elia 

2390 IF vc-1 THEN PRINT "VÍTOR 
IA III" 

2395 IF de-1 THEN PRINT "Uma h 
uailhantf! derrota." 
2400 RETURN 




2290 REM VITORIA 

2300 GD=0:BD-=0 

2310 FOB M=] TO 8 

2320 IF T(M,1)<>5 THEN GD-GD+1 

2330 IF T(M+8,1)<>5 THEN BD-BD+ 

1 

2340 NEXT M 

2350 IF GD>BD*2 OR {BD<2 AND GD 
>2) THEN VC=1 

2360 IF BD>GD*2 OR (GD<2 AND BD 
>2) THEN DE-1 
2370 RETURN 
2380 REM FIM 

2390 IF VC-1 THEN PRINT "V1TÕBI 

h IH" 

2395 IF DE-1 THEN PRINT "UMA HU 
MILHANTE DERROTA. " 
2400 RETURN 

SE 

2290 BEM VITORIA 

2300 GD - 0:BD - 0 

2310 FOR M = 1 TO 8 

2320 IF T(M,1) < > 5 THEN GD 

-GD+1 

2330 IF T(M + 8,1) < > 5 THEN 

BD - BD + 1 
2340 NEXT M 

2350 IF GD > BD * 2 OB (BD < 2 
AND GD > 2) THEN VC = 1 

2360 IF BD > GD * 2 OB (GD < 2 
AND BD > 2) THEN DE-1 

2370 RETURN 

2380 REM FIM 

2390 IF VC - 1 THEN PRINT "VI 
TORIA !!!": GOSUB 30000 



2395 IF DE - 1 THEN PRINT "UM 
A HUMILHANTE DERROTA" : GOSUB 30 
000 

2400 RETURN 



Modificações do programa do Apple: 

2390 IF VC - 1 THEN PRINT "VI 
TORIA ! ! ! " 

2395 IF DE - 1 THEN PRINT "UM 
A HUMILHANTE DERROTA" 

□ 

2290 REM VITORIA 

2300 GD-0:BD-0 

2310 FOR M-l TO 8 

2320 IF T(M,1)<>5 THEN GD-GD+1 

2330 IF T(M+8.1)<>5 THEN BD-BD+ 



2340 NEXT M 

2350 IF GD>BD*2 OR (BD<2 AND GD 
>2) THEN VC-1 

2360 IF BD>GD*2 OR (GD<2 AND BD 
>2) THEN DE-1 
2370 RETURN 
2380 REM FIM 

2390 IF VC-1 THEN DRAWBM0 . 1 76" 
:A$-"VITORIA !!!". GOSUB 3190 
2395 IF DE-1 THEN DRAWBM0 , 1 76" 
:AS-"UMA HUMILHANTE DERROTA. " : G 
OSUB 3190 
2400 RETURN 

A rotina verifica se um dos adversá- 
rios conta com o dobro de unidades do 
outro ou se um deles tem menos de duas 
unidades. Uma mensagem informa aos 
jogadores o resultado. 

Poderíamos acrescentar outras con- 
dições de vitória. Por exemplo, um fa- 
tor que decidiu muitas guerras do perío- 
do medieval foi a morte do líder. Po- 
rém, a incorporação desse elemento a 
um jogo, além de trazer outros proble- 
mas, fada com que a atenção dos joga- 
dores estivesse permanentemente volta- 
da para uma das unidades. 

Uma unidade também poderia obter 
a vitória se atingisse a extremidade opos- 
ta do mapa com metade de seus efeti- 
vos, ou metade de seu poder. Outro cri- 
tério seria peio total de baixas. Nesse ca- 
so, teríamos de acrescentar uma variá- 
vel para calcular o número. 



ALEA JACTA EST 



Já digitamos todas as rotinas neces- 
sárias ao jogo. Agora, precisamos ape- 
nas incluir um laço principal, que as 
chame ordenadamente: 




10 CLEAR 

30 GOSUB 190 
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40 COSUB 470 

50 GOSUB 860 

60 REH Loop 

70 FOR i-1 TO 8 

80 IF T(i.l)<4 THEN GOSUB 

1380: IP y>2 THEN GOSUB 1900 

90 IF T(i,l)<5 THEN INK 1: 

PRINT AT T(i ,B) ,T(i,9) ;u$(i) 

100 NEXT 1 

110 FOR e-9 TO 16 

120 IF T(e.l)<4 THEN GOSUB 
2140 

130 NEXT e 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF vcOl AND (JeOl THEN 

GOTO 60 

170 GOSUB 23B0 

180 STOP 
2410 REM Atraso 

2420 PRINT AT 21 , 7 ; " I QUALQUER T 
ECLA 1 " 

2425 LET g$-INKEYS: IF 9$-"" TH 
EN GOTO 2425 
2430 RETURN 

ftU 

10 CLEAR 5000 
30 GOSUB 190 
40 GOSUB 470 
50 GOSUB 860 
70 FOH 1-1 TO 8 

80 IF TU. 1X4 THEN GOSUB 1360: 

IF YW>2 THEN GOSUB 1900 

90 IF TU, 1X5 THEN LOCATE TU, 

9) ,T(I,B) :PRINT CHRS(UU)); 

100 NEXT I 

110 FOR E-9 TO 16 

120 IF T(E,1X4 THEN GOSUB 2140 

130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VCOl AND DEOl THEN 60 
170 GOSUB 2380 
180 END 

2410 REH ATRASO 

2420 LOCATE 5,22: PRINT "APERTE 
QUALQUER TECLA" 

2425 GS-INKEY$:IF C$-"' THEN 24 
25 

2430 RETURN 

ES 

30 GOSUB 190 

40 GOSUS 470 

S0 GOSUB 860 

70 FOR I - 1 TO 8 

BO IF T(I.l) < 4 THEN GOSUB 1 

380: IF YW > 2 THEN GOSUB 1900 

90 IP 7(1,1) < 5 THEN X - T(I, 

9):Y - T(I,B):N - UAL ( MIDS ( 

US, I, 1) ) : GOSUB 10000 

100 NEXT I 

110 FOR E - 9 TO 16 

120 IF T(E,1) < 4 THEN GOSUB 

2140 

130 NEXT E 
140 GOSUB 1020 
150 GOSUB 2290 

160 IF UC < > 1 AND DE < > 1 
THEN GOTO 70 



170 GOSUB 2380 
180 END 

475 REM XXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxx 

476 REM XXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxx 

2410 REM ATRASO 

2420 PRINT "APERTE QUALQUER TE 

CLA" ; : GOSUB 30000 

2425 GET GS: 

2430 RETURN 

30000 FOR QQ - 1616 TO 2000 ST 
EP 128 

30010 FOR WW - 0 TO 39 

30020 POKE QQ + WW + 1024, PEE 

K (QQ + WW) 

30030 NEXT WW.QQ 

30040 RETURN 

EO 

Modificações a serem feitas no pro- 
grama acima: 

2420 PRINT "APERTE QUALQUER TE 
CLA"| 

El 

10 CLEAR 500:PMODE 3,l:COLOR2,l 

:PCLS:SCREEN 1,0: DU-RND (-TIMER) 

18 GOSUB 2410:CLS:END 

30 GOSUB 190 

40 GOSUB 470:GOSUB 3130 

50 GOSUB 860 

60 REM 

70 FOR I«l TO 8 

80 IF TU. 1X4 THEN GOSUB 1380: 

IF Y>2 THEN GOSUB 1900 

90 IF TU. 1X5 THEN COLOR 3 : DRA 

W"BM"+STRS(TU,9)"6) + " , "+STRS(T 

U.8)*8) :UU-VAL{MIDS(U$,I.l) ) :A 

S-UCS(UU) : GOSUB 3000 

100 NEXT I 

110 FOR E-9 TO 16 

120 IF T (E , 1X4 THEN COSUB 2140 

130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VCOl AND DEOl THEN 60 

170 GOSUB 23B0 

190 REM INICIO 

200 VC-0:DE-0 

2410 REM ATRASO 

2420 DRAW"BM80.176-:AS-*APERTE 

QUALQUER TECLA": GOSUB 3190 

2425 GS-INKEY3:IF G3-"" THEN 24 
25 

2426 L1NE(0.176)-<255,183) ,PRES 



ET.BF 

2430 RETURN 

Em primeiro lugar, todos os micro- 
computadores, com excecão dos perten- 
centes às Unhas Apple e TK-2000, lim- 
pam a memória. O TRS-Color selecio- 
na o modo gráfico. Em seguida, as ro- 
tinas que criam os blocos gráficos e de- 
senham o mapa são chamadas. 

O laço principal começa na linha 60 
e termina na linha 160. Ele permite que 
tanto o jogador quanto o computador 
dêem ordens às suas respectivas unida- 
des. Depois, a rotina que faz com que 
as unidades obedeçam às ordens é exe- 
cutada dezesseis vezes, seguida de uma 
chamada para verificação de fina] de jo- 
go. O laço se repete enquanto um dos 
lados não vencer. 

Ao final da listagem (começando na 
linha 2410), temos uma rotina encarre- 
gada de provocar uma pausa em deter- 
minados momentos do jogo. 



AS INSTRUÇÕES 



Ao ser executado, o programa dese- 
nha o mapa com os diferentes terrenos, 
a moldura e as tropas beligerantes. 

Este é o momento de planejar sua es- 
tratégia. Uma série de mensagens sur- 
girá na janela de texto. Começando com 
a unidade um, são mostrados na tela o 
número e o tipo de homens da unidade, 
juntamente com suas últimas ordens — 
"ALTO", por exemplo. O jogador é en- 
tão questionado sobre uma possível mu- 
dança de ordens. 

Se a resposta for Sim, um menu com 
as opções FOGO, ALTO, MARCHE e 
STATUS é exibido. A opção de atirar 
aplica-se somente aos arqueiros e, se se- 
lecionada indevidamente para qualquer 
outra unidade, surgirá na tela a mensa- 
gem "SEM ARCOS". Quando a opção 
MARCHE for selecionada, o computa- 
dor pedirá que se indique a direção 
(N.S.L.O). 

Esse processo se repete para cada uni- 
dade, cuja cor é modificada para orien- 
tar o jogador. 



0 QUE FAITA? 



Neste estágio. Capa e Espada é um 
jogo de guerra bem simples, mas, ain- 
da assim, bastante divertido. 

Na última parte da série, veremos co- 
mo transformar o computador em um 
jogador mais habilidoso. Mas, especial- 
mente se você for um principiante, ten- 
te jogar Capa e Espada como está, pa- 
ra apreciar os principais aspectos desse 



mim 
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AVALANCHE: 
O TEMPO FECHA 



Meteorologia pode não ser seu ponto 
forte, mas chegou a hora de adicionar 
um pouco de tempestade ao jogo, 
Avalanche tem agora nuvens ou sol, 
conforme a versão do programa. 



Como se Willie já não tivesse proble- 
mas suficientes com os buracos, as ser- 
pentes e a maré, uma nuvem escura pro- 
mete chuva, ameaçando molhar seu lan- 
che! Mas não se preocupe se você não 
for usuário do Spectrum ou do MSX. 
Troveja apenas nas versões de A valan- 
che para esses micros. 

Willie está com mais sorte no progra- 
ma do TRS-Color. Não há nuvens no 
céu e um belo sol de verão brilhará du- 
rante todo o jogo. 



A seguinte rotina desenha uma nu- 
vem que se movimenta de acordo com 
a direção do vento: 



BEM 
BEM 
R EM 
REM 
BEM 
BEM 

BEM 
BEM 

BEM 
BEM 
BEM 
BEM 
BEM 
BEM 
BEM 
BEM 
BEM 
BEM 
HEM 

H Em 

REM 

BEM 

BEM 

BEM 

BEM 

BEM 

REM 

BEM 

REM 

REM 

REM 
I REM 

REM 
< BEM 

REM 

REM : 

REM 
i REM 

REM 



org 58795 
cld ld a, (57347) 

ld (57347) .a 
cp 0 

ret 

cdw ld a, 6 
ld (57347) ,a 
ld a, 45 
ld bc. 16384 
ld hl . (57345) 
ld d,3 
ld e,2 
call blk 
ld a, (57348) 
cp 0 

jr x.crt 
dec hl 

crt inc hl 
cho ld (57345) ,hl 
ld bc. 57144 
ld a, 47 
ld d. 3 
ld c,2 
call blk 
ld de, 129 
Bbc hl.de 



ld (57.348) ,a 
ret 

cnr ld de. 144 
ld hl , (57345) 
hl .de 



400 REM cnl ret 
410 REM org 58970 
420 REM blk * 

A posição de memória 57347 contém 
o atraso da nuvem. Essa variável con- 
trola a rapidez com que ela se movimen- 
ta pelo céu. Quando se inicializa o nível 
do jogo, a velocidade é especificada por 
meio de um número que é carregado 
nessa posição. 

Depois de carregado no acumulador, 
o atraso da nuvem é decrementado e ar- 
mazenado de volta em 57347. Se seu va- 
lor tiver sido reduzido a zero, as instru- 
ções cp 0 e jr z saltam a instrução rei e 
dão prosseguimento à rotina que movi- 
menta a nuvem. Caso contrário, o pro- 
cessador retorna e adia o movimento da 
nuvem até que o valor do atraso tenha 
sido reduzido a zero. 



A rotina encarregada de movimentar 
a nuvem começa acertando a variável de 
atraso. Repare que, se o valor desta já 
foi reduzido a 0, um outro decremento 
resultaria em 255 . Para que o atraso che- 
gasse novamente a 0, a rotina precisa- 
ria ser chamada 256 vezes — o que tor- 
naria o movimento da nuvem extrema- 
mente lento. Para evitar que isso ocor- 
ra, o número 6 é carregado no acumu- 
lador e colocado no endereço 57347. 
Com o atraso assim restabelecido, uma 
suave e refrescante brisa passa a empur- 
rar a nuvem, o que você pode constatar 
observando a tela. 

O número 45 ê carregado no acumu- 
lador. Ele será aproveitado pela rotina 
blk, que imprime um bloco de caracte- 
res. As dimensões do bloco devem ser 
carregadas nos registradores D e E — D 
carrega o número de colunas e E, o nú- 
mero de linhas. A rotina blk, por sua 
vez, utiliza a rotina print, que tem sido 
empregada com frequência neste jogo. 
O par de registros HL deve, então, car- 
regar a posição de tela; o par BC, o 
apontador de dados, e o acumulador A, 
a cor do caractere. 

O número 5 — código da cor azul 
ciano sobre azul ciano — é carregado no 
acumulador, pois a rotina imprime ca- 
racteres de céu sobre a nuvem, apagan- 



do-a. Depois disso, imprime a nuvem 
uma posição para a direita ou para a es- 
querda, dependendo da direção em que 
o vento está soprando. 

O par de registros BC é carregado 
com o endereço inicial dos padrões. Es- 
se endereço irá fornecer os dados apro- 
priados ao bloco azul de céu. O par HL 
é carregado com o conteúdo de 57345 
e 57346, que são os apontadores da po- 
sição atual da nuvem. 

A nuvem tem três colunas de compri- 
mento por duas linhas de altura. Assim, 
3 é carregado em D e 2, em E. Em se- 
guida, a rotina blk é chamada e impri- 
me o bloco de caracteres de céu azul, 
apagando a nuvem. 



DIREÇÃO DO VENTO 



A nuvem deve se movimentar na di- 
reção em que o vento está soprando. Pa- 
ra isso, utiliza-se a posição de memória 
57348, originalmente ajustada pela ro- 
tina de inicialização, como uma baliza. 
Se ela contém o valor 1 , o vento está so- 
prando para a esquerda; se contém o va- 
lor 0, o vento está soprando para a 
direita. 

O conteúdo de 57348 é carregado no 
acumulador. Se seu valor for 0, a ins- 
trução jr z salta para o rótulo crt e o 
apontador de posição da nuvem é incre- 
mentado, movendo-se uma posição pa- 
ra a direita na tela. Se o conteúdo de 
57348 for 1, a instrução jr z não atua 
e o par de registros HL é decrementa- 
do, movendo o apontador de posição da 
nuvem um caractere para a esquerda. A 
próxima instrução jr z simplesmente sal- 
ta sobre a instrução inc. 



SOPRANDO AS NUVENS 



O conteúdo de HL é trazido de volta 
para o apontador de posição da nuvem, 
nos endereços 57345, ajustando-o. Em 
seguida, o apontador de dados BC é car- 
regado com o endereço inicial dos da- 
dos da nuvem. 

O acumulador é carregado com 47 — 
código de branco sobre fundo ciano, a 
cor da nuvem. O registro D é carregado 
com 3 e o registro E, novamente com 2. 
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■ DESENH O DA NUVEM ■ MUDANÇA DE DIRE ÇÃO 

■ DIRE ÇÃO DO VENTO ■__ C ÉU ENCOBERTO 

■ OS CARACTERES ■ 0 MOVIMENTO DAS NUVENS 

~~ DO CÉU AZUL ■ VERIFICAÇÃO DA POSIÇ ÃO 

■ 0_EFEITÕ DO ATRASO ■ O SOL NO TRS-COLOR 



A nuvem é do mesmo tamanho daque- 
la que foi apagada. 

Depois disso, a rotina bile é chama- 
da e imprime a nuvem em sua nova po- 
sição na tela. 

O movimento da nuvem pode levá- 
la até o canto do vídeo. A parte dela que 
ultrapassar a primeira ou a última co- 
luna será impressa na linha seguinte ou 
na linha de cima, provocando a desfi- 
guração de sua forma. 

Para evitar que isso aconteça, o pro- 
grama verifica primeiro se a nuvem al- 
cançou o extremo esquerdo do vídeo. O 
par DE é carregado com 129 — a posi- 
ção de tela do canto esquerdo da linha. 
Esse valor é subtraída do apontador de 
posição da nuvem no par HL. Se o re- 



sultado não for 0, a nuvem não chegou 
no canto esquerdo. A instrução jr nz sal- 
ta então para verificar se ela alcançou 
o canto direito. 

Se o resultado for 0, a nuvem atin- 
giu o canto esquerdo e o salto não ocor- 
re. O acumulador é então carregado 
com 0 e esse valor é transferido para a 
baliza de direção do vento, de modo que 
a nuvem se desloque para a direita na 
próxima vez. 

A rotina crr verifica se a nuvem che- 
gou ao canto esquerdo do vídeo sub- 
traindo o número 144 do apontador de 
posição. Se ela atingiu o canto direito 
da linha, o valor 1 é carregado no indi- 
cador da direção do vento. Na próxima 
vez, a nuvem irá para a esquerda. 



0 BLOCO DA NUVEM 



Esta rotina imprime um bloco de ca- 
racteres na tela, com D colunas de com- 



primento 


por E linhas de altura. 


10 


REM 


org 58970 


20 


BEM 


blk puBh bl 


30 


BEM 


blj puah de 


40 


REM 




&0 


ti EM 


z puah de 


60 


REM 


call print 


70 


HEM 


inc hl 


80 


REM 




90 


REM 


dec d 


100 


REM 


jr m.t 


110 


HEM 




120 


REM 


ld de, 32 


1 30 


HEM 


add hl.de 


140 


Et EM 




150 


BEM 


dec e 


160 


HEM 


jr m.blj 


170 


REM 




180 


REM 


ret 


190 


REM 


org 58217 


200 


REM 


print * 



O programa anterior, que movimen- 
ta a nuvem, utiliza a rotina blk. Portan- 
to, não irá trabalhar até que a rotina que 
acabamos de apresentar esteja guarda- 
da na memória. Esta, por sua vez, não 
entrará em funcionamento sem que a ro- 
tina print, que também é chamada, se 
encontre na memória. 



Ê 0 BLOCO CERTO? 



O apontador da posição de tela em 
HL e o número de colunas e linhas que 
estão em DE são armazenados na pilha 
duas vezes. Isso é feito porque a rotina 
trabalhará com duas dimensões, usan- 
do dois laços. 

Como os parâmetros já estão arma- 
zenados, a rotina print é chamada e im- 
prime o primeiro caractere na tela. O 
par HL é incrementado, movendo-se um 
caractere para a direita. As dimensões 
do bloco são recuperadas da pilha e o 
parâmetro horizontal — equivalente ao 
número de colunas — é decrementado. 
Se o parâmetro não foi reduzido a 0, a 
instrução jr nz volta ao início do laço 
para imprimir outro caractere da nuvem 
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Quando o registrador D for 0, a pri- 
meira linha do bloco estará completa. 
Em seguida, recupcra-se o par HL da pi- 
lha e adiciona-se o número 32 ao seu va- 
lor. Como se trata de uma adição de nú- 
meros de dezesseis bits, a operação é fei- 
ta por intermédio do par DE. O resul- 
tado fica no par HL, fazendo com que 
esse apontador de tela se mova uma li- 
nha para baixo. O par DE é novamente 
recuperado da pilha, para ajustar o va- 
lor em D e para decrementar o valor em 
E. Esse registrador conta o número de 
linhas que falta. 

Se o valor no registro E não tiver si- 
do reduzido a 0, a instrução jr nz man- 
da o processador de volta ao início do 
laço, para começar a impressão de uma 
nova linha. 

Quando o valor de E for 0, o processa- 
dor sai do laço e o par HL é recuperado 
da pilha, ajustando o apontador de tela 
para as checagens que serão realizadas. 
Lembre-se de que precisamos verificar 
se a nuvem não atingiu nenhum dos can- 
tos da tela. 

Depois disso, a rotina blk retorna ao 
programa principal deste artigo. 



Na versão de A valanche para o TRS 
Çolor, a inclusão de uma nuvem exigi- 
ria um conjunto adicional de dados ol 
padrões. Ainda que isso não constituís 
se um problema, haveria um outro obs- 
táculo: o conjunto de cores já definido 
é azul, vermefho e verde — nenhuma de- 
las, portanto, é adequada para a nuvem 
Como nesta versão a aventura transcor- 
re num dia muito quente — com o céu 
avermelhado — , uma nuvem não é real- 
mente essencial. A rotina a seguir mo- 
vimenta o sol durante o jogo. 



10 



ORG 19727 

MOVSUN DEC 16258 

BNE SUNHET 

LDA |5 

STA 18258 

SYNC 

LDX ti 569 
LDA 130 
MOVA PSHS A 
LDA 12 

MOVB ANDCC tSFE 
PSHS CC 
CL RB 

MOVC PULS CC 
ROR B.X 
PSHS CC 
INCB 

CMPB |14 
BNE MOVC 
LSL.X 
PULS CC 
ROR.X 




260 

270 
280 
290 



DECA 

BNE MOVB 
LEAX 32.X 
PULS A 
DEC A 
BNE MOVA 
SUNRET RTS 



Para testar a rotina, digite o seguin- 
te programa: 
10 EXEC 19426 
20 EXEC 19727 
30 COTO 20 

A posição de memória 18258 contém 
a variável de atraso do sol. Essa variá- 
vel impede que o atraso risque o céu co- 
mo se fosse um disco voador, e é ajus- 
tada, inicialmente, com 5. 

A primeira instrução da rotina decre- 
menta o atraso do sol. Se o valor dessa 
variável for 0, a instrução BNE é des- 
viada para a instrução RTS do final da 



rotina e o processador retoma. Caso 
contrário, a instrução BNE não realiza 
o desvio e o processador continua com 
o restante da rotina. Em outras pala- 
vras, o movimento do sol sofre um atra- 
so, já que a rotina é executada uma vez 
a cada cinco chamadas. 

Logo que é chamada, a rotina ajusta 
o atraso do sol, colocando o número 5 
no acumulador e armazenando-o de vol- 
ta na posição de memória 18258. 



O comando SVNC encarrega-se de 
sincronizar o restante da rotina com o 
sinal de TV. Isso é feito para resguar- 
dar a posição do sol da mudança que se 
efetuará na tela. O registro X é carre- 
gado com o endereço na tela do canto 
superior esquerdo do sol. O acumulador 
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A é carregado com 30 (o soi tem 30 li- 
nhas de altura), valor que se guarda na 
pilha. Em seguida, A é carregado com 
2 — um contador de laço que fará o sol 
se deslocar lateralmente dois pontos na 
tela. 

A operação AND é efetuada entre 
o registro de código condicional e o 
número hexadecimal $FE. Como a re- 
presentação binária de SFE é 11111110, 
os sete bits mais significativos do re- 
gistro de código condicional permane- 
cem inalterados, enquanto o bit menos 
significativo é ajustado com 0. Esse bit 
— ou seja, o bit 0 do registro de có- 
digo condicional — corresponde à ba- 
liza carry, que, portanto, é zerada nes- 
sa operação. 

O registro de código condicional é 
guardado na pilha. O registrador B. 
ajustado com 0, será usado como um 
compensador. A rotina está ajustada e 
pronta para realizar o deslocamento. 



A parte seguinte da rotina que esta- 
mos examinando desloca o sol pelo céu. 
Para isso recupera da pilha o registro de 
código condicional, garantindo que, na 
primeira passagem do laço, o valor da 
baliza carry seja zero. 

A instrução ROR B,X roda uma po- 
sição para a direita os bits do endereço 
da tela apontado por X + B. A rotação 
desloca todos os bits. Assim, o último 
lugar desocupado no processo é carre- 
gado com o conteúdo da baliza carry, 
e o bit que ultrapassou o fim do outro 
lado é colocado nessa baliza. 

Os pontos que formam essa parte do 
sol são deslocados uma posição para a 
direita. O ponto no canto esquerdo é 
aceso (ajustado para 1) ou apagado 
(ajustado para 0, ou seja, adquire a cor 
do céu). O resto desse byte do sol é des- 
locado um ponto. 

O ponto colocado na baliza carry é 
preservado e a baliza volta para a pilha. 
O contador de laço em B é incrementa- 
do e comparado a 14 — número de ca- 
racteres da parte do céu ocupada pelo 
sol. A comparação permite-nos verifi- 
car se o último byte da área já foi des- 
locado. Se B for menor que 14, a ins- 
trução BNE manda o processador de 
volta, para continuar com o próximo ca- 
ractere. Chegando ao último caractere, 
o processador salta do laço. 



Esta aventura se passa no hemisfério 
norte e o sol se move da esquerda para 



a direita. Seria muito artificial se, ao al- 
cançar o final da tela ou esbarrar no es- 
core, o sol começasse a fazer o caminho 
de volta — isto é, da direita para a es- 
querda. 

Porém, como não existe noite na re- 
gião de Avalanche, nosso astro reapa- 
recerá à esquerda sempre que concluir 
seu percurso na tela. 

A instrução LSL ,X promove o des- 
locamento lógico para a esquerda do 
conteúdo da posição de tela apontada 
por X. O registrador X não foi altera- 
do nesta parte da rotina, e, por isso, ain- 
da aponta para o canto inferior esquer- 
do da figura do sol. Assim, o bit do can- 
to esquerdo é deslocado para fora do re- 
gistrador. O bit do canto direito, por 
sua vez, que já tinha sido deslocado do 
byte, é recuperado da pilha, voltando 
para a baliza carry. Em seguida, a ins- 
trução ROR ,X faz com que ele execute 
uma rotação sobre o canto esquerdo da 
posição de tela. 

O contador em A é decrementado e, 
se seu valor ainda não tiver chegado a 
0, o processador salta para deslocar o 
sol mais um ponto. 

Quando o deslocamento correspon- 
der a dois pontos, a instrução LÉAX 
32,X adiciona o valor 32 ao conteúdo 
do registro X e movimenta o apontador 
da posição de tela para a próxima linha 
abaixo do sol, O contador de linha, re- 
cuperado da pilha para o acumulador, 
è, então, decrementado. Se seu conteú- 
do não for igual a 0, a instrução BNE 
manda o processador de volta para ro- 
lar a próxima coluna de caracteres. Ca- 
so contrário, o processador salta para 
a instrução RTS e retorna. 



A rotina a seguir coloca na tela uma 
nuvem que se move pelo céu, empurra- 
da pelo vento: 

10 org 54270 

20 Ida, (-5208) 

30 dec a 

40 ld (-5208) ,a 

50 cp 0 

60 3T t,Cl 



BO cl ld a, 6 

90 ld (-5208) ,a 

100 ld a, (-5207) 

110 cp 0 

120 ir s.ct 

1 30 ld hl ,-5210 

140 dec (hl) 

150 jr cm 

160 ct ld hl, -5210 

170 inc (hl) 

180 cm ld hl , (62413) 

190 ld b,6 



ld a, (-5210) 
ld ca 
ld d, 20 
ld e,l 
call -11168 
ld hl, (62413) 
]d de, 4 
add hl.de 
ld b,6 
ld a. (-5210) 
add a, 16 
ld c.a 
ld d. 24 



ld ( -5207) ,a 



440 
450 
460 



O endereço -5208 contém a variá- 
vel de atraso da nuvem. Essa variável 
controla a rapidez com que a nuvem se 
move. A velocidade foi especificada na 
parte da rotina principal que inicializa 
as variáveis, com a armazenagem do nú- 
mero 6 naquele endereço. 

O atraso da nuvem é carregado no 
acumulador, decrementado e novamen- 
te armazenado em -5208. Quando a 
variável é reduzida a 0, as instruções cp 
0 e jr z saltam a instrução ret, e o pro- 
cessador executa o restante da rotina 
que movimenta a nuvem. Enquanto is- 
so não ocorre, o processador retorna e 
adia o movimento da nuvem. Em outras 
palavras, a rotina é executada uma vez 
a cada seis chamadas. Utilizamos essa 
técnica de controle do sincronismo em 
várias partes deste jogo. 



DIREÇÃO DO VENTO 



Antes de mais nada, a rotina acerta 
o atraso da nuvem. Lembre-se de que, 
para que ela prossiga, o conteúdo da va- 
riável de atraso precisa ser reduzido a ze- 
ro. Um outro decremento teria como re- 
sultado 255, pois, na representação bi- 
nária adotada pelo processador, - 1 é 
o mesmo que 255. Assim, para uma no- 
va execução, a rotina teria que ser cha- 
mada 255 vezes, o que resultaria num 
movimento extremamente lento da nu- 
vem, Por esse motivo, o número 6 é car- 
regado em - 5208 pelo acumulador. 

Em seguida, o conteúdo de - 5207 é 
colocado no acumulador. Essa variável | 
contém a direção do vento. Se for 0, o I 
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vento sopra para a direita; se for 1 , pa- 
ra a esquerda. O endereço — 5210 con- 
tém a posição horizontal da nuvem. 
Apenas essa posição precisa ser altera- 
da, já que a nuvem se move na mesma 
linha, de um lado para outro. 

O valor de - 5207 é testado pela ins- 
trução cpO. Se for 0, a instrução jrz sal- 
ta para o rótulo ct, o valor em - 5210 
é incrementado através de HL e a nu- 
vem se move para a direita. Se for 1, o 
salto não ocorre, o valor em -5210 é 
decrementado através do par HL e a nu- 
vem se move para a esquerda. 



FORMAÇÃO DA NUVEM 



Utilizamos sprites para imprimir a 
nuvem na tela do MSX. No finaJ deste 
artigo, você terá explicações mais deta- 
lhadas sobre o emprego desse recurso 
gráfico em código de máquina. 

Para que esta parte do programa fun- 
cione, os padrões das figuras devem es- 
tar na memória. Além disso, é preciso 
que a rotina - 12121 — que transfere es- 
ses padrões da RAM para a tabela de 
padrões de sprites na VRAM — tenha 
sido executada. Se você estiver acompa- 
nhando a sequência do jogo e executar 
a rotina principal antes da que apresen- 
tamos neste artigo, as condições acima 
serão cumpridas. 

A rotina - 1 1 168 é utilizada duas ve- 
zes para colocar na tela os dois sprites 
que compõem a nuvem. Assim, os pa- 
râmetros necessários precisam ser car- 
regados nos registros adequados. 

O par HL deve conter o endereço ini- 
cial do sprite na Tabela de Atributos de 
Sprites (TAS). O endereço inicial dessa 
tabela está armazenado nas posições 
62413 e 62414. Como a nuvem é a pri- 
meira figura do jogo que utiliza o spri- 
te, este será o endereço do primeiro spri- 
te da nuvem. O registro B, que deve con- 
ter a coordenada Y do sprite na tela, é 
ajustado com o valor 6. O registro C 
conterá a coordenada X. Para isso, o 
conteúdo de - 5210 é colocado em C pe- 
lo acumulador. O registro D contém o 
código do padrão de 32 bytes que for- 
ma o sprite — no nosso caso, a primei- 
ra parte da nuvem tem o código 20. Fi- 
nalmente, o registro E deve conter a cor 
do sprite — usamos aqui o preto, cujo 
código é I. 

Para o sprite que completa nuvem há 
algumas alterações. Como se trata do se- 
gundo sprite do jogo, soma-se 4 ao en- 
dereço inicial da TAS no par HL. A 
coordenada Y em B permanece 6. A 
coordenada X em C é o resultado da so- 
ma do conteúdo anterior desse registro 
com 16. A operação é necessária porque 



imprimimos o segundo sprite que com- 
põe a nuvem ao lado direito do primei- 
ro, que tem dezesseis bits de comprimen- 
to. O código do segundo sprite da nu- 
vem é 24, valor colocado em D. Sua cor 
é a mesma — ou seja, o registro E con- 
tinua contendo o valor 1. 



SOPRANDO 0 VENTO 



É importante checar se a nuvem che- 
gou a um dos cantos do vídeo. Caso is- 
so ocorra, estaremos decrementando o 
valor 0 ou incrementando o valor 255 na 
coordenada horizontal, o que resultará 
em erro nessa coordenada. 

Verificamos primeiro se o conteúdo 
de - 5210 é 2 ou 230. No primeiro ca- 
so, alteramos a direção do vento em 
-5207 para 0, ou seja, para a direita; 
no segundo, alteramos para I , ou seja, 
para a esquerda. Se o endereço - 52 1 0 
não contiver nenhum desses dois valo- 
res, a direção não é alterada e o proces- 
sador retorna. 



UTILIZAÇÃO DE SPRITES 



O sprite é um bloco de 16 X 16 pon- 
tos ou de 8 X 8 pontos, dependendo do 
tamanho selecionado. No primeiro ca- 
so, seus padrões ocupam 32 bytes, o que 
nos permite definir apenas 64 sprites di- 
ferentes. No segundo caso, os padrões 
ocupam oito bytes, como um caractere 
gráfico comum, e podemos definir até 
256 sprites diferentes. Esses padrões de- 
vem ser colocados na tabela de padrões 
de sprites, cujo endereço inicial está ar- 
mazenado nas posições 62415 e 62416 da 
RAM. 

Os sprites podem ser quatro vezes 
maiores do que os blocos gráficos co- 
muns, mas não é só isso o que os distin- 
gue. Normalmente, para movimentar 
um caractere gráfico na tela, temos que 
apagá-lo de sua posição anterior e im- 
primi-lo na nova posição. Um sprite po- 
de ser movimentado facilmente pela te- 
la: alterando-se suas coordenadas X e Y 
de impressão, ele será automaticamen- 
te apagado da posição que ocupava e 
impresso na nova posição. Tudo isso é 
feito pelo processador de vídeo. 

Esse recurso gráfico tem, entretanto, 
suas limitações. Os sprites são definidos 
numa tabela de 256 bytes, a já mencio- 
nada Tabela de Atributos de Sprites — 
TAS. Os atributos de cada sprite ocu- 
pam quatro bytes; portanto, não pode- 
mos colocar ao mesmo tempo na tela 
mais do que 32 sprites diferentes, inde- 
pendentemente do tamanho que tenha 
sido selecionado. 



O primeiro byte guarda a coordena- 
da Y; o segundo, a coordenada X; o ter- 
ceiro, o número do sprite (é possível es- 
colher entre 64 e 256 padrões diferentes, 
dependendo do tamanho escolhido); o 
quarto e ultimo, a cor. Como o sprite 
tem apenas cor de frente, os bits apa- 
gados são transparentes na teta, o que 
nos permite criar interessantes efeitos 

Uma dúvida pode surgir: o que acon- 
tece se as coordenadas de dois ou mais 
sprites coincidirem? Os sprites são hie- 
rarquizados segundo a ordem em que 
foram definidos na TAS — ou seja, o 
sprite que ocupa os quatro primeiros 
bytes na TAS tem precedência sobre o 
que ocupa os quatro bytes seguintes e as- 
sim por diante. Em resumo, o sprite que 
tem precedência aparecerá na frente dos 
demais. A justaposição de figuras assim 
obtida muitas vezes é aproveitada na 
composição de efeitos visuais. Mas não 
se esqueça de que só podemos ter até 
quatro sprites numa mesma linha. Se 
tentarmos colocar um quinto sprite, o 
último na ordem hierárquica desapa- 
recerá. 

A rotina a seguir coloca na TAS os 
atributos de um sprite, ou seja, coloca 
um sprite na tela. 

10 org -11168 

20 ld a.b 

30 puah de 

40 puah bc 

50 puah hl 

60 call 77 

70 pop hl 

BO pop bc 

90 inc hl 
100 ld a.c 
110 puah hl 
120 call 77 
130 pop hl 
140 pop dé 
150 inc hl 
160 ld a, d 
170 puah de 
180 puah hl 
190 call 77 
70 0 pop hl 
210 pop de 
220 inc hl 
230 ld a.e 
240 call 77 
250 ret 
260 end 

Essa rotina utiliza os parâmetros for- 
necidos pelo par HL e pelos registros B, 
C, D e E para colocar na TAS os atri- 
butos de um sprite. 

O par HL deve conter o endereço ini- 
cial do sprite na TAS; o registro B, a 
coordenada Y; o registro C, a coorde- 
nada X; o registro D, o código do spri- 
te e o registro E, a cor do sprite. 




O Iraçado Imita a onda sonora original. 



brações do ar em sons reconhecíveis. 
Nessa forma, o som é um sinal analógi- 
co — isto é, varia continuamente den- 
tro de um intervalo, e qualquer modifi- 
cação é significativa. Os computadores, 
ao contrario dos seres humanos, não 
conseguem reconhecer esse tipo de va- 
riação e precisam de um sinal digital. 
Assim, cada variação é representada por 
um valor diferente, 0 ou 1 , presença ou 
tusência de sinal. 

Mesmo que o computador não seja 
capaz de interpretar diretamente um si- 
nal sonoro, não é difícil converter a on- 
la sonora analógica de uma melodia, 
por exemplo, em informação digital. 

Essa técnica é a última novidade nos 
estúdios de gravação, que estão trocan- 
do as fitas tradicionais (onde se grava 
o sinal analógico) por sistemas compu- 
tadorizados que gravam as músicas em 
discos (discos de computador). A van- 
tagem de se gravar o som na forma di- 
gital baseia-se na facilidade com que se 
pode combinar o sinal gravado com ou- 
tros sons. Além disso, uma vez grava- 
do nessa forma, o risco de distorção do 
sinal devido a limitações do equipamen- 
to é bem menor. 



MÚSICA EM SEU MICRO 



Embora a tecnologia necessária pa- 
ra esse tipo de gravação sff restrinja a es- 
túdios com equipamentos altamente so- 
fisticados, a maioria dos microcompu- 
tadores tem os recursos básicos que per- 
mitem a exploração dessa técnica. Ca- 
da vez que carregamos um programa 
gravado cm Fita cassete, estamos repro- 
duzindo um sinal que foi registrado na 
forma digital. Mas quem já ouviu uma 
fita de programas sabe que ela produz 
som, ainda que não muito agradável. 

Sons e melodias podem ser colocados 
em seu micro, desde que você recorra às 
técnicas de programação adequadas (em 
linguagem de máquina, inclusive). Pa- 
ra isso, é necessário apenas introduzir 



um sinal analógico através do plugue de 
gravação e ensinar o computador a in- 
terpretá-lo, transformando-o em um si- 
nal digital. 

Uma vez feito isto, o programa po- 
derá armazenar o sinal digital na memó- 
ria, ou mesmo mostrá-lo em forma grá- 
fica, como faz o programa deste artigo. 
Isso significa que o seu computador se- 
rá capaz agora de transformar qualquer 
som cm números, que podem ser usa- 
dos para produzir um gráfico na tela ou 
ser armazenados na memória para re- 
produção posterior. 



O programa pode reproduzir um tra- 
çado gráfico que corresponde ao som to- 
cado pelo gravador. Quando este é liga- 
do, uma série de linhas regularmente es- 
paçadas surge na tela (quanto maior a 
frequência, mais alta é a linha). No mo- 
mento em que a tela fica cheia, o traça- 
do desaparece, recomeçando do canto 
esquerdo do vídeo. 



O programa também permite, numa 
segunda opção, a gravação digital do si- 
nal de entrada* — o tamanho do trecho 
que se pode gravar é bem limitado, por 
razões que explicaremos mais adiante. 
Uma terceira opção possibilita a repro- 
dução do som obtido. 



Como o computador não pode inter- 
pretar diretamente o sinal sonoro ana- 
lógico, nós o programamos de modo a 
atribuir valores digitais a esse sinal. O 
programa verifica repetidamente os si- 
nais na porta de entrada do cassete em 
intervalos muito curtos de tempo (mi- 
lhares de vezes por segundo). Esses si- 
nais só podem ser 0 ou 1 — não há va- 
lores intermediários como no sinal ana- 
lógico. A alta velocidade com que a por- 
ta é lida repetidas vezes faz com que as 
variações do sinal digital imitem o sinal 
analógico. 

Imaginemos, por exemplo, que entra- 
mos com um sinal de frequência de 2S6 
Hz (nota C). Esse sinal atinge o pico 256 
vezes por segundo, e cada pico dura 
1/512 de segundo. Se fizermos a leitura 
da porta 2000 vezes por segundo, obte- 
remos um pico a cada quatro leituras. 
É assim que a variação do sinal digital 
imita a onda sonora analógica — quan- 
to mais rápidas forem as leituras, mais 



precisa será a conversão analógico- 
digital. 

O programa utiliza os valores digitais 
obtidos da fita dos modos descritos. Pa- 
ra mostrar a onda sonora graficamen- 
te, ele calcula quantos picos — ou quan- 
tos "uns" — obteve por unidade de 
tempo, o que equivale à frequência mé- 
dia daquele intervalo. Novamente, 
quanto mais rápida for a leitura, mais 
preciso será o gráfico. 

O processo de gravação é semelhan- 
te. O programa toma oito leituras e as 
armazena em um byte de memória. Es- 
se procedimento é repetido para cada oi- 
to leituras. Como um elevado número 
de leituras é feito em um curto espaço 
de tempo, o programa utiliza grande 
quantidade de memória — no Spec 
trum, por exemplo, toda a memória se- 
ria consumida por um trecho musical de 
apenas oito segundos de duração. 

A reprodução do sinal digital consti- 
tui o processo inverso, no qual a infor- 
mação armazenada na memória é envia- 
da ao alto-falante para imitar as vibra- 
ções lidas na porta do cassete durante 
a gravação. Devido às limitações do 
equipamento, o som produzido está lon- 
ge de ser de alta- fidelidade. 



O programa do Spectrum é dividido 
em duas partes — um programa BASIC 
com as rotinas de gravação, execução e 
de traçado gráfico, e uma rotina em lin- 
guagem de máquina, para ler a entrada 
do gravador cassete. 

Digite a primeira parte e grave-a uti- 
lizando a instrução: 

SAVE ' ANALYSER ' LINE 5 

10 CLEAR 26000: RESTORE : LET 

t-0: LET x-65368 

20 FOR n-1 TO 108 

30 HEAD a: POKE x,a 

40 LET t-t+a 

50 LET x-X+1 

60 NEXT n 

70 IF t-12711 THEN PRINT "OK 
.": STOP 

80 PRINT "ERRO NAS LINHAS 'DA 
TA'": STOP 

90 DATA 14.64,175,8,17,208,7, 
219,254.230,64,185,40,7,62,64 
. 169, 79, B. 60, 8, 29, 32. 239. 175, 
178,40,5,30,255,21,24,230.8, 
203.63,6,0,79,201 
100 DATA 243.33,144,101,17,80. 
255,6,7,219.254,203.119,32,2, 
203,254, 203, 62, 16, 244, 35. 125, 
187.32.237,124,186,32,233,251. 
201,243,33,144,101,17,80.255.6 
.8,203,70,40.4 

110 DATA 62,0,211.254,62.255. 
211.254.203,14.16.240.35,125, 
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A seguir, digite a segunda parte, que 
contém a rotina em código dentro de 
suas linhas DATA. A linha SO verifica 
se houve algum erro de digitação nas li- 
nhas DATA, por meio da soma dos nú- 
meros. Execute (RUN) o segundo pro- 
grama e grave a rotina em código na fi- 
ta, numa posição imediatamente poste- 
rior ao primeiro programa com: 

SAVE ' ANAL YS ER ' CODE 65368.109 

Ao ser rodado, o primeiro programa 
se auto-executara a partir da linha 5, 
carregando então a rotina em código. 
Completado o processo, surgirá na tela 
um menu com as três opções. 

A primeira delas solicitará que conec- 
temos o gravador e toquemos algum 
som. Quando fazemos isso e pressiona- 
mos qualquer tecla, é desenhado um 
gráfico contínuo da evolução da fre- 
quência no tempo. Aperte M para retor- 
nar ao menu principal ou F para conge- 
lar a imagem. Poderemos descongelar a 
imagem apertando qualquer lecla. 

Se escolhermos a opção dois, o pro- 
grama solicitará que iniciemos a execu- 
ção da música no gravador, informan- 
do quando a gravação estiver completa 
e retornando então ao menu. Podemos 
tocar qualquer som, mas os curtos e 
agudos serão melhor reproduzidos. As 
limitações do Spectrum fazem com que 
o som seja reproduzido mais lentamen- 
te do que foi gravado; além disso, os 
sons mais graves são filtrados — a por- 
ta de entrada do gravador não é capaz 
de diferenciar os sons abaixo de uma 
certa frequência. 

É evidente que ninguém vai querer 
gastar quase toda a memória do seu mi- 
cro simplesmente para incorporar uns 
poucos segundos de um som dissonan- 
te em outros programas. Contudo, se 
você quiser experimentar, use: 

SAVE " SOM' CODE 26000.39360 

Para gravar a rotina em código que 
executa o som, digite: 

SAVE ' TOCA ' CODE 65440.40 

A memória precisa ser protegida por 
CLEAR 25299. Para ouvir o som, digi- 
te RAND USR 65440. 

Tudo isso deixará apenas 3Kbytes de 
memória livres para seu programa, o 
que não é muito, a menos que você pro- 
grame em linguagem de máquina. 

5 CLEAR 25999: LOAD " "CODE 
10 GOSUB 200: GOSUB 500 
20 IF INKEYS-" " THEN GOTO 20 



21 LET C-CODE INKEYS: IF C<49 
0R C>51 THEN GOTO 20 

22 GOSUB 30: GOSUB 200 

24 IF C-49 THEN GOTO 100 

25 IF C«50 THEN GOTO 600 

26 IF C-51 THEN GOTO 700 
30 FOR N-30 TO 50 STEP 3: 
SOUND .01. N: NEXT N: RETURN 

100 CLS : GOSUB 1000: PRTNT AT 
12.4: BRIGHT 1 ;" PRESSIONE QUAL 
QUER TECLA" 

101 IF INKEY3-"" THEN GOTO 
101 

102 SOUND .1,10 

104 CLS : GOSUB 150! GOSUB BOO 

105 FOR X-0 TO 255: PLOT X,Q: 
DHAU 0.USR 65368 

110 IF INKEYS-"m" THEN GOSUB 
30: GOTO 10 

111 IF INKEY3"="f" THEN GOSUB 
801: GOTO 140 

130 NEXT Xr CLS : GOSUB 150: 
GOSUB BOO: GOTO 105 

140 PB TNT AT 0.0;" 

" : SOUND 
.1,40: PAUSE 50: TF 1 NKEYS=" " 
THEN GOTO 140 

141 SOUND .1,10; CLS : GOTO 
104 

150 PRINT AT 0.2; BRIGHT 1;" 
PRESSIONE (M) PARA MENU " ! 
RETURN 

200 BORDER 5: PAPER 5: INK 0: 
CLS : RETURN 

500 PRINT AT 0.2; PAPEIl 2; INK 
7;" MENU - ANALISADOR SONORO 

510 PRINT AT 5,7;"1- GRÁFICO D 
E BARRAS" ;AT 7,?i"2- GRAVAR SO 
M" ; AT 9,7;"3- REPR0DU2IR SOM" 
520 PRINT AT 15,4; PAPER 4;"PR 
ESSIONE (1 ) (2) OU (3)": 
RETURN 

600 PAUSE 20: GOSUB 1000: 
PRINT AT 13.0 ; "Qualquer tecla 
para GRAVAR" 

605 IF INKEYS-" " THEN GOTO 
605 

606 SOUND .05.20: CLS : PRINT 
AT 10,8; "AGUARDE" : RAND USR 
65408: SOUND .1,30: CLS : 
PRINT AT 10,6; BRIGHT l|" GRAV 
ACAO CONCLUÍDA ": PAUSE 300: 
GOTO 10 

700 RAND USR 65440: GOTO 10 

800 PRINT AT 1,4; PAPER 4;" l 
F) CONGELA A IMAGEM ": RETURN 

801 PRINT AT 1,0; PAPER 4 ; " QU 
ALQUER TECLA PARA CONTINUAR " : 
RETURN 

1000 PRINT AT 4, 2; "Conecte o te 
minai EAR do aeu";AT 6,0i"grav 
ador ao terminal EAR do aeu";AT 
8,0;"Spectrum. E toque alguma 
."; RETURN 



A rotina em código de máquina que 
lê a entrada do gravador encontra-se a 




O que é análise espectral? 

A análise espectral consiste na ob- 
tenção dos componentes de frequên- 
cia pura, presentes em uma determina- 
da onda sonora. Explicando melhor: 
uma onda sonora complexa, como o 
som de uma flauta, a voz humana, o 
ruído de uma britadeira etc. são mistu- 
ras de diversas frequências sonoras pu- 
ras. Por exemplo, em uma certa f ração 
de tempo (medida em milissegundos), 
pode haver 12% de frequência 1000 
Hertz (ciclos por segundo de uma on- 
da senoidal). 8% de 1 100 Hertz etc. 

O objetivo da análise espectral é 
quantificar cada frequência sonora pura 
presente em um som. Essa quantifica- 
ção, feite em termos da potência so- 
nora média, geralmente é apresentada 
na forma de um gráfico, com a frequên- 
cia pura nas abscissas e a potência nas 
ordenadas. 

Existem diversos algoritmos para 
realizar essa análise em um computa- 
dor. O meis conhecido é o Fast Fourier 
Transform (FFT, Transformada Rápida 
de Fourier). 



partir da linha 1000 DATA. A soma dos 
números de cada linha está em seu tre- 
cho final para verificação, a fim de evi- 
tar que um erro de digitação acabe le- 
vando a um desastre. 

Digitado o programa, grave-o em dis- 
co ou fita antes de executá-lo. Quando 
isto é feito, um menu aparece na tela. 
Se houver algum erro nas linhas DATA, 
surgirá na tela uma mensagem "VERI- 
FIQUE A LINHA (número...)". 

Aperte 1 para fazer a primeira opção. 
O programa solicitará que posicionemos 
a fita e liguemos o gravador. Ao pres- 
sionarmos a tecla < ENTER > , a leitu- 
ra da fita começará, juntamente com o 
desenho do gráfico correspondente. 
Aperte M para retornar ao menu ou 
< SHIFT X @ > para congelar a 
imagem. 

Digite 2 para fazer a segunda opção 
(gravar um trecho). O programa faz as 
mesmas solicitações da opção 1. En- 
quanto a música estiver sendo executa- 
da, um gráfico colorido aparecerá na te- 
la. Quando a gravação estiver comple- 
ta, o gráfico será apagado e o progra- 
ma retornará ao menu. 

Aperte 3 para reproduzir a música J 
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que acaba de gravar. Ao contrário do 
Spectram, o TRS-Color executa a me- 
lodia na velocidade original. Se você 
quiser incorporar esse som a um outro 
programa, poderá gravá-lo em fita com: 

CSAVEM'MUSICA. ' ,1536,13823,1536 

Se estiver usando disquetes, adicio- 
ne 1536 a estes valores. Para gravar a 
rotina em código que executa a música, 
utilize: 

CSAUEM 'TOCA' ■ 31000, 311 74, 31091 

É necessário proteger o topo da memó- 
ria cora CLEAR 200300» e PCLEAR 

8. Para executar o som, use EXEC 31091. 

Depois de tudo isso, deve restar mui- 
to pouco espaço para seu programa; 
use-o economicamente. 



10 PCLEAR 8 : CLEAR 200 , 30999 : CLS 

:B-191 

20 K-31000 

30 READ A:IF A<0 THEN 60 

40 IF A<256 THEN POKE K,A:K-K+1 

:T-T+A:GOTO 30 

50 IF TOA THEN PRINT "erro UE 
R1FIÔUE A LINHA";1000+10*INT((K 
- 3 1 00 1 ) /20 ) : END ELSE T-0:GOTO3O 
60 DEFUSR0-310O0:DEFUSRl-31044: 
DEFUSR2-31091 

70 PRINT «14, "Benu" :PRINT 6131, 
"1- GRÁFICO DE BARRAS" : PRINT «1 
95, "2- GRAVAR UM TRECHO" : PRINT 
§259, '3- REPRODUZIR MUSICA GRAU 
ADA" 

80 A$-INKEY$:IF A$<"1" OR A3>"3 
" THEN 80 

90 ON VALIAS) GOSUB 200.400,600 

100 CLS:GOTO 70 

200 PM ODE 4: COLOR 0,5: CLS 

210 PRINT" POSICIONE O GRAVADOR 

, APERTE PLAY E TECLE <ENTER 



240 MOTOR OFF : PRINT 6192 , "PRESS 
IONE ' M ' PARA MENU OU [SHI 
FT ) « PARA CONGELAR IMAGEM" 
250 FOR G-1TO 4000 :NEXT :MOT0RON 
260 SCREEN 1,1 

270 PCLS:FOR X-0 TO 255:A-B-4*U 

SR0(0):IF A<0 THEN A-0 

280 LINE (X , B) - (X . A) , PSET 

290 IF INKEYS-"M" THEN X-255:NE 

XT: MOTOR OFF : RETURN 

300 NEXT :GOTO 270 

Um sinal analógico que entra 
pela porta do gravador cassete é 
lido 2000 vezes por segundo. 
Ao ultrapassar a voltagem limiar, o 
sinal é detectado e registrado 
como 1. Os sinais abaixo desse nfvel 
de tensão slo registrados como 0. 
O traçado gráfico digital produzido 
imita a onda sonora analógica. 




APLICAÇÃO EM JOGOS 

O programa listado nesse artigo po- 
de tornar seus jogos mais interessan- 
tes. Como ele nos permite gravar na 
memória a imitação de qualquer som de 
entrada, fica fácil usar a reprodução 
desse som em um jogo. 

Podemos, por exemplo, acrescentar 
muita emoção a uma aventura introdu- 
zindo no programa ruídos de explosões, 
tiros e até uma mensagem curta de pa- 
rabéns ao jogador. Digitalizando os 
sons com o auxílio de nosso programa, 
eles serão "tocados" pelo alto-falante 
do micro no momento certo. Vocfi há 
de concordar que, com esse truque, a 
qualidade do jogo será incomparavel- 
mente melhor. 



400 CLS:PMODE3:MOTOR ON:AUDI0 O 
N : PRINT" POSICIONE O GRAVADOR , 
APERTE PLAY E TECLE <ENTER>" 
410 IF INKEYSOCHRS ( 1 3 ) THEN 410 
420 SCREEN 1 , 0 : N-USR1 (0) 
430 MOTOR OFF : RETURN 
600 CLS : PRINT" REPRODUZINDO TR 
ECHO GRAVADO" 
610 N-USR2 (0) 

620 PRINT 6129, "NOVAMENTE (S/N) 
?■ 

630 A3-INKEYS: IF ASO"S" AND A3 

<>"N" THEN 630 

640 IF A$-"S* THEN 600 

650 RETURN 

1000 DATA 26,60,206.255.32,142, 

2,233,204,0,0,102,196,37.10,16. 

163. 132.48. 31 , 1915 

1010 DATA 38.245,126,180,244,19 

5,0,1,32,7.102,196,36,237,16,16 

3,132,48,31,38.2067 

1020 DATA 245,126.180.244.26.80 

,142,0,0,48.31.38,252.220.25.13 

1,0,1,52.6.1847 

1030 DATA 158,186.198.8,134.11, 

74,38,253,118.255,32,105,132,90 

.30,4.18.18.32,1903 

1040 DATA 4.48.1.198.8.172.228. 

38, 231. 53, 134. 26, 80. 1B2, 255, 1,1 

32.247,183,255,2476 

1050 DATA 1,182.255,3,132.247.1 

63,255,3,182,255,35,138,8,183,2 

55.35.158,186,220,2916 

1060 DATA 25.131.0.1,52.6.134.8 

.52.2.230.126.88,36.4.134.252.3 

2,3,79.1397 

1070 DATA 33.253,183,255.32.134 

.8,74,38.253,33,251.106,228.39, 

8,109.159,31,64,2291 

1060 DATA 30,136.32.224.134.8.1 

67,228.172,97.38.214.53.146.167 
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Neste último artigo da série sobre 
jogos de guerra, transformaremos o 
micro em um adversário inteligente. 
Veja como a heurística pode 
melhorar a estratégia de seu inimigo, 



66"> IF j^O THEN LET T{J+1,6)« 
T(j+l.6)+FN rtiOOJr LET T(j + l. 
7)»T(j+i,6) *' 



O jogo está completo, mas, ate o mo- 
lento, não oferece maiores dificulda- 
es ao jogador. Como o computador só 
ode fazer movimentos aleatórios pelo 
ibuleiro. a superioridade do homem so- 
re a máquina I orna- se absoluta em ape- 
as algumas partidas. Qualquer estraté- 
ia é capa; de derrotar o computador, 
ois este faz seus lances independente- 
íente dos movimentos do jogador. 

Quando a vitória fácil começa a nos 
ntcdiar, a saída é fortalecer nosso opo- 
ente. Isso significa incluir mais rotinas, 
"orno a principal dificuldade na progra- 
íação de jogos do tipo Capa e Espada 
evatamente a limitação da memória — 
rtbretudo nos micros das linhas Apple 
TK-2000 — , ludo o que se adicionar 
o programa deve reunir simplicidade e 
ficácia. 



665 1F J ■ B THEN T(J * 1,6) 

T(J + 1.6) + FN RU0O):TCJ + 
1.7) » T(J + 1,6) 



665 IF J-8 THEN T ( J*l . 6) -T ( J+I , 
6)*BND(100) :T(J+I. 7)-T(J+I.6> 



que se adicionar O programa somara um número i 
ir simplicidade e dõmico ao poder inicial da unidade. 

locando o resultado no seu poder an 



UM INIMIGO MAIS FORTE 



INTELIGÊNCIA MILITAR 



Um oponente com forças iguais e, 
ainda, inteligente será bem mais interes- 
sante do que um inimigo forte demais 
e intelectualmente incapaz. Contudo, 
aumentar a inteligência é bem mais di- 
fícil que aumentar a força. 

Os conceitos utilizados na programa- 
ção da inteligência em Capa e Espada 
são bem diferentes daqueles que vimos 
em Otelo ou cm .-1 Raposa e os Gansos. 

Nesses jogos de tabuleiro, os movi- 
mentos são muito bem definidos. Em 
ambos é possível prever movimentos fu- 
turos bem como critérios exatos de su- 
cesso, utilizando a pesquisa em árvore 
e outros processos mais simples. Além 
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dependentes, outras nâo. E, acima de 
tudo, não há receita para a vitória: ne- 
nhum procedimento leva inevitavelmen- 
te ao triunfo. 

Poderíamos examinar a possibilida- 
de de definir um algoritmo eficaz para 
o nosso jogo. Mas este seria, de qual- 
quer maneira, extremamente complexo, 
e tornaria o programa grande e lento de- 
mais. Na prática, a saída para progra- 
mas grandes, complicados e sem algo- 
ritmos definidos é dada por um conjun- 
to de heurísticas. 

Uma heurística é apenas uma regra 
prática que parece funcionar na maio- 
ria dos casos. Não há garantias de que 
ela funcione nem de que não leve a er- 
ros brutais em determinadas situações. 
GeraJmente, no entanto, vale a pena ten- 
tar; afinal, este é o procedimento da 
maior parte das pessoas diante de mui- 
tos problemas complicados. 

O programa conterá, então, uma lis- 
ta de regras práticas, a saber: 

• Se você ê uma unidade de arqueiros 
e existe uma unidade inimiga ao seu al- 
cance, atire. 

• Se você se envolver em uma batalha 
e estiver perdendo, tente ir em direção 
contrária. 

■ Se você está perto de uma unidade ini- 
miga mais forte, afaste-se. 

• Se você está próximo a uma unidade 
inimiga mais fraca, aproxíme-se. 

No último caso, o computador leva 
vantagem, já que conhece o poder das 
unidades do jogador. Este, ao contrá- 
rio, não tem acesso à mesma informa- 
ção sobre as tropas inimigas. 



CONDUTA PLANEJADA 



Além dessas regras, o computador 
precisa de um plano geral de conduta. 
O desenrolar de uma guerra nunca é dei- 
xado ao acaso. O plano dependerá das 
condições de vitória — se esta depende, 
por exemplo, da morte do comandan- 
te, poderá ser conveniente usar todas as 
forças contra o quartel-general. Como 
em Capa e Espada a vitória depende de 
causar mais baixas ao inimigo do que 
sofrê-las, o plano do computador terá 
esse objetivo. 

Um modo simples de eliminar as tro- 
pas inimigas consistiria em atacar uni- 
dades fracas com unidades fortes. Mas 
esta seria uma estratégia difícil de pro- 
gramar. Ela poderia ser simplificada pa- 
ra "concentre todas as suas forças nu- 



ma posição". Fazendo isso, as forças do 
computador superariam as do jogador 
— desde que este não tivesse planejado 
a mesma coisa. Essa estratégia, porém, 
tem uma consequência: as forças do jo- 
gador superariam as do computador em 
outra parte do tabuleiro — e aqui a heu- 
rística falharia. 

Para que o jogador não possa prever 
a ação do inimigo, o computador deve 
ter algumas opções abertas. Novamen- 
te preservando a simplicidade, pode- 
mos fazer a máquina escolher sempre, 
para concentrar suas forças, uma das 
posições ocupadas por unidades do jo- 
gador. Porém, uma rotina verificaria es- 
sas posições, transferindo a concentra- 
ção ao acaso, a cada volta do laço prin- 
cipal. Isso manteria o jogador na incer- 
teza, ao mesmo tempo que o plano do 
computador seguiria seu curso. 

Um segundo aspecto do jogo a ser in- 
teligentemente controlado é a ação in- 
dividual das unidades. Cada uma delas 
deve ser capaz de responder às condições 
locais do campo de batalha, indepen- 
dentemente do plano geral. Uma unida- 
de não deve, por exemplo, dirigir-se ao 
ponto de concentração se há unidades 
inimigas mais fortes no caminho. 

Quando o computador tiver que dar 
ordens, ele fará uma série de testes, nu- 
ma sequência cuidadosamente escolhi- 
da. Essa escolha obedece a certas regras, 
elaboradas conforme dois critérios. Pri- 
meiro: como os testes precisam ser exe- 
cutados com a maior rapidez possível, 
os que não se aplicam à situação devem 
ser descartados. Segundo: os testes mais 
importantes serão realizados no início, 
de maneira a impedir que uma decisão 
seja tomada com base em um fator me- 
nos relevante. 

As regras usadas no programa são as 
seguintes, por ordem de importância: 

• Se a unidade está em combate e ven- 
ceu na última vez, as ordens são manti- 
das. Ignoram-se as outras condiçÕes : 

• Se a unidade está em combate e per- 
deu na última vez, deve se afastar do ini- 
migo. Isso nem sempre é possível, pois 
ela pode estar na borda do mapa ou ter 
o caminho de fuga obstruído. 

• Se uma unidade de arqueiros tem um 
alvo ao alcance, ela deve atirar. A posi- 
ção dessa regra assegura que os arquei- 
ros prefiram atirar a se envolver em 
combate corpo a corpo. 

• Se existe uma unidade inimiga mais 
fraca a uma distância inferior ao deslo- 
camento máximo, MARCHE em dire- 
ção a ela. Entretanto, se a unidade for 



mais forte, afaste-se. Este é um teste de- 
morado, uma vez que leva em conta as 
unidades inimigas. 

• Dirija-se ao ponto de concentração. 

Mesmo essas poucas regras levam um 
bom tempo para serem consideradas, di- 
minuindo bastante a velocidade do jo- 
go. Este é o preço a ser pago por um jo- 
go inteligente. Não haverá, porém, es- 
peras tão longas e exasperantes como em 
A Raposa e os Gansos. 



Apague as linhas 1770 a 1790 antes 
de adicionar estas rotinas. 



360 DIM tSt8.12): DIM o3(5.1Z) 
: DIM w3 t$,9) ! DIM mS(5,l2) : 
DIMaS<4,12): DIMr$(4,12): 
DIM c(8) 
416 L ET ap-1 

1665 IF wn>8 THEN LET c(wn-8)« 

a 

1666 IF lo>8 THEN LET e(lo-B)- 



Tíw 



.2] 



1760 LET ra-st: LET rb-flhi LET 
rc-fx: LET rd=fyr GOSUB 3000 
2140 BEM Inimigo 

2142 Lí EM LOOP 

2143 LET r-FN r(10) 

2144 IF r-1 0R T(ap,l)>3 THEN 
LET ap-FN r (B) 

2145 IF r=l AND T{ap,))>3 THEN 
GOTO 214 2 

2150 IF c(e-B]=B THEN RETURtJ 
2155 IF c(e-8)O0 THEN LET T(e 
,l)-3: LET T{e.2)-cte-8) : LET c 
(e-B)-O: RETURN 

2170 IF T(e,3)=2 THEN LET ra=l 
1 LET rb=e: LET rc=5: LET rd=5 : 
GOSUB .3000: IF gp<>-l THEN LE 
T T{e,l)=l: RETURN 

2180 LET T(e,l)-3 

2181 LET hp-5: LET vp-5 : LET mv 
-0 

2182 FOR v-1 TO 8 

2183 LET zp-0: GOSUB 3100 

2184 IF zpOO THEN GOSUB 3200 
21B5 NEXT v 

2187 IF hp<>5 AND vp<>5 THEN R 
ETURN 

218B IF mvOO THEN LET T(e,2)- 
rov; RETURN 

2189 LET hp=T(e,B)-T(Bp.B) : LET 
vp-T(e,9)-T(8p,9) : GOSUB 3200 

2190 RETURN 
3000 REM 

3010 LET qp=-1 

3020 FOR m=ra TO (ra+7) 

3030 LET xx»AB5 (T (», 8) -T (rb.8) 

): LET yy-ABS (T (m, 9) -T trb ■ 9) ) 

3040 IF xx<re AND yy<rd AND T(bi 

,1X4 THEN LET rc=xx: LET rd-y 

y: LET gp»m 
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3050 NEXT m 
3060 BETUBN 
3100 HEM 

3110 IF T(v,l)>3 THEN BETUBN 
3120 LET xx=ABS (T (v, 8) -T te , 8) ] 
: LET yy-ABS (T (v, 9) -T (e , 9) ) 
3130 IF T(v,7)>«T(e,7) AND XX<S 

AND yy<5 THEN LET av-T(v.2) 
3140 IF xx<hp AND yy<vp THEN L 
ET hp-xx: LET vp-yy: LET zp-1: 
BETUBN 
3150 BETURN 
3200 BEM 

3210 IF hp>-0 THEN LET lp-1 
3220 IF hp<0 THEN LET lp-3: LE 
T hp-ABS (hp) 

3230 IF vp>=0 AND ABS (vp)>hp T 
HEN LET lp-2 

3240 IF vp<0 AND ABS (vp) >hp TH 
EN LET lp»4: LET vp=ABS (vp) 
3250 LET T<e. 2) =lp 
3260 BETUBN 



360 DIM T$(8) ,OS(5) ,W3(5) ,MS<5) 
,A$(4) ,BS(4) ,C(8) 
416 SP-1 

1665 IF WN>8 THEN C(WN-8)-8 

1666 IF LO>8 THEN C (LO-8) -T <WN, 

2) 

1760 RA-ST:BB-SH:BC-FX:RD-FY:GO 

SUB 3000 

2140 BEM INIMIGO 

2142 BEM LOOP 

2143 R-HND(IO) 

Z144 IF R-l OR T(SP,1)>3 THEN S 
P-RND(8) 

2145 IF R-l AND TtSP,l)>3 THEN 
2142 

2150 IF C(E-8)-8 THEN RETURN 
2155 IF C(E-8)<>0 THEN T(E,l)-3 
:T(E,2)-CtE-8) :C (E-8) "0 : BETURN 
2170 IF TÍE.3W THEN RA-1 : RB-E 
:RC-5:RD-5:GOSUB 3O00:IF GPO-1 
THEN T(E,1)-1:RETURN 

2180 T(E.l)-3 

2181 HP-5:VP-5:MV-0 

2182 FOR V-l TO 8 

2163 ZP-0:GOSUB 3100 

2184 IF ZPOO THEN GOSUB 3200 

2185 NEXT V 

2187 IF HP<>5 AND VP05 THEN RE 
TURN 

2188 IF MVO0 THEN T{E,2)-MV:RE 
TURN 

2189 HP-T(E,6)-T(SP,8) :VP-T(E,9 
)-T(SP.9) :GOSUB 3200 

2190 RETURN 
3000 BEM 
3010 GP — 1 

3020 FOR M-RA TO (RA+7) 

3030 XX-ABS(T(M,8)-T(BB,8) ) :YY- 

ABS (T(M.9)-T(RB,9)) 

3040 IF XX<RC AND YY<RD AND T (M 

,1X4 THEN RC-XX : RD-YY : GP-M 

3050 NEXT M 

3060 RETURN 

3100 REM 

3110 IF T(V.1)>3 THEN RETURN 
3120 XX-ABS<T(V.8) -T(E,8)) :YY-A. 



Illllllll 
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BS(T<V,9)-T(E.9)> 

3130 IF T{V,7)>-T(E,7) AND XX<5 

AND YY<5 THEN MV-T(V,2) 
3140 IF XX<HP AND YY<VP THEN HP 
-XX:VP-YY:ZP-1:RETUBN 
3150 RETURN 
3200 REM 

3210 IF HP>-0 THEN LP-1 

3220 IF HP<0 THEN LP-3 : HP-ABS {H 

P) 

3230 IF VP>-0 AND ABS(VP)>HP TH 
EN LP-2 

3240 IF VP<0 AND ABS(UP)>HP THE 
N LP-4:VP-ABS(UP) 
3250 T(E.2)-LP 
3260 BETURN 



mm 



3120 XX - ABS <T(V,8) - T(E,6) 
) :YY - T(V,9) - T(E,9) ) 
3130 IF T(V,7) > - T(E.7) AND 
XX < 5 AND YY < 5 THEN MV - T ( 

9*2) 

3140 IF XX < HP AND YY < VP TH 
EN HP - XX-.UP - YY:ZP - 1: R.ETU 
RN 

3150 BETURN 

3200 BEM CONCENTRAÇÃO 

3210 IF HP > - 0 THEN LP-1 

3220 IF HP < 0 THEN LP - 3:HP 

- ABS (HP) 

3230 IF VP > - 0 AND ABS (UP 

) > HP THEN LP-2 

3240 IF UP < 0 AND ABS (UP) > 

HP THEN LP = 4:UP =■ ABS (UP) 
3250 T(E,2) - LP 
3260 BETURN 



360 DIM T3(8) ,OS(5) ,W5(5) .MS(5 
) ,A$(4) ,RS(4) .C(8) 
416 SP - 0 

1665 IF WN > 8 THEN C (WN - 8) 



1666 IF LO > B THEN C(LO ■ 



B) 



• T(l 



.2) 



1760 RA - ST i BB - SH:BC - FX : BD 

- FY: GOSUB 3000 
2140 BEM SELECAO 

2143 R - FN R{10) 

2144 IF H - 1 OH T(SP.l) > 3 T 
HEN SP = FN B(8) 

2145 IF B = 1 AND T(SP.l) > 3 
THEN 2143 

2150 IF C(E - 8) - 8 THEN RET 
UBN 

2155 IF C(E - 8) < > 0 THEN T 
(E.l) - 3:T(E.2) - C(E - 8) :C(E 

- 8) - O: BETUfiN 

2170 IF T(E.3) - 2 THEN RA - 1 
:BB - E:BC - 5: RD - 5: GOSUB 30 
00: IF GP < > - 1 THEN T(E.l) 

- 1 : HETUBN 

2180 TÍE, 1) " 3 

2181 HP - 5:VP - 5:MU - 0 

2182 FOR V = 1 TO 8 

2183 2P - 0: GOSUB 3100 

2184 IF ZP < > 0 THEN THEN 
GOSUB 3200 

2185 NEXT V 

2187 IF HP < > 5 AND UP < > 
5 THEN RETURN 

2186 IF MV < > 0 THEN T(E,2) 
- MU: RETUHN 

2169 HP - T(E,8) - T(SP.6):UP - 

TÍE. 9) - T (SP , 9) : GOSUB 3200 
2190 BETURN 
3000 REM ALCANCE 
3010 GP - - 1 

3020 FOR M = RA TO (RA + 7) 
3030 XX - ABS (T (M, 8) - T(BB,8 
)):YY - ABS (TÍM.9) - T(RB,9)) 
3040 IF XX < RC AND YY < RD AN 
D TIM.l) < 4 THEN RC - XX:RD - 
YY : GP - M 
3050 NEXT M 
3060 BETUBN 
3100 BEM PODER 
■ 3110 IF T(U,1) > 3 THEN BETUR 



D 



As rotinas que começam em 3000 de- 
vem ser remuneradas a fim de liberar es- 
paço para essas linhas. Digite: 

BE NUM 4000. 3000 

Em seguida, acrescente estas linhas: 

360 DIM TS(8) ,0$(5) ,WS(5) ,M$(5) 
.AS(4) .RS(4) ,C(8) 
416 SP-1 

1665 IF WN>8 THEN C(WN-6)-6 

1666 IF LO>8 THEN C (LO-B) -T < WN . 
2) 

1760 RA=ST:RB-SH:RC->FX:RD-FY:GO 
SUB 3000 

2140 REM INIMIGO 

2142 BEM LOOP 

2143 R=BND(10) 

2144 IF R-l OB T(SP,1)>3 THEN S 
P=RND{8) 

2145 IF R=l AND T(SP.1>>3 THEN 
2142 

2150 IF CÍE-8J-8 THEN RETURN 
2155 IF C(E-8)O0 THEN T(E,1)=3 
:T(E,2) -C(E-8) : C (E-8) -0 : BETURN 
2170 IF T(E,3)=2 THEN RA«1:RB=E 
: RC=5 :RD=5 :GQSUB 3000:IF GPO-1 
THEN T(E.1J=1:RETURN 

2180 T(E,1}=3 

2181 HP = 5:VP--5:MV=0 

2182 FOB U-l TO 8 

2183 ZP=0:GOSUB 3100 

2184 IF ZPO0 THEN GOSUB 3200 

2185 NEXT V 

2187 IF HP<>5 AND VP<>5 THEN RE 
TUHN 

2188 IF MVO0 THEN T (E . 2) =MV : RE 
TURN 

2189 HP'T(E,8)-T(SP.8) :UP=T(E.9 
)-T(SP,9) :GOSUB 3200 

2190 RETURN 
3000 REM 
3010 GP--1 

3020 FOH M-BA TO (RA+7) 

3030 XX "ABS (T(M,8)-T(RB,8)) :YY» 

ABS(T(M.9)-T(RB.9)) 

3040 IF XX<RC AND YY<RD AND T (M 

,1X4 THEN RC-XX:RD*YY:GP-M 



3050 NEXT M 
3060 RETURN 
3100 REM 

3110 IF T(U,1)>3 THEN RETURN 

3120 XX=ABS (T (U , 8} -T I E . 8) ) : YY-A 

BS(T(U,9)-T(E,9)) 

3130 IF T(U,7>>«T(E.7) AND XX<5 

AND YY<5 THEN MV-T(V,2) 
3140 IF XX<HP AND YY<VP THEN HP 
-XX : VP-YY : ZP-1 : RETURN 
3150 RETURN 
3200 REM 

3210 IF HP>-0 THEN LP^l 

3220 IF HP<0 THEN LP-3 : HP=ABS (H 

P) 

3230 IF VP>-0 AND ABS{VP)>HP TH 
EN LP-2 

3240 IF VP<0 AND ABS(UP)>HP THE 
N LP-=4:VP=ABS(VP> 
3250 T (E . 2) »LP 
3260 RETURN 



As adições anteriores à linha 2140 
cuidam de algumas variáveis extras que 
serão utilizadas. 

No início da rotina de escolha, há 
uma chance em dez de que o computa- 
dor mude o ponto de concentração. Es- 
te é verificado e modificado de acordo, 
mas não se realiza nenhuma ação neste 
estágio — outros testes precisam ainda 
ser feitos. 

Se a unidade for constituída de ar- 
queiros, a linha 2170 usa a rotina de al- 
cance para decidir se atira. Caso os ar- 
queiros não disparem, ou se a unidade 
for de outro tipo, a linha 2180 muda a 
ordem para MARCHE. A seção seguin- 
te do programa verifica cada uma das 
unidades inimigas. A linha 2183 utiliza 
a rotina de poder para determinar a di- 
reção do movimento. 

Se a unidade em questão não estiver 
envolvida em combate nem prestes a se 
envolver, a rotina de concentração (li- 
nha 3500) faz com que ela se mova em 
direção ao ponto de concentração. 



Você pode adicionar qualquer das 
versões aqui apresentadas, ou mesmo as 
duas, para melhorar o desempenho do 
micro, enquanto jogador. Tudo depen- 
derá do tipo de oponente que desejar. 

A própria natureza das heurísticas in- 
corporadas ao programa faz com que 
elas falhem em certas circunstâncias. Al- 
guns jogadores acharão essas régras me* 
nqs adequadas do que outras eventual- 
mente deduzidas pela prática. Só um 
processo de tentativa e erro determina- 
rá as melhores estratégias e muitas ou- 
tras rotinas poderão ser tentadas. 
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Neste artigo você ficará conhecendo 
novas maneiras de transmitir 
mensagens confidenciais, sem correr 
o risco de que elas sejam 
decifradas por pessoas indesejadas. 



No artigo Mensagens Secreras (pági- 
na 888), sugerimos vários métodos pa- 
ra a transmissão de informações de ca- 
ráter confidencial. Alguns deles são re 
lativamente fáceis de serem decifrados; 
entretanto, se recorrermos ao auxílio do 
computador, poderemos chegar a méto- 
dos mais complexos e com diferentes ní- 
veis de sofisticação. 



COMO DECIFRAR CÓDIGOS 



Da mesma maneira que os criptógra- 
fos tentam desenvolver códigos que ofe- 
reçam mais segurança, muitos especia- 
listas estudam uma forma de frustrar es- 
sas tentativas. Uma arma muito pode- 
rosa para se decifrar simples códigos de 
substituição ou de transposição consis- 
te na contagem de frequência das letras. 
Em português, as letras que ocorrem 
com mais frequência são — nesta ordem 
— A, E, O, S, R, I, C. Desse modo, se 
em um texto codificado aparecerem 
muitas vezes as letras AEOSR1C, pro- 
vavelmente você estará manipulando um 
código de transposição. Se outras letras 



se repetirem mais vezes, a codificação 
pode ter sido feita com um método de 
substituição. É importante levar em con- 
ta que essa distribuição é exclusiva de 
cada idioma. Portanto, torna-se funda- 
mental saber em que língua foi escrita 
a mensagem. 

Seja como for, será necessário fazer 
a contagem da frequência das letras na 
mensagem. Isso pode consumir muito 
tempo e é um processo bastante suscep- 
tível de erros. O programa aqui apresen- 
tado lhe será útil nesses casos. Basta que 
você digite o texto e o computador ime- 
diatamente o informará do número de 
vezes que cada letra apareceu. 

A figura da página 1091 mostra a fre- 
quência das letras em um (exto consti- 
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tuído de cem palavras. Observe que os 
números seguem, razoavelmente, o prin- 
cípio que acabamos de comentar. 

Agora, digite o programa e veja co- 
mo isso funciona na prática. 



15 POKE 23658,8 

20 BORDES 0- PAPER 0: INK 7: 

CLS 

30 PRINT TAB 5; "CONTAGEM DA F 
REQUENCIA' ' * 

40 PRINT TAB 12 : "CUIDADO" ' ' 
50 PRINT FLASH 1:AT 4,7;-NA0 
DEIXE ESPACOS";AT 5,9;" ENTR 
E PALAVRAS" ' 
60 DIM n{28) 

70 PRINT " Para finalizar ent 
rada do texto digite '*'" 
80 FOR t=l TO 28: LET n(t)=0: 
NEXT t 

90 INPUT "Introduza o texto"; 
aS 

100 IF a$="*" THEN GOTO 180 
110 CLS 

120 FOR 1=1 TO LEN a$ 

130 FOR j-1 TO 26 

140 IF j=CODE taS(l TO l))-64 

THEN LET n < j) =n < j ) +1 

150 NEXT j 

160 NEXT í 

170 GOTO 90 

180 CLS 

190 PRINT "Letra Freq' Le 

tra Freq"" 

200 FOR 1=1 TO 13 

210 PRINT TAB 2;CHR3 (64+í); 

TAB 10;n(i);TAB 19;CHR3 (77+i) 

; TAB 27;n(13+i) 

220 NEXT i 

230 STOP 



20 CLS 

30 PRINT §5, "CONTAGEM DA FREQUE 
NCIA" 

40 PRINT §76, "CUIDADO- 
SO PRINT «134, "NAO DEIXE ESPAÇO 
S":PRINT §166, "ENTRE AS PALAVRA 

3" 

60 DIM N<28) 



70 PRINT §225, "PARA FINALIZAR E 
NTRADA DO TEXTO E EMITIR RESULT 
ADOS DIGITE ** 

80 FOR T-l TO 2B:N(T)-0:NEXT 
90 INPUT" INTRODUZA 0 TEXTO ";A3 
100 IF A3-""" THEN 180 
110 CLS 

120 FOR 1 = 1 TO LEN (AS) 

130 FOR J-1 TO 26 

140 IF J-ASC(MID$(A$,I,l))-64 T 

HEN N(J)=N(J)+1 

150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 CLS 

190 PRINT "LETRA FREQ' LET 

RA FREQ' " 

200 FOR 1-1 TO 13 

210 PRINT TAB{2) ;CHRS(64+I) ;TAB 

(10) ;N(I) ;TAB(19) ;CHRS(77+I) ; TA 

B(27) ;N(13+I) 

220 NEXT 

230 END 




20 HOME 

30 PRINT TAB ( 9) "CONTAGEM DE 

FREQUÊNCIA": PRINT 

40 PRINT TAB ( 17) "CUIDADO" : P 

RINT 

50 PRINT TAB ( 12)"NAO DEIXE E 
SPACOS": PRINT TAB ( 12) "ENTRE 
AS PALAVRAS" 
60 DIM N{28) 

70 PRINT : PRINT : PRINT TAB ( 

8) "PARA FINALIZAR A ENTRADA" ! 
PRINT TAB ( 11)" DO TEXTO DIGIT 
E «" 

80 FOR I - 1 TO 2B:N<T) - 0: N 
EXT 

90 PRINT : INPUT "DIGITE O TEX 
TO ";AS 

100 IF AS - "«" THEN 180 
110 HOME 

120 FOB I - 1 TO LEN (A3) 

130 FOR J - 1 TO 26 

140 IF J - ASC { MID5 (AS , I . 1 

)) - 64 THEN N(J) = NtJ) + 1 

150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 HOME 

.190 PRINT "LETRA FREQ LETB 
A FREQ" 

200 FOR I - l TO 13 
210 PRINT TAB ( 2); CHRS (64 + 
I); TAB ( 10);N(I); TAB ( 17); C 
HRS £77 + I); TAB ( 25);N(13 + I 



60 DIM N(28) 

70 PRINT : PRINT: PRINT TAB(8)"PAR 
A FINALIZAR A ENTRADA" : PRINT TA 
B(12)"DO TEXTO DIGITE *" 
80 FOR 1-1 TO 2B:N(T)-0:NEXT 
90 PRINT:INPUT "DIGITE O TEXTO" 

rM 

100 IF A$="*" THEN 180 

110 CLS 

120 FOR 1-1 TO LENIAS) 

130 FOR J-1 TO 26 

140 IF J-ASC(MIDS(AS, 1.1)1-64 T 

HEN N(J)=N(J)+1 

150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 CLS 

190 PRINT "LETRA FREQ LETRA 

FREQ" 
200 FOR 1=1 TO 13 
210 PRINT TAB (2) ; CHR3 (64+1) ; TAB 
(10) ;N(I) ; TAB (17) ;CHBS(77+I) ; TA 
B(25) ;N(13+I) 
220 NEXT I 
230 END 

A estrutura operacional deste progra- 
ma está fundamentada em um simples 
mecanismo de contagem. 

Em sua primeira parte é atribuído o 
valor zero às 28 variáveis indexadas, 
sendo que 26 dessas variáveis serão usa- 
das para a contagem da frequência com 
que aparecem as 26 letras. As duas va- 
riáveis restantes foram incluídas tendo 
em vista a possibilidade de uma futura 
ampliação do programa; nesse caso, po- 
dem ser incorporados algarismos ou 
quaisquer outros sinais gráficos. 



A tabela de frequência das letras tem 
grande utilidade na decifração de códigos. 



20 CLS 

30 PRINT TAB (9) "CONTAGEM DE FRE 
QUENCIA" : PRINT 

40 PRINT TAB(17)-CUIDADO":PRINT 
50 PRINT TAB(12)"NAO DEIXE ESPA 
COS":PRINT TAB (12) " ENTRE AS PAL 
AVRAS" 
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CÓDIGOS MULTIPLICATIVOS 



Durante a Guerra Civil Norte-Ame- 
ricana (1861-1865) críou-se um tipo es- 
pecial de código para a comunicação en- 
tre as tropas, que funciona da seguinte 
forma: suponhamos que se queira pas- 
sar para um oficial preso a mensagem 
ESCAPAR PARA LONDRES. Nesse 
caso, a primeira letra da frase seria co- 
locada na primeira linha, a segunda le- 
tra na segunda linha, a terceira letra de 
volta na primeira linha e assim por dian- 
te, de tal maneira que a frase acabaria 
ficando assim: 

ECPRAAODE 
SAAPRLNRS 

Escrita por extenso, a mensagem se- 
ria a seguinte: ECPRAAODE- 
SAAPRLNRS; dividida a fim de con- 
1 fundir o inimigo: ECPRAA OD 
ESAAP RLNRS. 

Na verdade, esse código é um caso es- 
pecial do que se chama atualmente có- 
digo multipli cativo. 

Em nossa mensagem, o texto contém 
dezoito caracteres. Estes podem ser ar- 
ranjados em matrizes do tipo: 2 x 9, 9 
x 2, 3 x 6, ou 6 x 3, como mostram as 
figuras da página 1095. 

Qualquer pessoa que queira decifrar 
a mensagem, sem saber que se trata de 
um código multiplicativo, terá muito 
trabalho. O processo de codificação, no 
entanto, é muito simples: tudo o que se 



tem a fazer é escrever a mensagem ver- 
ticalmente, letra por letra, preenchendo 
totalmente a primeira coluna da matriz. 
Em seguida, partimos para a próxima 
coluna e repetimos o processo, até que 
a mensagem termine e a matriz esteja 
completa. Finalmente, copiamos as li- 
nhas lado a lado, começando sempre pe- 
la primeira. 

É importante que a mensagem ocu- 
pe totalmente a matriz escolhida. Para 
tanto, podemos introduzir no texto al- 
guns caracteres ou palavras sem nexo, 
que terão a função extra de confundir 
quem tentar decifrá-lo. 

O laço que se encontra entre as linhas 
140 e 210 é a parte principal do progra- 
ma, responsável tanto pela codificação 
como pela decodificaçào. 




20 BORDEB 0: PAPEB 0: INK 7: 
CLS 

30 PBINT TAB 16} j "CÓDIGO MULT 
I PLI CATIVO * 

40 PBINT : PBINT : PBINT 

50 PRINT FLASH 1; PAPEB 2 ; "N 

AO DEIXE ESPAÇOS ENTOE PALAVR 

AS* 

60 INPUT "INTB0DUZA 0 TEXTO " 
'b3 

70 INPUT "LINHAS ? " ;m 
80 INPUT "COLUNAS ? ";n 
90 INPUT "(c)ODIFICAR OU (d) E 
CODIFICAR ? "jeS 
100 PAUSE 50: CLS 
110 IF e3="c" THEN LET *=■ 
120 IF eS="d" THEN LET x«n 



130 DTM dSU.I.EN mS/x) 

140 FOR i"l TO x 

155 LET aS="": LET B$=mS+" " 

160 FOB j=l TO LEN mS~l STEP x 

180 LET aS^aS+mSti+J-1 TO 

1) 

190 NEXT j 

195 LET dSti)=aS 

197 LET mS=mS( TO LEN «3-1) 

200 PBINT d3(i>;: IF e3="c" 

THEN PBINT " ": 

210 NEXT 1 

220 STOP 

D 

20 CLS 

30 PRINT 66, "CÓDIGO MULTIPLICAT 
IVO" 

40 PBINT : PRINT : PRINT 

50 PBINT"NAO DEIXE ESPAÇOS ENTB 

E PALAVRAS" 

60 PRINT:INPUT"TEXTO " ;H$ 

70 INPUT-LINHAS " ;M 

80 INPUT"COLUNAS ";N 

90 INPUT" tC) ODIFICAR OU (D) ECOD 

I FICAR ";E$ 

100 FOB L-l TO 1000:NEXT 
110 IF E$-"C" THEN X-M 
120 IF E$-"D" THEN X-N 
130 DIM DS (X) 
140 FOB 1-1 TO X 
150 DSÍU-" " 

160 FOR J=l TO LEN (MS) STEP X 

170 B$=MIDS(M$. I+J-l. 1) 

180 D$(I)=D$(I)+BS 

190 NEXT J 

200 PRINT DS(I) 

210 NEXT I 

220 END 





Há vantagens em se criptografar um 
programa de computador? 

A resposta depende do tipo de pro- 
grama. Não há nenhuma vantagem em 
críptografar um programa em lingua- 
gem de máquina (código binário) - ta- 
refa, aliás, impossível para muitos mi- 
cros, que não poderão executá-lo de- 
pois. Mas, se o programa estiver em 
código-fonte (linguagem de alto nível, 
como BASICI, às vezes pode ser van- 
tajoso criptografá-lo. 

0 objetivo da criptografia de progra- 
mas é protegê-los contra a cópia e a 
imitação ilegais. Uma aplicação muito 
frequente ocorre na transmissão de 
programas de computador em sistemas 
telemáticos. Aqui, o objetivo é torná- 
imunes à cópia ilegal no momento 
transmissão. Nesse caso, o interes- 
sado pode criptografar o programa co- 
um texto qualquer, usando um dos 
métodos explicados neste artigo (o 
multiplicativo costuma ser o mais em- 
pregado). 



H1E] 



20 HOME 

30 PBINT TABI 10) "CÓDIGO MULT 
IPLI CATIVO" 

40 PBINT : PRINT : PBINT 
50 PHINT TAB ( 1Z)"NA0 DEIXE E 
SPACOS": PHINT TAB ( 12) "ENTRE 
AS PALAVRAS" 

60 PRINT : INPUT "TEXTO:";MS 

70 INPUT "LINHAS :";M 

80 INPUT "COLUNAS: "jN 

90 INPUT "CODIFICAB(C) OU DECO 

DI FICAR (D) :" ;ES 

100 FOR L ■= J. TO 1000: NEXT 

110 IF ES - "C" THEN X - M 

120 IF ES - "D" THEN X - N 

130 DIH DS(X) 

140 FOR I - 1 TO X 

150 IF ES - "C" THEN DS(I) - " 

160 FOB J ■ 1 TO LEN (MS) STE 
P X 

170 BS - MIDS (MS.I + J - 1,1) 

180 DSd) - DS(I) + BS 
190 NEXT J 

200 PRINT DS(I);: IF ES - "C" 
THEN PBINT 
210 NEXT I 
220 END 





Para usar o sistema de livrn-nidijjo, tanto o emissor quanto o receptor 
da mensagem precisam ler uma cópia idêntica do dicionário fixo. 



rtti 



ICATIVO" 

40 PBINT : PBINT : PBINT 

50 PBINT TAB(12)"NAO DEIXE ESPA 

ÇOS":PHINT TAB (12)" ENTBE AS PAL 

AVRAS" 

60 PRINT:INPUT"TEXTO:":MS 

70 INPUT"LINHAS:";M 

80 INPUT"COLUNAS:"iN 

90 INPUT-CODIFICAR(C) OU DECODI 

FICAR (D) : " ; ES 

100 FOR L-l TO 1000:NEXT 

110 IF ES-"'C" THEN X-M 

120 IF ES="D" THEN X-N 

130 DIM DS(X) 

140 FOR 1-1 TO X 

150 IF E$-"C" THEN DSd)-" " 

160 FOR J=l TO LEN(MS) STEP X 

170 B$-HIDS(MS.I+J-1.D 

180 DS(D-D3(T)+BS 

190 NEXT J 

200 PBINT D$(I);:IF ES""C" THEN 

PRINT 
210 NEXT I 
220 END 



Até agora, trabalhamos apenas com 
cifras. Os códigos propriamente ditos 
consistem na substituição de uma pala- 
vra ou frase por outras. Isso exige que 
se recorra sempre a um livro-código, que 
deve ser guardado com muito cuidado, 
de modo a evitar que caia em mãos es- 
tranhas. Por esse motivo, geralmente, os 
textos são codificados e recebidos em lu- 
gares fixos, bem seguros. 

O programa seguinte monta um di- 
cionário de códigos de vinte palavras. 
Usando uma matriz bidimensional 
AS(I,J), onde I = 1 guarda a palavra e 
I = 2 guarda seu código, primeiramente 
são lidas as informações após os coman- 
dos DATA. A parte seguinte, que vai da 
linha 120 à linha 170, recebe a palavra 
e imprime o código correspondente, ou 
faz o contrário, caso você tenha opta- 
do pela decodificaçào. 

A mensagem FUGIR DE ROMA À 



ME1A-NOITE DE DOMINGO CHE- 
GAR A NOVA YORK AO MEIO-DIA 
seria codificada como: 40476 10996 
23874 12128 26569 10996 40553 68719 
12128 54982 69783 1 1072. O texto codi- 
ficado: 74891 22317 69783 74832 seria 
traduzido para ENVIAR DINHEIRO 
AO ANOITECER. 

Com o próximo programa, você po- 
derá codificar e decodificar rapidamente 
suas mensagens. Nas situações reais, on- 
de são transmitidos textos muito gran- 
des e os dicionários são volumosos, o 
computador exerce um papel fundamen- 
tal, poupando bastante tempo. 



20 BOBDEB 0: PAPER 0: INK 7: 
CLS 

25 POKE 23658,8 

30 PRINT TAB (10); "LIVRO DE C 

ODIGOS" 

40 PBINT : PBINT : PBINT 

50 DIM aS(2, 20.10) 

60 FOB 1=1 TO 2 

70 FOR j-1 TO 20 

80 BEAD aS(i. j) 

90 NEXT j: NEXT i 
100 INPUT "CODIFICAR (0) OU DE 
CODIFICAR (l)";x 
110 CLS 

120 INPUT "Digite a palavra";m 

9 

125 IF LEN nS>=10 THEN GOTO 
130 

127 FOR n-1 TO 10-LEN m$ : LET 

mS=mS+" " i NEXT n 

130 IF mS-"'" THEN GOTO 280 

140 FOB t=l TO 20 

150 IF mS=aS(l+x.t) THEN 

PRINT aS (2-X,t) 

160 NEXT t 

170 GOTO 120 

180 DATA "BRASÍLIA" , "LONDRES" , 
"PARIS" , "ROMA" 

190 DATA "CHEGADA" , "SAÍDA" , "VA 

PARA" , "FUJA PARA" , "SÁBADO" 
200 DATA "DOMINGO", "MEIO-DIA". 
"AMANHECER" , "MEIA-NOITE" 
210 DATA "ANOITECER", "EM", "AO" 
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i mesma mensagem de varias 



, "NO* . " ENVIE* 

220 DATA "DINHEIRO", "COMIDA" 
230 DATA "54982", "73581". "9007 
5" ,"23874" 

240 DATA "68719". "68677", "1032 
7" . "40476" 

250 DATA "27921", "48553", "1107 
2" , "70355" 

260 DATA "26569". "74832". "1099 
6" ,"12128" 

270 DATA "697B3". "74891", "2231 
7" . "98724" 
280 STOP 



Q 



20 CLS 

30 PRINT #8 , "LIVRO DE CÓDIGO" 

40 PRINT: PRINT: PRINT 

50 DIM AS(2,20) 

60 FOR 1-1 TO 2 

70 FOR J-l TO 20 

80 READ AS(I,J) 

90 NEXT J,I 

100 INPUT-CODIFICAR (0) OU DECO 
DI FICAR (1) " ;X 
110 CLS 

120 INPUT"DIGITE A PALAVRA " ;MS 

130 IF MS-""" THEN END 

140 FOR T-l TO 20 

150 IF MS-ASU+X.T) THEN PRINT 

ASÍ.2-X.T) 

160 NEXT 

170 GOTO 120 

180 DATA BRASÍLIA. LONDRES. PARIS 
. ROMA 

190 DATA CHEGADA, PARTIDA DE. VA 
PARA, FUJA PARA. SÁBADO 
200 DATA DOMINGO. MEIO-DIA , AMANH 
ECER . MEIA-NOITE 

210 DATA ANOITECER, EM, AO, NO, ENV 
IE 



240 DATA 68719,68677.10327,4047 
6 

250 DATA 27921,48553,11072.7035 
5 

260 DATA 26569,74832,10996.1212 
6 

270 DATA 69783,74891,22317,9872 



40 PRINT ! PRINT : PRINT 

50 DIM AS<2,20) 

60 FOR I = 1 TO 2 

70 FOR J = 1 TO 20 

BO READ AS (I , J) 

90 NEXT J 

95 NEXT I 

100 JNPUT "CODIFICAR(O) OU DEC 
OD1FICARU) ?":X 

110 HOME 

120 INPUT "DIGITE A PALAVRA * j 

MS 

130 IF MS = "*" THEN END 

140 FOR T " l TO 20 

150 IF MS - ASM + X.T) THEN 

PRINT AS(2 - X,T) 

.160 NEXT T 

170 GOTO 120 

180 DATA NOVAYORK . LONDRES . PA 
RIS , ROMA 

190 DATA CHEGAR. PARTIR. IR. FUG 
IR, SÁBADO 

200 DATA DOMINGO. MEIO-DIA, TA 
RDE, MEIA-NOITE 

210 DATA ANOITECER . DK . A , AO , 

ENVIAR 

220 DATA DINHEIRO, SUPRIMENTO 

230 DATA 54982, 735B1 .90075.23 
B74 

240 DATA 68719.68677.10327,40 
476 

250 DATA 27921.48553,1.1072,70 
355 

260 DATA 26569.74832,10996.12 
128 

270 DATA 69 78 3 , 74891 , 22317 .98 
724 



20 CLS 

30 PRINT TAB(14)"LIVRO CÓDIGO" 
40 PRINT: PRINT: PRINT 
50 DIM AS(2,20) 
60 FOR 1-1 TO 2 



70 FOR J-l TO 20 
BO READ AS<I,J) 
90 NEXT J 
95 NEXT I 

100 INPUT "CODTFTCAR (0) OU DECO 
DIFICAR(l) ";X 
110 CLS 

120- INPUT "DIGITE A PALAVRA ";M 

s 

130 IF MS-"*" THEN END 

140 FOR T-l TO 20 

150 IF MS-ASU+X.T) THEN PRINT 

AS(2-X,T) 

160 NEXT T 

1 70 GOTO 120 

180 DATA NOVAYORK, LONDRES. PARIS 
.ROMA 

190 DATA CHEGAR , PARTIR . IR , FUGIR 
. SÁBADO 

200 DATA DOMINGO, MEIO-DIA. TARDE 
.MEIA-NOITE 

210 DATA ANOTTECER.DE. A, AO. ENVI 
AR 
220 
230 
4 

240 DATA 68719.68677.10327,4047 
6 

250 DATA 27921.48553.11072.7035 

5 

260 DATA 26569.74832.10996.1212 

8 

270 DATA 69783.74891.22317.9872 



Apesar de eslar limitado a apenas 
vinte paiavras, o programa pode ser fa- 
cilmente ampliado. Por exemplo, se vo- 
cê quiser fazer um dicionário de cin- 
quenta palavras, bastará trocar 20 por 
50 nas linhas 50, 70 e 140. É claro que 
você terá também que fazer novas linhas 
DATA, com as palavras e códigos su- 
plementares. 

No programa atual para o Apple, vo- 
cê não poderá introduzir palavras com 
mais de dez caracteres. Caso queira am- 
pliar este número para doze, por exem- 
plo, você deve substituir 10 por 12 na 
linha 50. Essa restrição não existe nos 
outros programas. 
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Utilizando páginas gráficas, 
você poderá criar as mais diversas 
figuras e cenas animadas no 
microcomputador. Elas tornarão 
seus jogos muito mais divertidos. 



Todos os tipos de animação relacio- 
nam-se a um fenómeno da percepção 
conhecido como persistência da visão. 
Cada imagem transmitida ao cérebro 
permanece "gravada" na memória por 
alguns instantes, mesmo que nossa vi- 
são já esteja captando uma nova ima- 
gem. Porém, quando uma série de ima- 
gens é mostrada com muita rapidez, o 
cérebro não consegue separá-las, pois 
não processa mais de doze imagens por 
segundo. As imagens parecem, então, 
sair umas das outras, e é exatamente is- 
to que dá a impressão de movimento. 

Certos livros infantis, cujas ilustra- 
ções compõem uma sequência de ima 
gens, permitem que se perceba esse fe- 
nómeno com clareza. Folheando-o 
pidamente, suas figuras parecem se mo- 
vimentar. Também o jogo de sombras 
chinesas, um dos nais remotos precur- 
sores do cinema, vale-se desse fenóme- 
no: figuras recortadas ou criadas com 
as mãos são projetadas sobre paredes ou 
telas de linho em ritmo acelerado, for- 
mando uma sombra animada. 

Finalmente, apesar dos progressos 
tecnológicos, o próprio cinema recorre 
ao mesmo princípio básico: os quadros, 
fixados em um filme, são projetados à 
velocidade de 25 unidades por segundo. 
Criam-se, assim, duas ilusões ópticas: a 
de que há uma corrente contínua de 
imagens, quando, na verdade, elas se su- 
cedem de modo descontínuo; e a de que 
coisas imóveis têm movimento. 

A montagem de um desenho anima- 
do é bem mais trabalhosa. O artista de- 
senha sobre uma folha transparente. Ao 
mudar de quadro, sobrepõe a essa fo- 
lha uma outra, e copia o desenho ante- 
rior, mudando ligeiramente sua forma. 
Tente calcular quantas cenas ele preci- 
saria desenhar para produzir um dese- 
nho animado de uma hora de duração... 



GRÁFICOS NO COMPUTADOR 



Por que não usar o computador pa- 
ra agilizar esse processo, se até os mi- 
cros mais simples são capazes de fazer 
desenhos de boa qualidade? 

A capacidade gráfica dos micros 
atuais chega a ser impressionante. En- 
tretanto, isso não é suficiente para sa- 



tisfazer o público de um cinema. O cus- 
to da produção de um filme de ficção 
científica em computador chega a ser da 
ordem de milhões de dólares, devido aos 
equipamentos caríssimos que são usa- 
dos. Esse preço só é compensador quan- 
do o roteiro requer cenas impossíveis de 
serem obtidas na vida real. 

A grande maioria das pessoas não 
tem acesso a computadores profissionais 
de animação gráfica. Portanto, devem 
contentar-se em usar seus próprios mi- 
cros para executar tais tarefas. 

A animação gráfica é uma das mui- 
tas aplicações dos programas de proje- 
to assistido por computador (PAC), já 
discutido em artigos anteriores. Nesses 
casos, o grau de sofisticação alcançado 
é limitado pela capacidade do micro- 
computador utilizado. Um dos mais po- 
derosos equipamentos de animação grá- 
fica para filmes, por exemplo, é o Cray 
X-MP, um supercomputador que ope- 
ra à velocidade de 100 megaflops (100 
milhões de operações em ponto flutuan- 
te por segundo). Mas, como as imagens 
são muito complexas e têm que ser tro- 
cadas muitas vezes por segundo, nem 
mesmo o Cray consegue gerar uma ani- 
mação em tempo real. Suas imagens 
precisam ser filmadas separadamente, 
quadro a quadro, e recompostas, come 
se faz em um desenho animado. 

Uma figura sem muitos detalhes, po- 
rém, permite animações bem próximas 
do real. Você mesmo já deve ter visto 
videogames bem produzidos, em que as 
imagens geradas chegam à velocidade de 
cinquenta quadros por segundo. 

O maior problema em uma animação 
feita no computador é a grande quanti- 
dade de informações existentes em um 
desenho. Quanto mais detalhada a figu- 
ra, mais memória é exigida para seu ar- 
mazenamento. Igualmente, quanto mais 
colorida for a imagem, mais espaço de 
memória RAM é necessário. 

Devemos também levar em conta 
que, à medida que cresce a quantidade 
de informações a serem processadas pela 
UCP, mais lenta se torna a animação. 
É por esse motivo que nem mesmo os 
mais sofisticados computadores são 
auto-suficientes na produção de um fil- 
me ou desenho animado. Não existe ain- 
da uma UCP tão rápida a ponto de dis- 



pensar, totalmente, o processo manual 
de montagem quadro a quadro. 

Se a animação de figuras é uma tare- 
fa lenta para os mais avançados compu- 
tadores, como você poderá movimentá- 
las na tela de seu micro? Uma das solu- 
ções consiste em lançar mão das pági- 
nas gráficas. 
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A PERSISTÊNCIA 


■ 


PÁGINAS GRÁFICAS 




DA VISÃO 


■ 


MOVIMENTAÇÃO 


■ 


A LANTERNA MAGICA 




DE CUBO 


■ 


0 DESENHO ANIMADO 


■ 


CRIANDO SUA 


■ 


GRÁFICOS NO COMPUTADOR 




PRÓPRIA ANIMAÇÃO 



O QUE SÃO PÁGINAS GRÁFICAS 



Todos os microcomputadores pos- 
suem uma área da memória reservada 
para a tela de vídeo. Ela pode ser de dois 
tipos: a memória mapeada, na qual a ca- 
da ponto da tela corresponde um local 



na memória; ou o arquivo de códigos, 
organizado como uma lista. 

No conceito das páginas gráficas, em 
vez de se construir a figura diretamente 
na memória reservada para a tela, usa- 
mos uma outra área da memória RAM, 
definida especialmente para esse fim. 
Assim que se conclui a figura, ela é 




transferida para a parte da RAM nor- 
malmente associada à tela. A área utili- 
zada para construir o desenho é chama- 
da de página gráfica. 

Mas, qual a vantagem de empregá- 
la? Seguramente não haverá nenhuma 
economia de tempo, se tivermos que de- 
senhar a figura primeiro em uma área 
separada da memória. Ao contrário, 
quando se transferem as informações 
para a memória de tela, perde-se um cer- 
to tempo. A vantagem reside no fato de 
que podemos alterar à vontade a pági- 
na "oculta", sem provocar simultânea 
mente alterações na tela. 

É óbvio que a técnica de páginas grá 
ficas não tem muito valor quando si 
ta de desenhar apenas uma figura. Su 
ponhamos, porém, que você queira 
crever um programa em que há um tex- 
to seguido de um desenho: seria bem 
mais conveniente ir construindo a figu- 
ra em algum lugar da memória, enquan 
to o usuário estivesse ocupado com a lei' 
tura do vídeo. Com a tela gráfica, mi 
to lempo seria economizado, uma vez 
que ela já estaria pronta e disponível em 
uma parte da memória. 

Mas a grande vantagem das páginas 
gráficas se evidencia quando se preten- 
de mostrar uma sucessão muito rápida 
de figuras. Os comandos em BASIC em 
geral escrevem apenas nas áreas reser- 
vadas para a tela. Isso significa que ire- 
mos construir a figura nesta área, e, de- 
pois, transportá-la para outra parte da 
RAM. Esse processo será mais lento na 
etapa de montagem, mas muito mais rá- 
pido na exibição da imagem, pois o mi- 
croprocessador não precisará executar 
uma série de comandos e funções em 
BASIC. Ele apenas transferirá as infor- 
mações daquela parte da memória para 
a tela. E, se você montar várias figuras 
em diferentes áreas da memória, elas 
poderão ser chamadas rapidamente 
para a tela, produzindo um efeito de 
animação. 



0 ALGORITMO DE UM CUBO 



Tomemos como exemplo a monta- 
gem de uma sequência animada que re- 
presente a rotação de um cubo. Decidiu- 
se que quatro quadros serão suficientes I 
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para simular uma rotação e que o cubo 
dará cinco voltas. 

O programa poderia ser estruturado 
da seguinte maneira: 

para c = 1 até 5 faça 

começo 

limpar a tela 

construir a figura número 1 
limpar a tela 

construir a figura número 2 
limpar a tela 

construir a figura número 3 
limpar a tela 

construir a figura número 4 
fim 

A idéia parece simples demais; limpa- 
se a tela, exibe-se cada uma das figuras 
em sequência e o processo é repetido até 
que se completem as cinco rotações. 
Mas esse método apresenta uma desvan- 
tagem: os cálculos para se desenhar ca- 
da figura são refeitos a cada uma das 
cinco repetições. Como os cálculos to- 
mam a maior pane do tempo no pro- 
cesso, ocorrerá um "pulo" entre cada 
figura exibida, o que resultará em um 
fraco efeito de animação. 

Observe agora este algoritmo, que 



ilustra o procedimento geral usado na 
técnica de páginas gráficas: 

limpar a tela 

construir a figura número 1 

guardar a tela na página de memória 1 

limpar a tela 

construir a figura número 2 

guardar a tela na página de memória 2 

limpar a tela 

construir a figura número 3 

guardar a tela na página de memória 3 

limpar a tela 

construir a figura número 4 
guardar a tela na página de memória 4 
para c = I até 5 faça 



1 para a tela 
na 2 para a tela 
na 3 para a tela 
na 4 para a tela 



copie os dados da pág: 
copie os dados da pági 
copie os dados da pági 
copie os dados da pági 
fim 



O programa é mais longo e exige um 
demorado processo de construção das 
quatro figuras, antes de começar a ani- 
mação. Mas, uma vez armazenadas nas 
páginas de memória, as figuras podem 
ser mostradas em rápida sequência. 

Embora a construção dos desenhos 
seja executada em BASIC, podemos uti- 



lizar uma rotina em código de máquina 
para efetuar a transferência de uma fi- 
gura da tela para a página gráfica e vice- 
versa. Ela realizará essas transferências 
em um piscar de olhos — o que é a es- 
sência da animação. 



FAÇA SUA PRÓPRIA ANIMAÇÃO 



Os próximos programas são aplica- 
ções bem simples da técnica das páginas 
gráficas. Os que utilizam código de má- 
quina devem ser gravados antes da exe- 
cução, para evitar que se percam, caso 
ocorra algum erro de digitação. Você 
pode usar suas próprias figuras nesses 
programas, colocando os comandos de 
desenho nas linhas adequadas. 

Em um próximo artigo, examinare- 
mos em detalhe as técnicas aqui empre- 
gadas e você verá como aproveitar ao 
máximo a capacidade de seu micro. 



Este programa — adequado só ao 
Soectrum de 48 K — produzirá a anima- 
ção de um acrobata pulando sobre um 
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O acrobata na tela do Spectnim. 

trampolim. Embora a maior parte do 
programa seja em BASIC, há um trecho 
em linguagem de máquina que dará a ve- 
locidade necessária às figuras na tela. 

10 BORDER 0: PAPER 0 I IKK 7: 
CL 8 

20 CLEAR S3230 
30 OÚSUB 220 

40 LET arce-64: LET deat-208 

50 CL3 

60 CIRCLE 128,168,7: PLOT 128 
,161? DRAW 0,-15: DRAM -10, 
-10: PLOT 128,146: DRAW 10, 
-10: PLOT 118,161: DRAW 11,-5 
: DRAW 10, S 

70 PLOT 108,106: DRAW 40, Or 



TRS-Color: o asterisco que se movimenta. 



DRAW ■ 
DRAW 8,-8 
LET d«at.-deBt+ 



PLOT 113.106 
PLOT 145, 106 
80 GOSUB 270 
16 

90 PRTNT AT 21 , 2 ; "qua lquer te 
cia para começar": PAUSE 0 
100 C.L8 : CIRCLE 128.151,7: 
PLOT 128.134: DRAW 0,-15: DRAW 
-5,-16: PLOT 12B.120: DRAW 5, 
-17: PLOT 118,125: DRAW 10,5: 
DRAW 11,-5 

110 PLOT 108,106: DRAW 15,-4: 
DRAW 10,0: DRAU 15,4: PLOT 113 
.105: DRAW -8,-8: PLOT 144,105 
: DRAW 8,-8 

120 PRINT AT 6.4;"!! BOING! ! " 
130 GOSUB 270 
140 PRINT AT 21 . 
cia para começar 
150 LET sree-208: 
160 PRTNT AT 17, 3: 
cia para pular': PAUSE 0 
170 FOR n-0 TO 1 
180 CLS 

190 GOSUB 270: LET Brce=srce+ 
16 

200 tf EXT n 
210 GOTO 150 

220 DATA 1,0,16,17,0,0,33,0,0, 
237.176,201 

230 FOR 1 = 53231 TO 5323.1+11 
240 READ byte: POKE i . byte 



"qualquer te 

PAUSE 0 
LET dee.t-64 



250 NEXT i 

760 RETtJRN 

270 POKE 53236, deat 

280 POKE 53239, arct 

290 RAND USR 53231 

300 RETURN 

A linha 10 seleciona as cores da tela, 
da borda e do desenho: negro, negro e 
branco, respectivamente. A 20 reserva 
um espaço na memória e a 30 desvia o 
programa para a sub-rotina entre as li- 
nhas 220 e 260, que irá montar a rotina 
em linguagem de máquina, nessa área. 
Essa sub-rotina em BASIC lê os códi- 
gos após o comando DATA (linha 220) 
e os coloca na área reservada na memó- 
ria, através do comando POKE. 

A linha 40 define duas variáveis: srce 
e dest. A variável srce corresponde ao 
byte alto do endereço de onde os códi- 
gos devem ser retirados e dest, ao byte 
alto do endereço onde eles vão ser guar- 
dados. Informa-se, assim, ao computa- 
dor onde ler a imagem da tela e onde 
coloca-la na memória. Em seguida, as 
linhas 60 e 70 desenham a primeira das 
duas figuras — o acrobata no ar. A li- 
nha 80 desvia o programa para a linha 
270, onde há uma rotina que coloca os 
valores de dest e srce no programa em 
código de máquina. Depois, chama es- 
sa rotina para copiar a parte da tela em 
que está o acrobata. 

O próximo passo consiste na criação 
da imagem para a segunda página de 
memória (linhas 100 a 120). Essa ima- 
gem é armazenada pela linha 130, que 
desvia o programa para a linha 270. A 
linha 1 50 troca os valores de srce e desl, 
o que faz com que os códigos sejam 
transferidos da RAM para a tela. As li- 
nhas 150 a 210 formam um laço que se 
encarrega de alternar as duas figuras na 
tela. Para interromper o programa, bas- 
ta acionar < BREAK > . 



Para montar sua própria animação 
(de dois quadros), você precisará modi- 
ficar os comandos gráficos nas linhas 60 
e 70 e 100 e 1 10. Futuramente, você ve- 
rá que é possível usar até oito páginas 
gráficas em sequência. 



O programa do TRS-Color é ligeira- 
mente diferente dos destinados aos ou- 
tros computadores. Ele usa três páginas 
gráficas — em vez de duas — das oito 
possíveis acessadas pelo comando 
PCOPY. Esse comando é utilizado da 
seguinte maneira: PCOPY número da 
primeira página TO número da última 
página — PCOPY 1 TO 8, por exem- 
plo. Na verdade, a alternância de pági- 
nas é tão rápida, que se torna necessá- 
rio introduzir uma pausa entre elas. 

O programa mostra uma grande es- 
trela girando continuamente. 

10 PCLEAR 8 : PMODE 2,1 
20 3CREEN 1,1:CLS 
30 C-ATN(l)/45 
50 FOR N-0 TO 2 
60 PCLS 

70 FOR K-0 TO 360 STEP 45 

BO LINE(127,95)-(127+59«SINtC*( 

K+N*15) ) ,95-59*COS <C« (K+N«15) ) ) 

,PSET 

90 NEXT 

100 PCOPY 1 TO 3+N*2:PCOPY 2 TO 
4+N*2 
110 NEXT 

140 FOR N-3 TO 7 STEP 2 
150 PCOPY tf TO 1: PCOPY N+l TO 2 
160 FOR G-l TO 30:NEXT G.N 
170 GOTO 140 

A linha 10 abre espaço para as oito 
páginas gráficas e seleciona PMODE2 
na página 1 , para ficar em branco e pre- 
to com média resolução. Neste modo, I 
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uma tela ocupa duas das páginas gráfi- 
cas internas. Na linha 20 o modo de al- 
ta resolução gráfica é acionado, 

As imagens que irão ocupar as três 
páginas são montadas da linha 30 até a 
linha 110, enquanto a linha 100 copia 
cada uma delas nas páginas internas. 
Uma tela ocupa duas páginas internas 
e as duas primeiras páginas são usadas 
para desenhar os gráficos. 

As linhas 140 a 160 copiam as pági- 
nas armazenadas na tela, em sequência. 
Há uma pausa na linha 160 para evitar 
que as imagens se alternem muito rapi- 
damente e se sobreponham. 



BI EDI 

No Apple, contamos com duas pági- 
nas gráficas. O comando HGR ativa a 
alta resolução, limpa e mostra a página 
1 da memória. O comando HGR2 ativa 
a alta resolução, limpa e mostra a pági- 
na 2. Colocaremos um desenho em ca- 
da página, fazendo com que se alter- 
nem. Digite e execute o programa. Vo- 
cê verá um beija-flor pairando no ar. 

5 HGR 

10 POKE - 16302,0 

20 XI = 112-.Y1 - 67:N = 16 

30 GOSUB 100 

AO FOR T = 1 TO 1000: KEXT T 
50 HGR 2 

60 XI - 115:Y1 - B3:N = 19 
70 GOSUB 100 

80 FOR T - 1 TO 1000: NEXT T 

90 GOTO 300 

100 FOR I » 1 TO N 

110 READ X2 

120 READ 12 

130 HPLOT XI, ¥1 TO X2.Y2 
140 LET XI - X2: LET Yl - Y2 
150 NEXT 1 
160 BETURN 

200 DATA B6, 3, 79,67,90,86, 

192,3.176,64,141,99,196,166,170 
.186 

210 DATA 115, 1B6, 118,138.86,1 
18, 12, 191 ,48 . 139, 51 . 109,67 , 90 , 9 
0,86 

220 DATA 96,64,54.49.83,86,11 

5.83.160.80,240.102.185,115 

230 DATA 144.113.160,144,192. 

147.179.169,144,185,115,148 

240 DATA 86,118.12.191.48.139 

,51,109,67,90.83,86 

300 POKE - 16304.0: POKE - 1 

6300,0 

310 FOR I = 1 TO 70: NEXT I 
320 POKE - 16304.0: POKE - 1 
6299,0 

330 FOR T = 1 TO 70: NEXT T 
340 GOTO 300 

A linha 5 ativa o comando HGR. To- 
dos os comandos gráficos escreverão na 
primeira página. A linha 10 "fecha" a 



janela de quatro linhas na base da tela. 
A linha 20 define os pontos iniciais do 
primeiro desenho (XI e Yl) e o número 
de coordenadas a serem lidas (N). A li- 
nha 30 desvia o programa para a sub- 
rotina de desenho que vai da linha 100 
à linha 160. Para construir esse primei- 
ro desenho, serão lidas as linhas 200 e 
210. 

A linha 50 ativa o HGR2, abrindo es- 
paço para se .-screver na segunda pági- 
na. A linha 60 define os valores iniciais 
da segunda figura e a 70 chama a sub- 
rotina de desenho, que agora irá ler as 
linhas 220, 230 e 240. 

A rotina entre as linhas 300 e 340 al- 
terna as duas figuras na tela. A linha 300 
mostra a página 1 e a 320, a página 2. 
As linhas 310 e 330 introduzem pausas 
para diminuir a velocidade de alternân- 
cia das imagens. 

E] 

O programa do TK-2000 é semelhan- 
te ao do Apple. Devem ser feitas as se- 
guintes modificações: 

5 MA: HOME :MP: HOME 
10 MA: HGR 2 
50 MP: HGR 2 



A linha 5 limpa a primeira (MA) e a 
segunda (MP) páginas. A linha 10 ha- 
bilita o usuário a escrever na primeira 
página, e a linha 50, na segunda. As li- 
nhas 300 e 320 mostram a primeira e a 
segunda páginas, respectivamente. 

Para entender melhor o programa, 
veja as explicações para o Apple. 



O MSX, como você já deve saber, 
possui uma memória exclusiva para a te- 
la, a VRAM, que é dividida em oito par- 
tes de 2048 bytes. O comando BASE en- 
dereça cada arquivo de códigos em um 
deles, não necessariamente em sequên- 
cia. Como o modo de baixa resolução 
gráfica não exige muitas informações, 
grande parte da VRAM fica desocupa- 
da. Nesses espaços é possível criar até 
seis páginas gráficas. Para demonstrar 
isso, o próximo programa irá simular a 
rotação de um cubo. 

5 BASE(18)=BASEU9) 
10 BASE(17)=0:SCREEN 3 
20 Xl=127:Yl=40:N-4 
30 GOSUB 200 

40 BASE(17)-4096:SCREEN 3 
50 X1-103:Y1=151tN=10 



60 GOSUB 200 

70 BASE(17)=6144:SCREEN 3 
80 X1=95:Y1=151:N-10 
90 GOSUB 200 

100 BASE (17) =8192 : SCREEN 3 
110 Xl=85:Yl=96:N-6 
120 GOSUB 200 

130 BASE(17)=10240:SCREEN 3 
140 Xl=155: Yl=151 :N=]0 
150 GOSUB 200 

160 BASE(17)-12288:SCP,EEN 3 

170 X1 = 151:Y1 = 151:N<=10 

180 GOSUB 200 

190 GOTO 400 

200 FOR 1-1 TO N 

210 READ X2 

220 READ Y2 

230 LINE(X1,Y1)-(X2.Y2) 
240 LET X1=X2:LET Y1-Y2 
250 NEXT I 
260 RETURN 

300 DATA 177,96,127,151.74>96.1 
27,40 

310 DATA 133.96,176.96,151.151, 

103.151,78,96.103.40,151,40,181 

.96,128,96,103.40 

320 DATA 110,96. 170,96.155.151. 

95,151,80,96,95.40.155.40,170.9 

6,110.96.95.40 

.330 DATA 85,41,169.41.169.151.8 

5,151,85,96,169,96 

340 DATA 140,96.80.96,95.151,15 

5.151.170,96.155,40,95.4(1.80.96 

,140.96,155,40 

350 DATA 121,96,73.96.103,151.1 

51,151,181,96,151,40,103,40,73, 

96,121.96,151.40 

400 BASE(17)-0 

410 FOR 1=1 TO 70:NEXT I 

420 BASE(17)=4096 

430 FOR 1 = 1 TO 70:NF.XT I 

440 BASE(17)-6144 

450 FOR 1=1 TO 70:NEXT 1 

460 RASE(17)=8192 

470 FOR 1=1 TO 70:NEXT I 

480 BASE (17) -10240 

490 FOR 1-1 TO 70:NEXT I 

500 BASE(17)=12288 

510 FOR 1=1 TO 70 ! NEXT I 

520 GOTO 400 

Primeiro, a linha 5 coloca o endere- 
ço de um arquivo que não iremos usar 
no último segmento da VRAM, junto 
com um outro, a fim de criar espaço. A 
linha 10 faz o computador colocar a ta- 
bela de padrões (a figura propriamente 
dita) a partir do endereço 0. A 20 defi- 
ne os pontos iniciais do desenho (XI e 
VI) e o número de coordenadas que se- 
rão lidas (N). A 30 chama a rotina de 
desenho, que começa na linha 200 e ter- 
mina na 260. A 300 contém as informa- 
ções para o primeiro desenho. 

Feitos os desenhos, o programa é des- 
viado para a rotina da linha 400, que al- 
terna as figuras na tela, dizendo ao com- 
putador, por meio do comando BASE, 
onde buscá-las. Essa rotina inclui ain- 
da uma pausa entre as figuras, para que 
elas não se sobreponham. 
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ENDEREÇO INICIAL 



TRADUÇÃO DOS COD I GOS 
PROCURANDO PELAS VARIÁVEIS 
VARIÁVEIS NUMÉRICAS 
CADEIAS" 



0 funcionamento do computador desperta 
nossa curiosidade sobretudo quando 
algo não vai bem. Sabendo como os 
programas são armazenados, você poderá 
detectar seus erros com mais facilidade. 



O que o computador faz com seu 
programa depois de tê-lo digitado? 

Provavelmente, você sabe que ele é 
armazenado em um lugar especial da 
memoria, reservado para programas em 
BASIC. Tem, porém, ideia de onde fi- 
ca esse lugar e de que maneira as linhas 



são escritas, para que o computador as 
entenda? 

Na memória do computador, o pro- 
grama se assemelha bastante à listagem 
que você digitou, e muitos dos números 
ali guardados são códigos ASCII, repre- 
sentando as letras, Mas a máquina re- 



mu 



duz algumas palavras — as palavras- 
chave — e, também, introduz informa- 
ções extras entre as linhas, para facili- 
tar sua localização. 

O computador possui ainda uma área 
onde guarda as variáveis criadas pelo 
programa, modificando-as sempre que 
necessário. Quando digitamos, por 
exemplo, 10 LET A = 6, a máquina não 
só armazena essa linha como coloca o 
nome e o valor da variável nela contida 
em outro local da memória. 

Vejamos tudo isso um pouco mais de 
peno. Para começar, digite o próximo 
programa exatamente como está. No 
Spectrum, não deixe nenhum espaço. 
Nos outros micros, coloque um espaço 
apenas após as palavras PRINT e LET. 

10 PRINT "INPUT" 
20 LET A = 2 
30 PB TNT A 
40 STOP 



A armazenagem de um programa em 
BASIC, no MSX, começa no endereço 
32769. Para ler os códigos armazenados, 
a partir desse endereço, dé o seguinte co- 
mando direto: 



Obteremos, então, este bloco: 



Se você considerar esses números co- 
mo códigos ASCII e tentar relacioná-los 
aos caracteres equivalentes, descobrirá 
que só alguns fazem sentido: 



Já se vê parte do programa. Mas on- 
de estão o PRINT, que antecede a pa- 
lavra INPUT, e os demais comandos? 

O MSX usa um artifício para econo- 
mizar memória: codifica as palavras e 
os caracteres reservados, substituindo- 
I os, ao armazenar o programa, por es- 



ses códigos, usualmente chamados to- 
kens (do inglês: símbolo, indicação). 

Se, posteriormente, você tiver interes- 
se em obter uma lista dos tokens, utili- 
ze este programa: 

10 E=14962 

20 C=65 

30 PRINT CHRS(C) ; 
40 A-PEEK(E) 
50 B=PEEK(E+1) 
60 AS=CHBStA) 

70 TF A<128 THEN PRINT ASirOOTO 
110 

BO PRINT CHRSÍA-12B) ;TAB(8) i 8 
90 E=E+1 

100 IF PEEK(E + l)O0 THEN PRINTC 
HRS(C) ; 

110 IF PEEK(E+l)O0 THEN 150 

120 C-C+1:IF OB9 THEN 170 

175 BS-CHBS(C) ! PRINT 

130 IF BS="J" OH BS="«" THEN 15 

0 

140 PRINT BSi 
150 E*E+1 

160 TF E<=] !í649 THEN 40 

170 E = 156r>4:PRtNT 

180 A-PEEK(E) :B-PEEK(E+1) 

190 IF A>127 THEN PT.TNT CHR5 (A- 

128) i 

200 IF A<tI8 THEN PR [NT CHRS (A) 

210 PRINT TAB (8) ;B 

220 E=E+2:PRTNT 

230 [ V EU5673 THEN OOTO .180 

Interpretando os tokens, nosso bio- 



co ficará assim: 






? ? ? 


? 


PRINT 


eap ' I 


M 


P 


U T " 


? 


7 




LET 




A - ? 






? ? ? 


PRINT 


esp 


A ? ? 


t 




? 3TOP ? 




? 



Na terceira, 17'.', 21'. e 35; posições 
encontra-se a sequência 10, 20, 30 e 40. 
Esses bytes guardam a parte baixa (L) 
do número de cada linha e cada byte 
subsequente guarda a parte alta (H). Os 
dois bytes anteriores armazenam, do 
mesmo modo, o endereço da próxima 
linha. 



? 130L 
LET eep 
? 140L 
PRINT eap 
fimH 40 



Para os bytes finais, o valor 0 signi- 
fica fim de linha; dois 0 seguidos indi- 
cam fim de programa. O valor 2, atri- 
buído à variável A, é armazenado no 
23? byte, de uma forma relativamente 



complicada, que não cabe aqui exami- 
nar. Finalmente, temos o diagrama 
completo de uma linha na RAM: 

120L 120H 10 0 PRINT 

eap I N P 

U T fi"l 130L 

130H 20 0 LET eap 

A - 2 fiml 140L 

140H 30 0 PRINT esp 

A firal finL fimH 40 

0 STOP f íml f ínpr f impr 



Já sabemos como um programa é co- 
locado na memória do micro. Veremos 
agora como o valor de uma variável é 
armazenado na RAM . Lembre-se de que 
o MSX possui a função VARPTR (do 
inglês VARiable PoinTeR). que mos- 
tra o endereço a partir do qual está guar- 
dada determinada variável. 

Vamos explorar, em primeiro lugar, 
as variáveis numéricas. 

Use NEW para apagar o programa 
anterior e execute este: 

10 DEF1NT A 

20 A-J 

30 V-VARPTR (A) -2 

40 FOR K-U TO V+3 

50 PRINT PEEK(K) ; 

60 NEXT 

Você obterá os seguintes números: 

65 0 1 0 

O primeiro e o segundo bytes arma- 
zenam o nome da variável — por isso, 
só as duas primeiras letras dela impor- 
tam. Como se trata dc uma variável do 
tipo inteira, bastam os dois bytes seguin- 
tes para guardar seu valor nas duas di- 
ferentes modalidades (parte baixa, L, e 
parte alta, H). 

Faça as seguintes substituições no 
programa e volle a executá-lo: 

14 DEFSNU A 

40 FOR K^V TO V+fi 

Temos então estes números: 
65 0 65 16 0 0 

Os dois primeiros bytes dão o nome 
à variável. Estamos lidando agora com 
uma variável de precisão simples e, por 
isso, precisaremos de cinco bytes para 
armazenar seu valor. O primeiro deles 
cuida do expoente, guardando o resul- 
tado da soma de seu valor com o núme- 
ro 65, para facilitar o manejo de expoen- 
tes negativos. Os três bytes restantes 
encarregam-se de guardar o número 
propriamente dito. 

Faça estas novas substituições e exe- 
cute o programa. 
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Aparecem na tela os números: 

65 0 65 16 0 0 0 0 0 0 

Como você pode observar, o nome e 
o expoente continuam sendo armazena- 
dos da mesma maneira, mas são neces- 
sários sete bytes para guardar o número. 



Para armazenar as variáveis do tipo 
srring, o MSX utiliza três bytes. Digite 
o próximo programa e veja como eles 
são aproveitados. 

10 M*"ABC" 

71) V-VARPTR (AS ) -í 

10 FOR K-V TO V*4 

40 PH TNT FKKK(K) | " " | 

511 NEXT 

Você deve ter obtido os números: 

65 0 3 9 126 

Os dois primeiros bytes contêm o no- 
me da variável: o terceiro, seu compri- 
mento; os dois últimos indicam o ende- 
reço no qual ela se encontra, ou seja, sua 
posição exata na parte da RAM que ar- 
mazena o programa. Este é um artificio 
que o MSX utiliza para economizar me- 
mória. Se houver alguma modificação 
na linha que contém a variável (a linha 
10), que impeça o computador de usá- 
la, ele colocará seu conteúdo em outro 
endereço. 



VARIÁVEIS INDEXADAS 



Quando você define uma matriz com 
o comando DIM(n), o MSX reserva, na 
memória, um espaço para n+ 1 variá- 
veis, pois a primeira delas tem índice 0. 
Execute o próximo programa e veja co- 
mo elas são armazenadas. 

li DEFTNT A 
70 I>IM A(2> 

30 A(0)»5'A(I)=10:A(2)-15 
40 V--VAHPTH(A(0)) 
50 FOB K = V Tf) U+16 
60 PBTNT PF.EK(K) ; 
70 NEXT K 

Você deve ter obtido: 



0 5 0 10 0 15 0 

Os três primeiros bytes zerados iní- 
cializam a área de armazenamento. O 
byte com o número 2 indica que a va- 
riável é do tipo inteira — seria 4, para 
I variáveis de precisão simples, e 8, para 



variáveis de precisão dupla, Os dois 
bytes seguintes fornecem o nome da va- 
riável. O sétimo e o oitavo indicam 
quantas posições faltam para o fim des- 
sa área. O nono byte contém o número 
de dimensões, e o décimo e o 1 lf, o ta- 
manho dessas dimensões. Em seguida 
vêm os números, armazenados confor- 
me o tipo de cada variável. 

Para as variáveis indexadas do tipo 
string pouca coisa mudaria. O quarto 
byte, que indica o tipo de variável, te- 
ria o número 3, e, em vez de guardar um 
valor numérico, conteria os endereços 
dos caracteres, como no armazenamen- 
to de strings comuns. 



No Spectrum, há dois endereços de 
memória que, juntos, nos dão o ende- 
reço a partir do qual está armazenado 
o programa em BASIC. Acesse-os com 
o seguinte comando direto: 

PBINT PEEK 23635+256*PEEK 23636 

Você obterá como resposta o núme- 
ro 23755, em um Spectrum de 48K. Se 
você achou um número diferente e tem 
certeza de que digitou o comando cor- 
retamente, substitua 23755 pelo valor 
encontrado, no próximo comando. 



Você obterá os seguintes números: 



Agora, usando os códigos ASCII, 
observe como fica o quadro: 



Você já pode ver parte do programa, 
mas falta decifrar vários códigos. 

Provavelmente o comando PRINT 
estaria antes de "INPUT", mas o que 
vemos nessa posição é o número 245. O 
Spectrum usa valores acima de 164 pa- 
ra codificar as palavras reservadas. Se 



você consultar a lista delas, no manual, 
verá que 245 é o valor, chamado token 
(do inglês: símbolo, indicação), para 
PRINT. Consultando a lista de tokens, 
localizaremos os comandos. 

7 7?? PBINT 



No segundo. 15?, 30? e 37? bytes, 
encontra-se a sequência 10, 20, 30, 40. 
Esses bytes são usados para guardar a 
parte baixa (L) do número da linha, as- 
sim como o byte anterior guarda a par- 
te alta (H). Os dois bytes seguintes da 
linha indicam seu tamanho (excluídos os 
quatro primeiros), sendo que, agora, a 
parte baixa aparece primeiro. 

Temos, assim, o seguinte diagrama: 

0 10 compL compH PBINT 



compL compH LET 



Vejamos, agora, os bytes finais. O 
valor 13 é usado para indicar fim de li- 
nha (fdl). O número 14 indica que os 
próximos quatro bytes são uma forma 
codificada de uma constante numérica 
— no caso, 2. 
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compL compH PBINT 



pL compH LET 



compL compH PBINT A fdl 
0 40 cowpL compH STOP 

fdl 



ARMAZENAGEM DAS VARIÁVEIS 



Vimos como um programa em BA- 
SIC é armazenado. Todas as variáveis 
definidas por ele, porém, sào guardadas 
em uma área separada. Dois endereços 

— 23627 e 23628 — contém o início des- 
sa área, e dois outros — 23641 e 23642 

— apontam para o fim. Para imprimir 
todo o conteúdo da memória, entre es- 
te programa: 



IIIIIIIIIIHM 
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2 364 2 

20 PB TNT PEEK A; " 
30 NEXT A 



Tente agora um 
indexada: 

1 DIM F (2) 

2 LET F (.1 > -100 
.1 LET F(2)-200 



variável numérica Se seu computador acabou de ser li- 
gado, a resposta será 7681. Caso obte- 
nha outro número, substitua-o no se- 
guinte comando que irá executar: 



Em primeiro lugar, vamos definir 
uma variável, acrescentando esta linha 
ao programa anterior. 

1 LET B-150000 

Executando o programa, temos: 

98 146 18 124 0 0 225 0 

O número 98 é o código para a letra 
B mais 32 — isto mostra ao computa- 
dor que ele está lidando com uma va- 
riável numérica. O valor 150000 é arma- 
zenado nos cinco bytes seguintes, na for- 
ma de ponto flutuante. Os dois últimos 
bytes, 225 e 0, indicam o fim da área de 
variáveis. Como eles sempre aparecerão 
na mesma posição, deixaremos de 
mencioná-los nos próximos exemplos. 

As variáveis com nomes longos são 
armazenadas da mesma maneira, ape- 
sar dos caracteres terem seus códigos um 
pouco alterados. Tente isto: 

1 LET MARIA-30 

Você deve ter obtido os números 
173 97 114 105 225 



Executando o programa, temos: 



0 0 200 o 0 



Os primeiros cinco bytes guardam o 
nome MARIA. À primeira letra soma- 
se o número 96, indicando um longo no- 
me; às do meio, o número 32; à ultima 
letra é adicionado 160, indicando o fim 
do nome. Os últimos cinco bytes arma- 
zenam o valor numérico. 



VARIÁVEIS STRIIMG E INDEXADAS 



A próxima linha de programa mos- 
tra a maneira como as variáveis do tipo 
slring são armazenadas: 

1 LET AS-"STRING" 

Você deve ter obtido: 

65 6 0 83 84 82 73 78 71 
A STRING 

O nome da variável, A, vem seguidr 
de dois byies com a quantidade de ca- 
racteres armazenados. Como você po- 
de notar, estes caracteres são represen- 
tados pelos códigos em ASCII. 



O primeiro byte é F mais 64, indican- 
do uma variável numérica indexada. Os 
dois próximos bytes, com a parte baixa 
primeiro, indicam o número de bytes se- 
guintes — 13. O próximo byte diz o nú- 
mero de dimensões e os dois seguintes 
mostram o número de elementos reser- 
vados. Só então se chega aos dois valo- 
res armazenados, que ocupam cinco 
bytes cada um. 

Veja, finalmente, as variáveis inde- 
xadas do tipo string. Digite estas linhas 
e execute o programa. 

1 D1M BS(2,3) 

2 LET BS(l)-"NOVA" 

3 LET BS ( 2) - "CULTURAL" 

Observe como fica o quadro: 

194 21 0 2 2 0 8 0 
B 

78 79 66 65 32 32 32 32 
NOVA 

67 85 76 84 85 82 65 76 



O primeiro byie c o código de B mais 
128, para variáveis indexadas do tipo 
string. Os dois próximos mostram quan- 
tos bytes ainda serão encontrados até o 
fim da área de variáveis. O byte seguin- 
te guarda o número de dimensões — 
neste caso, 2. Outros dois pares de bytes 
contêm, respectivamente, o número de 
elementos e o comprimento máximo de- 
les. Os bytes restantes guardam os ca- 
racteres, sendo que o código 32 (espa- 
ço) completa o espaço reservado para 
um elemento, se este for menor que o 
comprimento reservado. 



No TRS-Color, existem dois endere- 
ços que, juntos, indicam o início da área 
de programas em BASIC. Esses ende- 
reços são 25 e 26 (decimal). 

Digite o seguinte comando: 

PRINT PEEK(25)*256+PEEK(26) 



Você deve ter obtido este bloco: 



Agora, usando os códigos ASCII, 
observe como fica o quadro: 



Já podemos ver uma parte do progra- 
ma em BASIC, mas existem ainda mui- 
tos pontos de interrogação. 

Você poderia esperar que a palavra 
PRINT aparecesse antes de "INPUT", 
no diagrama. Em vez disso, temos o nú- 
mero 135. O computador usa valores 
acima de 127 para representar as pala- 
vras reservadas. O número 135 é o va- 
lor, também chamado token (do inglês: 
símbolo, indicação), para o comando 
PRINT. Com esses valores, você pode 
tornar o diagrama mais completo. 



LET eap 
? ? 
PRINT eap 



Se quiser, depois, obter a lista dos to- 
kens, use este programa: 

10 CLEAR 1000:CLS 

20 O43622:F0R K-0 TO 78 

30 WS(K/39)-WS(K/39)+CHRS(PEEK( 

C) ) 

40 OC+líIF PEEKIC-1K126 THEN 
30 

45 IF K=52 THEN 033155 
50 NEXT 

60 C-438Q2:FOR K-l TO 34 

70 FS-FS+CHRS(PEEK(C)1 

80 C-C+LiXF PEEKIC-1X128 THEN 

70 



VOCRAMAÇÀOB 



lllll 



100 PRINT:INPUT" DIGITE O SIMBO 

LO EM HEXADECIMAL" ;T3 

110 TK-VAL("Í.H*+T3) 

120 IF TK>65280 THEN TK-TK-6528 

0:GOTO 210 

130 IF TK<128 OR TK>205 THEN 25 

0 

140 K--39*(TK>166) :P-1 

150 IF K-TK-128 THEN WS-WS (K/39 

) :GOTO 180 

160 P-P+1:IF A3C(MIDS(WS{K/39) , 

P-1.UK128 THEN 160 

170 K-K+1:GOTO 150 

180 PRINT : PRINT ■ SÍMBOLO " ; TS ; 



190 

200 PRINT CHP.S(ASC(AS) AND 127) 
:GOTO 100 

210 K-0:P-1:IF TK<128 OR TK>161 

THEN 250 
220 IF K-TK-128 THEN WS-FS:GOTO 

18D 

230 P-P+1:IF ASC(MID3(F3,P-1,1) 

)<128 THEN 230 

240 K-K+l :GOTO 220 

250 PRINT" CARACTER ILEGAL ":PR- 

INT:GOTO 100 

Digitando qualquer token, o progra- 
ma fornecerá a função ou comando 
equivalente. Seus valores, em hexadeci- 
mal, vão de 80 até CD, para os coman- 
dos, e de FF80 até FF Al para as 
funções. 

No quarto, 18?, 28? e 36? bytes há 
esta sequência: 10, 20, 30, 40. Esses 
bytes são usados para armazenar a par- 
te baixa (L) do número da iinha, en- 
quanto o zero antes deles guarda a par- 
te alta (H). 

Os dois primeiros bytes de cada linha 
sào usados para indicar onde começa a 
linha seguinte. Eles podem ser, por 
exempio, 30 e 15. Multiplicando 30 por 
256 — pois se trata da parte alta — e 
adicionando 15, temos 7695, número 
correspondente ao endereço que contém 
o primeiro byte da linha 20. 

Finalmente, sabendo que o valor 0 
significa fim de linha, podemos comple- 
tar o diagrama: 
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PRINT 



fdl prxlH 
20 LET eop 
2 fdl prxlH 
30 PRINT esp 
prxlH prxlL 0 



STOP fdl 



ARMAZENAGEM DAS VARIÁVEIS 



Vimos como um programa é arma- 
zenado. Porém, sempre que se define 
uma variável no programa, ela é colo- 
cada separadamente em duas áreas es- 
peciais. Há dois endereços, 27 e 28, que 



indicam o início da área utilizada para 
guardar variáveis simples. Outros dois 
endereços, 29 e 30, apontam para o ini- 
cio da área de variáveis indexadas. 

As variáveis simples também podem 
ser acessadas por meio do comando 
VARPTR, seguido do nome da variá- 
vel. Então, VARPTR(A) fornecerá a 
localização do valor da variável A. Co- 
mo o nome dessa variável é armazena- 
do imediatamente antes de seu valor, 
usaremos VARPTR(A) - 2. 



O próximo programa imprime os seis 
primeiros bytes da área de variáveis sim- 
ples, mostrando como a variável A é ar- 
mazenada na memória. 

1 A-l 

10 V-VARPTR(A)-2 
20 FOR K-V TO U+6 
30 PRINT PEEK(K) ; 
40 NEXT : PRINT 

Você obterá os seguintes números: 

65 0 129 0 0 0 0 
A f — valor — * 

A letra A é armazenada primeiro e o 
byte seguinte deixa um espaço reserva- 
do para outra letra. Os cinco bytes res- 
tantes são o número I , na forma de pon- 
to flutuante. 



VARIÁVEIS 00 TIPO STRING 



As variáveis sthng são armazenadas 
de forma muito semelhante. Troque a 
letra A da linha 10 por AAS e substitua 
a linha 1 por: 

1 AA3"" CADEIRA" 

Desta vez, você terá: 

65 193 7 0 38 10 0 
A A 

O nome AA é colocado nos dois pri- 
meiros bytes. Adiciona-se à segunda le- 
tra o valor 128, para indicar que ela é 
uma variável string. O número 7 corres- 
ponde à quantidade de bytes usados 
(conte-os). O 38 e o 10 são, respectiva- 
mente, a parte alta e a parte baixa do 
endereço onde a palavra CADEIRA es- 
tá armazenada. 

Calculando esse endereço, temos 
38*256+ 10, que é igual a 9738. Efeti- 
vamente, esta é a localização da palavra 
CADEIRA no programa em BASIC. O 
TRS-Color, desse modo, economiza me- 
mória, evitando que a informação seja 



duplicada. Mas, assim que se alterar a 
linha ou a variável, esta será colocada 
em um outro lugar, e o endereço calcu- 
lado não será mais o mesmo. Os zeros 
que cercam os dois números mostram 
sua utilidade quando o computador apa- 
ga velhas variáveis e cria outras. 



VARIÁVEIS INDEXADAS 



O próximo programa ajudará a vas- 
culhar a área de variáveis indexadas. 



10 T-1:K-1: 

30) 



'-PEEK<29)*256+PEEK( 



20 T-PEEK(V+2)*256+PEEK(V+3) 
30 FOR K-V TO U+T-l 
40 PRINT PEEK(K) ; 
50 NEXT 

Acrescente estas linhas e depois exe- 
cute o programa. 

1 DIM A(0,2) 

2 At0.0)-10 

3 A(0,2)-20 

Você obterá os seguintes números: 
65 00 24 20301 

A 

132 32 0 0 0 0 0 0 0 0 

133 32 0 0 0 

Como sempre, os dois primeiros 
bytes dão o nome da variável, e os dois 
outros indicam o seu comprimento. O 
byte seguinte mostra o número de di- 
mensões, 2, e os dois próximos pares, 

0 número de elementos, na ordem inver- 
sa — o 03 e o 01 indicam uma matriz 

1 por 3. Depois disso, vêm os próprios 
valores, na forma de ponto flutuante. 
Observe que foi reservado um espaço 
para o elemento (0,1), embora ele não 
tenha sido definido. 

Faça uma experiência com as variá- 
veis string indexadas. 

1 DIM A$(2) 

2 AS(0)-"NOVA" 

3 AS (2) -"CULTURAL" 

Executando o programa, obterá: 
65 128 0 22 1 0 3 4 0 38 24 0 0 

000080 33 410 

O número 65 corresponde à letra A 
e o 128 indica uma variável string. Há 
dois bytes para o comprimento, um pa- 
ra a dimensão e um par destinado à 
quantidade de elementos. Em sequência, 
encontram-se três grupos de cinco bytes 
por cadeia. Cada grupo começa por um 
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número que diz quantos caracteres a va- 
riável possui — 4, no caso de NOVA. 
Seguem-se um zero para guardar uma 
casa, dois bytes para o endereço da va- 
riável e mais um zero. O mesmo se re- 
pete para todas as variáveis, inclusive as 
que não foram definidas. Os valores 38 
e 33 poderão ser diferentes se se colo- 
car o programa em uma parte diferente 
da memória. 



5EE]| 



Tanto o Apple como o TK-2000 co- 
meçam a armazenar os programas em 
BASIC a partir do endereço 2048. De- 
pois de digitar o programa inicial, exe- 
cute o seguinte comando para ver como 
ele foi colocado na memória: 



i estes números: 



1B6 34 



Vejamos se algo faz sentido, : 
mos os códigos ASCII: 



Talvez você esperasse que a palavra 
PR1NT aparecesse antes da palavra IN- 
PUT. Porém, a fim de economizar me- 
mória, o computador substitui as pala- 
vras e os caracteres reservados por có- 
digos, denominados tokens (do inglês: 
símbolo, indicação). Consulte a lista de 
tokens no manual de seu micro e com- 
plete o diagrama. 



? LET 

PHINT A 



Já podemos ver uma parte do progra- 
ma, mas ainda há muitos pontos de in- 
terrogação. Se você der uma olhada no 
quarto, 17?, 26? e 33? bytes, encontra- 



rá uma sequência de números — 10, 20, 
30, 40. Esses bytes guardam a parte bai- 
xa (L) do número de cada linha, e o byte 
seguinte guarda a parte alta (H). Os dois 
bytes anteriores contém o endereço on- 
de se inicia a próxima linha. O valor ze- 
ro serve para separar as linhas de 
programa. 

inic 120H 120L 10 0 
PHINT I N P 

D T * fdl 130H 

130L 20 0 LET A 

2 fdl 140H 140L 

30 0 PBINT A fdl 

f 1 mH fimL 40 0 STOP 



ARMAZENAGEM DAS VARIÁVEIS 



Já vimos como os programas são ar- 
mazenados. Porém, sempre que se de- 
fine uma variável, ela é guardada em 
uma parte especial da memória. O en- 
dereço da área de variáveis simples é da- 
do pelos bytes 105 (L) e 106 (H). 

Digite este programa e execute-o pa- 
ra ver como elas são armazenadas. 

1 LET A=3 

i0 V=PEEK (.105) +256*PEEK (106) 

20 FOB I = V TO V+6 

30 PHINT PEEKtl) ; 

40 NEXT I 

Teremos, então: 
65 0 130 64 0 0 0 

O número 65 é o código ASCII para 
a letra A, que corresponde ao nome da 
variável. O byte seguinte tem a mesma 
finalidade. O terceiro código refere-se 
ao expoente, e os quatro restantes, fi 
nalmente. guardam o valor da variável 
A armazenagem dos números, um tan 
to complicada, não interessa diretamen 
te aos objetivos deste artigo, e, portan- 
to, não será aqui examinada. 

Para uma variável do tipo string, fa- 
ça a seguinte substituição: 

1 LET ABS="APPLE" 

Executando o programa, você obterá: 
65 194 5 11 8 0 0 

Os dois primeiros bytes dão o nome 
da variável, mas, agora, o valor 128 é 
adicionado à segunda letra, para indi- 
car uma variável string. O terceiro byte 
guarda seu comprimento. O par de bytes 
seguintes contém o endereço a partir do 
qual ela está armazenada. Para econo- 
mizar memória, em vez de escrever no- 
vamente a palavra APPLE em outro lu- 
gar da memória, o computador guarda 
apenas a posição que ela ocupa no pro- 
grama em BASIC: as variáveis string, 



definidas por um comando INPUT, por 
exemplo, são guardadas em uma outra 
posição. 



As variáveis indexadas são armaze- 
nadas em um outro endereço, dado pe- 
los bytes 107 e 108. O computador tam- 
bém guarda ai algumas variáveis espe- 
ciais, como as usadas nos laços 
FOR.. .NEXT. Por isso, pulamos sete 
bytes para chegar à variável A. 

Execute o programa: 

1 DIM A (2) 

2 A(0| = 5:AU) =10- A(2) =15 

10 V = PEEK (1071 +256*PEEK (1 08) 
20 FOB I-V+7 TO V+2B 
30 PR TNT PEEK (T) ; * " ; 
40 NEXT I 

Você deve ler obtido a sequência 

65 0 22 0 1 0 3 131 32 O 0 0 

132 32 0 0 0 132 112 0 0 0 

Os dois primeiros bytes dão o nome 
da variável. O próximo par diz, na for- 
ma LH. quantos bytes foram necessá- 
rios para o armazenamento (conte-os). 

0 quinto deles guarda o número de di- 
mensões. A partir deste, na otdem de- 
crescente, seriam escritos os tamanhos 
de cada dimensão; como nós só temos 
uma, bastam os valores 0 e 3 (note que 
agora a parte alta veio em primeiro lu- 
gar). Finalmente, aparecem os valores, 
cada um ocupando cinco bytes, como já 
comentamos. 

Para examinar a armazenagem das 
variáveis string indexadas, substitua 28 
por 22 na linha 20 e mude as linhas: 

1 DIM BSI2) 

2 B3(1)="N0VA" 

3 BS (2) = "CULTURAL" 



66 126 16 0 1 



Os dois primeiros bytes guardamo no- 
me, como para as variáveis string co- 
muns. O par seguinte mostra o espaço 
ocupado por essa variável (novamente, 
conte os bytes). O quinto byte guarda 
o número de dimensões e os valores 0 
e 3 indicam, na forma HL, o compri- 
mento da n-ésima dimensão (no nosso 
caso, a única). A partir dai, cada string 
ocupa três bytes, sendo que o primeiro 
contém seu comprimento e os dois ou- 
tros, sua posição no programa em BA- 
SIC. Os três zeros referem-se à v 
B$(0). que nós não definim 
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UMA PLANILHA 
ELETRÔNICA(l) 



Um problema que aflige a maioria 
das pessoas é o controle de suas despe- 
sas. No artigo da página 134, apresen- 
tamos um programa bem prático para 
a organização do orçamento. Veremos, 
agora, um método desenvolvido a par- 
tir da planilha de cálculo utilizada pe- 
los profissionais em contabilidade. 

O programa para a planilha elctrôni- 
ca é extremamente versátil, tendo um 
potencial quase ilimitado para a mani- 
pulação de informações numéricas. E 
suas aplicações não se restringem à área 
financeira. Para começar, examinare- 
mos todas as suas possibilidades. Assim, 
depois de digitar o programa — que se- 
rá dado em três partes — , você estará 
apto a usá-lo eficientemente. Instruções 
detalhadas serão fornecidas junto com 
as listagens. 



0 QUE É UMA PLANILHA DE CALCULO? 



As planilhas de cálculo eletrônicas 
valem-se de uma das maiores vantagens 
do computador — sua capacidade de fa- 
zer cálculos muito rapidamente. Em es- 
sência, mesmo o maior e mais comple- 
xo dos computadores é uma máquina de 
somar. Os computadores, na verdade, 
sõ sabem lidar com números — e quem 
já se aventurou a trabalhar com código 
de máquina pode confirmar isto. 

Bem utilizada, uma planilha eletrô- 
nica torna-se uma ferramenta bastante 
poderosa. Sua aplicação mais frequen- 
te é na área financeira, mas é possível 
estendê-la a qualquer finalidade. Ela 
substitui o papel, o lápis e a calculado- 
ra, antes usados pelos contadores para 
prever os lucros de uma empresa ou por 
cientistas investigando o crescimento po- 
pulacional. No plano doméstico, pode 
ser muito útil no controle das despesas 
ou na organização dos dados relaciona- 
dos a um hobby. 

A planilha tradicional dos contado- 
res, empregada para anotar os lucros e 
despesas, é uma folha de papel dividida 
horizontalmente em linhas e vertical- 
mente em colunas. No cabeçalho, em 
geral, anotam-se os meses do ano, de 
maneira que cada coluna corresponde a 
um mês. Ao lado, colocam-se rótulos 
como receitas e despesas. Para análises 



mais detalhadas incluem-se subtítulos, 
como vendas, exportações, custos ope- 
racionais, custos de maléria-prima etc. 
Cada linha corresponde a um item es- 
pecífico de receita ou despesa. 

O título final da página é, usualmen- 
te, Lucros/ Perdas e os números das co- 
lunas mostram quanto se ganhou ou se 
perdeu a cada mês. Na 13? coluna, 
registra-se o total da receita ou despe- 
sa, no ano, por área específica. 

O preenchimento das células com os 
números é sempre uma tarefa trabalho- 
sa, quer se recorra ou não ao auxílio de 
um computador. Mas os contadores que 
usam planilhas tradicionais vêem-se 
obrigados, além disso, a fazer as con- 
tas dos totais, o que significa somar to- 
dos os valores de receita, todos os valo- 
res de despesa e, finalmente, calcular a 
diferença. 



0 COMPUTADOR ENTRA EM JOGO 



Em muitos aspectos, a planilha dc 
cálculo eletrônii:a é igual à que foi des- 
crita até o momento, dividindo-se tam- 
bém em células formadas por linhas e 
colunas. Para se obter células de tama- 
nho aceitável, apenas uma pequena par- 
te da planilha é exibida na tela, que é 
usada como uma "janela" para mostrar 
uma área particular. 

Como na planilha de papel, pode-se 
colocar qualquer tipo de dado nas célu- 
las vazias. Elas só adquirem um signifi- 
cado particular depois de definidas, po- 
dendo cunter títulos, rótulos, valores 
etc. segundo a necessidade. 

Até aqui, a planilha eletrônica é tão 
ou mais trabalhosa que a manual. Sua 
grande vantagem reside, de fato, na ma- 
nipulação dos dados. Atrás de suas cé- 
lulas em branco encontra-se uma outra 
planilha, que diz ao computador o que 
deve fazer com as informações de cada 
célula. Essa segunda planilha pode ser 
checada e corrigida sempre que for ne- 
cessário. 

Para entender melhor como o siste- 
ma funciona, voltemos um pouco ao 
nosso contador tradicional. Suponha- 
mos que ele queira mostrar na primeira 
coluna o custo de um item; na segunda, 
a porcentagem de imposto a ser paga so- 



Se você vive às voltas com uma grande 
quantidade de informações numéricas, 
peça socorro ao seu micro - ele, 
sem dúvida, se entende melhor 
com números e contas do que você. 



bre aquele valor e, na terceira, a soma 
dos valores exibidos nas duas colunas 
anteriores. O computador pode ser pro- 
gramado a fim de executar essa tarefa 
em instantes. Colocando a instrução 
adequada em cada célula da coluna dois, 
ele multiplicará o número da coluna um 
por uma taxa fixa. Uma instrução seme- 
lhante em cada uma das células da co- 
luna três fará com que ele calcule a so- 
ma das colunas um e dois. 



PROJECOES 



Outro problema do contador que tra- 
balha com uma planilha manual é lidar 
com as alterações dos dados, em geral 
frequentes. Um aumento nos custos de 
mão-de-obra, por exemplo, pode 
obrigá-lo a recalcular o total de despe- 
sas e a revisar todos os valores de Lu- 
cros/Perdas. Se ele estiver simplesmen- 
te registrando valores, o problema não 
será tão grave. Mas, se seu trabalho in- 
cluir a projeção dados dos para um ano 
ou mais, ele precisará refazer centenas 
de cálculos. 

Executada manualmente, a tarefa se- 
rá demorada, cansativa e muito vulne- 
rável a erros. Um computador poderá 
completá-la em alguns décimos de se- 
gundo: depois de termos colocado de- 
terminados valores na planilha, a mu- 
dança de qualquer um provocará o rea- 
juste automático de todos os outros a ele 
relacionados. Se, por exemplo, o valor 
correspondente ao custo da matéria- 
prima muda, o custo total do produto 
é reajustado de acordo, bem como o lu- 
cro final. 

Algumas planilhas são capazes de fa- 
zer cálculos bem mais complexos, 
prestando-se, inclusive, à solução de 
questões do tipo "E se. . .?", que apare- 
cem constantemente no mundo dos ne- 
gócios — e em muitas outras áreas. Em- 
bora empregadas principalmente para 
fins comerciais, elas têm utilidade em 
qualquer campo, sempre que se lida com 
muitas variáveis interdependentes. 

Graças à sua extraordinária versati- 
lidade, as planilhas eletrônicas são um 
dos tipos mais procurados de programa 
aplicativo. Muitas delas são compatíveis 
com outros programas, possibilitando 
composições adequadas a aplicações de 
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■ 


0 QUE E UMA PLANILHA 


■ 


RÓTULOS PARA 




DE CÁLCULO? 




AS LINHAS E COLUNAS 


■ 


ORGANIZE A INFORMAÇÃO 


■ 


COMO PREENCHER 


■ 


POR QUE USAR UMA PLANILHA 




AS CÉLULAS 


■ 


CÁLCULOS COM 0 COMPUTADOR 


■ 


0 COMEÇO DO PROGRAMA 



grande complexidade. Um editor de tex- 
tos, um sistema de gerenciamento de 
banco de dados e uma planilha eletrô- 
nica, por exemplo, constituem um po- 
deroso conjunto de programas. 



A unidade básica da planilha é a cé- 
lula. O conteúdo de cada célula pode ser 
tanto uma variável alfanumérica — co- 
mo uma palavra — quanto um número 



ou uma fórmula. Quando a planilha é 
carregada na memória do computador, 
as células têm um tamanho predetermi- 
nado. Em algumas delas, esse default 
(como é chamado em inglês) pode ser 
mudado a qualquer momento. 

O valor mostrado cm cada célula po- 
de ser um número a!i colocado pelo 
usuário ou 0 resultado de um cálculo. 
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O número de linhas e colunas varia de 
uma planilha para outra; as melhores 
possuem 65 colunas e 256 linhas, ou se- 
ja, 16640 células individuais — quanti- 
dade excessiva para um pequeno micro 
manipular! A planilha de INPUT tem 
24 colunas e de 20 a 30 linhas, depen- 
dendo do computador. 

As células são sempre identificadas 
por letras e números ao longo dos eixos 
X e Y. A maioria das planilhas usa co- 
lunas identificadas por letras: A, B, C, 
.... Z e, depois, AA, AB, ... As linhas, 
nesse caso, são numeradas de 1 em dian- 
te. Este é o método usado no nosso 
programa. 

Existem vários comandos disponíveis 
para a entrada de equações, valores, tí- 
tulos, assim como para a cópia de célu- 
las ou o exame de diferentes partes da 
planilha. Outros comandos fazem os 
cálculos e permitem que os dados sejam 
gravados ou carregados para a memó- 
ria do computador. Podem-se montar 
equações com as operações elementares, 
com porcentagens ou com os totais de 
linhas ou colunas. No micro Spectrum, 
o movimento de um cursor pela plani- 
lha faz com que a célula a ser trabalha- 
da apareça em destaque. Os demais mi- 
crocomputadores usam um sistema di- 
ferente: cada célula é especificada e tem 
seu conteúdo exibido no rodapé da tela 
antes de ser transferido para a posição 
definitiva na planilha. 



PLANEJAMENTO E DESENHO 



A primeira fase de preparação de 
uma planilha é a mais difícil, requer de- 
talhado planejamento e não envolve o 
uso do computador. Antes de mais na- 
da, é necessário estabelecer exaiamente 
o que se quer, pois isso afeta o desenho 
da planilha. Em seguida, deve-se dedi- 
car o máximo de atenção ao planeja- 
mento, para se obter uma planilha que 
mostre as informações de maneira cla- 
ra e concisa. Como muitas coisas em 
computação, esse instrumento será tão 
bom quanto for seu planejamento. Se 
você não tiver cuidado nessa fase, pro- 
vavelmente obterá uma planilha confu- 
sa, difícil de ler e até com erros nas fór- 
mulas dos cálculos. 

Um exemplo prático: suponhamos 
que você queira desenhar uma planilha 
para controlar as finanças domésticas 
durante o ano. É evidente que os doze 
meses deverão encabeçar as colunas. 
Mas decidir o título de cada linha será 
um pouco mais difícil. 

Primeiro: qual o nível de detalhe pre- 
tendido?' Aluguel, transporte, assistên- 
cia médica, alimentação são títulos ób- 



vios quando se fala de orçamento do- 
méstico. Mas você quer discriminar os 
gastos com combustível, criando uma 
categoria independente? Ou prefere reu- 
nir todos os gastos relacionados a trans- 
porte — além de combustível, manuten- 
ção do carro, taxas etc. — em uma ca- 
tegoria única? Tudo depende de seus in- 
teresses e necessidades. 

Uma planilha pode ser' particular- 
mente útil para manter o valor de seus 
bens aiualizado, fornecendo, ainda, in- 
formações como as porcentagens de va- 
lorização de sua casa ou da depreciação 
do seu carro. 

Calcular a valorização anual de sua 
casa parece muito simples, inicialmen- 
te. Um ano depois de comprá-la, seu va 
lor será o preço de compra multiplica 
da pela porcentagem de valorização — 
P*X%, onde X corresponde à porcen 
tagem mais 100. Por exemplo, X seria 
100 + 5% para uma valorização anual d' 
5°Ia. A fórmula para calcular o valor ac 
fim do segundo ano seria P*\Wo*\°/b . 
Ano a ano, a fórmula fica maior e mais 
difícil de ser calculada. 

Com uma planilha, o trabalho fica 
bem mais fácil, e não é preciso ser um 
matemático, conhecedor de dúzias de 
fórmulas e equações, para usar todo seu 
potencial. Num caso como o da valori- 
zação da casa, pode-se usar o endereço 
de uma célula para se referir ao conteú- 
do dela. Assim, a fórmula nunca fica 
mais complicada que P*X%, onde P é 
o conteúdo da célula anterior. A fórmu- 



la a ser escrita na planilha teria esta con- 
figuração: B10%105%. 

Se a fórmula foi posta na célula CIO, 
o resultado é mostrado nesse local. 
Colocando-se a fórmula C10M05°?o em 
D10, por exemplo, o computador toma 
o valor colocado em CIO e o multiplica 
por 105%. 

A apresentação da fórmula varia de 
uma planilha para outra e os programas 
deste artigo usam um método bem di- 
ferente dos habituais. Os detalhes serão 
explicados nas instruções sobre uso do 
programa, dadas mais tarde. 

A utilização do endereço da célula em 
vez de seu conteúdo simplifica o traba- 
lho com a planilha, permitindo que 
qualquer um, com um pouco de bom 
senso e paciência, realize tarefas bastan- 
te complicadas. No entanto, precisamos 
ter cuidado ao fazer referência a uma cé- 
lula em outra. Não devemos, por exem- 
plo, usar a célula BIO em uma fórmula 
CIO, se o resultado de BIO depende do 
valor assumido por CIO. O micro não 
pode calcular o valor de uma sem ter re- 
solvido a outra! Se a planilha não de- 
tectar esse problema, o programa apre- 
sentará erro quando o computador ten- 
tar resolver o paradoxo. 



E se as taxas de juros subirem IS^Ii 
no mês de junho? E se comprarmos um 
carro maior? E se instalarmos um aque- 
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cedor central? Utilizando sua planilha, 
você poderá obter resposta para todas 
essas perguntas. 

Observe que a última delas aponta 
para outra área, que não a financeira, 
na qual as planilhas são úteis. A dife- 
rcnça entre sistemas de aquecimento 
central com lipos de combustível diver- 
sos pode ser visualizada num relance. 
Estimar a perda de calor que se evita 
com o uso de dupla isolação permite 
também prever quanto vamos economi- 
zar e quanto tempo levaremos para re- 
cuperar o investimento. 



Embora, geralmenie, mesmo as pla- 
nilhas mais simples sejam usadas para 
aplicações sérias e complicadas, elas se 
prestam muito bem para o lazer. Vários 
modelos diferentes dos financeiros po- 



dem ser construídos. Só para diverti- 
mento, crie uma referência circular com 
as células que não tém fim. 

Existem enormes variações de t 
planilha para outra. Como regra geral, 
quanto mais poderosa, mais cara é a pla- 
nilha e maior o micro necessário para 
sua utilização. Uma planilha simples 
tem uma meia dúzia de comandos e mais 
ou menos o mesmo número de funções. 
Compare isso aos vinte comandos e qua- 
renta funções das grandes planilhas. As 
mais sofisticadas permitem, inclusive, a 
introdução de declarações com funções 
similares a comandos em BASIC — por 
exemplo, IF...THEN, AND, OR e 




NOT. Em outras palavras, é possível 
programar as planilhas. 



O programa da planilha cletrõnica é 
bastante longo e, por isso, está dividi- 
do em três partes. Digite as linhas que 
se seguem e grave-as para depois adicio- 
nar as restantes. 

O programa não funciona neste ní- 
vel. As instruções de como usá-lo serão 
dadas nas próximas duas panes. 



5 BOBDEB 0: PAPER 0: INK 7: 

CLS 

10 Dl li bS(ll)- DIM aS!8): DIM 

dS<30,24.18) : DTMv(4): DIM 
»í{5, 4) 

20 GOSUB 1730: POKE 23658, B: 
LET t$="VAL": LET oa-0: LET 
Hflag = 0: LET wjt*l : LET vy = J ! 
LET cx-1 : LET cyl 
30 CLS : PB TNT " 

' : POR x-4 TO 
32 STEP 9: FOR y-2 TO 21 STEP 
PRINT AT y,x 



NEXT ; 



FOR y=] TO 71 STEP 2: 
NEXT y 



PR TNT AT y,0;' 
40 FOR x=0 TO 2: PRINT AT 0.9 
*X+0;CHR$ {wx+x+64) : NEXT X 
50 FOR x-C 1 TO 9- PRINT AT {x+ 
i)*2,li(" " AND wy+x<10) :vy+x 
! NEXT x 

60 PRINT AT 0,0;tS;" " - FOR y 
-0 TO 9: FOR x-0 TO 2: GOSUB 
1230: NEXT x: NEXT y: PRINT 
* l ; AT 0,0;" 

70 PRINT AT cy«2, ( (crx-1 ) "9) +5 
i BRtGHT 1; FLASH B; PAPER 8; 
INK B ; OVEH 1 ; " " 
BO TF TNKEYS-" ' " AND wy>l 
THEN I.F.T wy-wy-10: COTO 40 
90 TF TNKEYS = "K." AND wy<20 
THEN I.ET wy = wy + l(): GOTO 40 
100 TF INKEM-T AND ux<21 
THEN LET ux=wx+3 • GOTO 40 
110 TF TNKEY3-"*" AND wx>l 
THEN LET wx=wx-l: GOTO 40 
120 PRINT AT cy*2, (<cx-l>*9)+5 
; FLASH 8: BRtGHT Oi INK 8; 
PAPER 8 ; OVER I|* " 
130 LET (-.y = c-.y+(INKEYS = "6" AND 
cy<10) - 1INKEYS-" 7" AND cy>l) : 
LET cx=cx+(lNKEY3="B" AND cx<3 
) - ( TNKEYS'" 5" AND cx>l> 
140 IF INKEYS-"»" OR INKEYS="I 
GOSUB 1250 
lNKEYS="v" OR INKEYS--V 

="UAL" ! GOTO 60 
tNKEYS= "e" OR INKEY$"*E 
THEN LET tS="lGUAL": GOTO 6 



OR INKEYS-"Z 



" THEN 
L50 IF 
" THEN 
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" THEN PHINT AT 0,0; FLASH If 
■COPIA": GOSUB 230: GOTO 60 
190 IF INKEYS-"P" OR INKEY3-"p 
- THEN COPY 

200 IF INKEY$-"NOT " THEN 

GOSUB 1780: GOTO 30 

210 IF INKEY3="-" THEN GOSUB 

1840: GOTO 30 

220 GOTO 70 

230 PBINT |];AT 0,0;"CELULA A 
COPIAR 7": LET d-1: LET c=3: 
LET R«15: GOSUB 560: GOSUB 670 
: IF I THEN SOUNI) .2,30: GOTO 
230 

240 PRINT *1;AT 0,0:"ABS ou RE 
L (A ou H) ?" : LET x=22: LET d- 
2: LET c«l: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2,30: 
GOTO 24 0 

250 PBINT »1;AT 0,0;"COL ou LI 
NHA (C ou L)?-: LET x-22: LET 
d = 3: LET c=l: GOSUB 5B0 : GOSUB 

670: IF f THEN SOUND .2.30: 
GOTO 250 

260 PRINT ll;AT 0,0:"DA CÉLULA 
No. ?": LET x=16: LET (1-4: LET 
c-3: GOSUB 580: GOSUB 670: IF 
f THEN SOUND .2.30: GOTO 260 
270 PRINT |1;AT 0,0;"PARA A CE 
LULA No. ?": LET x=14: LET d-5 



: LET c-3: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2.30: 
GOTO 270 

280 GOSUB 770: IF NOT f THEN 
GOTO 320 

290 PBINT |1;AT 0 , 0 ; "COMANDO E 
BRADO - PRESSIONE A PARA AB 
ORTAR OU QUALQUER OUTRA TECLA 

PARA RE-ENTRAB" 
300 PAUSE 10: PAUSE 0: PRINT I 
li AT 0,0; " 

" : IF INKEYS="a" 
OR INKEYS="A" THEN RETURN 
310 GOTO 230 

320 LET a=(CODE zSU.2))-64: 
LET b=VAL 7.3(1.3 TO (VAL zS(l, 
11+1)): LET sS=(dSIb.a,*) TO 16 
| AND tS-"IGUAL")+(dS(b.a, TO 
8) AND tS-"VAL"): LET c$=dS(b. 
a. 17): LET 7=C0DE dS(b,a.l8) 
330 IF zS(2.2>="R" THEN GOTO 
390 

340 FOR a=fc TO tc: FOR b=fr 
TO tr 

350 IF tS="IGUAL" THEN LET áS 
(b,a,9 TO 16)-aS: LET dSíb.a, 
17)-c3 

360 IF T.S-"UAL" THEN LET dS (b 
,a, TO 8)=hS 



370 NEXT b: NEXT a 
380 BETUHN 

390 LET aS=d$(b,a,9 TO 16): 
GOSUB 890: l.ET a- (CODE zS(4,2) 
-64)-iCODE z$(1.2)-64): LET b= 
VAL 7.3(4,3 TO (VAL 7.5(4, lí+U) 

-VAL zS(l,3 TO (VAL z$<l.l)+l) 

) 

400 LET v(2)=v{2)+b-1 : LET v(4 

)=v<4)-((b-l) AND v 1 3) <>26) 
410 LET v(3) =v(3)+{ (a-1) AND v 

(3)<>26): LET v { 1 ) =v ( 1 ) + a- 1 
412 IF 7.3(3, 2) = "C" THEN LET v 

(D-WÍD+l: LET v ( 3) =v { 3} + (v{3 

K>26) 

414 IF z$(3,2)="R" THEN LET v 
(2)-v(2)+l : LET v (4) =v (4) + (v (4 
)<>26) 



10 PMODE 0,1:PCLEAR 1 : CLEAB 100 
00:CLS:PRINT 6230 . "PLANILHA ELE 
TRONICA" 

20 CS-1:RS-1:CR-1:CC-1:MO$(0)-" 
VALOR {CALC)":«OS(l)-"EQUACAO 
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■ :M0-1 :OPS-"+-*/tSS-' 
30 DIM DS(26.30> .D(26,30) 
40 FOÍl 1-1 TO 26:F0R J-l TO 30: 
DS(I.J)-CHRS(12B) : NEXT J,I 
50 CX-4:RX-1 
60 GOSUB 70:GOTO 170 
70 PRINT «448. "ESPERE" :PRINT êO 
. STRINGS {3 , 128) ; : FOR I-CS TO CS 
+3:PRINT CHRSU23) ;CHRS(128> ;CH 
RSU28) ;CHRS(96+I) i CHRS (128) ;CH 
RS (12B) ; CHRS (125) ; :NEXT : PRINT C 
HRS (128) ; 

80 PRINT €480 . "MODO j *:MOS(MO); 
90 FOR 1-0 TO 11:C1-INT((RS+I)/ 
10)*48:C2-(RS+I)'((Cl-48)*10)+4 
8:POKE 1024+32"I+32,C1:POKE 102 
4+32*1+33. C2:PRINT «32*1+34."': 
NEXT 

100 PRINT «416: IF MO-O THEN GOS 
UB 740:GOTO 130 

110 FOR J-RS TO RS+ll:FOR I-CS 
TO CS+3 

120 PRINT «(J-RS)*32+35+(I-CS)* 
?,**;:GOSUB 660: NEXT I,J 
130 PRINT #480. "MODO: ";MOS(MO) 
;TAB (20) ; "CÉLULA: " ; CHRS (64+CC) 



;MIDS(STR$(CR) . 2) ; " "; 

140 PRINT «448 . "PRONTO" 

150 PRINT «458,MIDS<DS(CC.CR) .2 

) 

160 HETURN 

170 PS-(CR-RS+l)*32+(CC-CS)*7+3 
+1024:Z-PEEK(PS) : POKE PS, 191 AN 

D Z 

180 IS=INKEYS:IF IS-"" THEN 180 
190 POKE PS,Z 

200 IF IS-CHRS(B) AND CC>1 THEN 
COCC-l;IP CC<CS THEN CS-CS-1: 
GOSUB 70 

210 IF IS-CHR3(9) AND CC<26 THE 
N CC=CC+1:IF COCS+3 THEN CS-CS 
+1: GOSUB 70 

220 IF IS-CHRSUO) AND CH<30 TH 
EN CR-CR+1:IF CR>RS+U THEN RS- 
RS+l:GOSUB 70 

230 IF I$-CHRS(94) AND CR>1 THE 
N CR=CR-1:IF CR<RS THEN RS-RS-1 
: GOSUB 70 

240 IF IS-"G" THEN GOSUB 330 
250 IF IS"*Q" THEN CLS:INPUT"CO 
NF IRMA QUERER SAIR (S/N) ?":AS: 
IF ASO"S" THEN GOSUB 70 ELSE C 




LS : END 

260 IF IS-"I" GOSUB 410 

270 IF IS-"U" THEN M0-0:COSUB 7 



300 IF IS-*S" GOSUB 1230 

310 IF IS-"L" GOSUB 1350 

320 GOSUB 130:GOTO 170 

330 PRINT ê44B:PRINT «448. "PARA 

A CÉLULA ->"[:LINE INPUT A$ 
340 IF A$-" THEN RETURN 
350 Cl-ASC(AS) -64 : IF CK1 OR Cl 
>26 THEN 330 

360 C2-UAL(MIDS(AS,2)) : IF C2<1 

OR C2>30 THEN 330 

370 CC-C1:CS-C1:CR-C2:RS-C2 

3B0 IF CS>23 THEN CS-23 

390 IF RS>19 THEN RS-19 

400 GOSUB 70: RETURN 

410 PRINT «448. "NOVO CONTEÚDO : 

" ; : LINE INPUT AS 

420 IF AS-"" THEN AS-CHRS ( 1 28) : 
GOTO 610 

430 IF LEN(AS)>9 THEN PRINT «44 
B, "ENTRADA INVALIDA" : SOUND 1,4: 
GOTO 410 

440 IF VAL(AS)<>0 THEN 560 
450 BS-LEFTS(AS.l) :IF BS<"A" OR 

BS>"Z" THEN 600 
460 CS-MIDS(AS.2.2) 
470 IF VAL (CS Kl OR VAL(CS)>30 
THEN 600 

480 IF VAHCSK10 THEN AS-BS+ST 
RS (VAL (CS) ) +MIDS (AS ,3) 
490 D3-MIDS IAS .4 . 1) : IF DS<"A" O 
R DS>"2" THEN 600 
500 ES-MIDS (AS . 5) 
510 IF VAL(ESK1 OR VAL(ES)>30 
THEN 600 

520 IF VAL(ESK10 THEN AS-LEFTS 
(AS.4)+STRS(VAL(E$) l+MIDS (AS. 6) 
530 OS-MIDS (AS . 7 . 1 ) : IF INSTRU. 
OPS.OS)=0 OR OS-"" THEN 600 
540 DP-VAL (RIGHTS (AS. D 1 : IF DP< 
0 OR DP>7 THEN 600 
550 PRINT «448. "ENTRADA E UMA e 
quacao":AS=CHRS(131)+AS:G0T0 61 

560 PRINT «448. "ENTRADA E UM va 
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580 IF LEN(ASK7 THEN AS-" "+AS 

:COTO 580 

590 AS-CHRS(129)+AS:GOTO 610 
600 PRINT 0448 . "ENTRADA E UMA 1 
egenda* : AS-CHRS ( 1 30 ) +AS 
610 DS(CC,CR)-AS:I-CC:J-CR:PRIN 
T #(J-RS)*32 + 35+(I-CS)*7," ; :GO 
SUB 660 : SOUND 190,2:FOR D-l TO 
500 : NEXT 

620 IF COCX THEN CX = CC 

630 IF CR>RX THEN RX-CR 

640 IF MO-0 THEN M0»1;G0SUB 70 

650 RETURN 



10 KEYOFF:CLEAR10000:COLOR15,4, 
4 :SCREEN0:CLS: LOCATE 9,11:PRINT 
"PLANILBA ELETRONICA* 
20 CS-1:RS-1:CR«1:CC-1:M0S(0)«" 
VALOR (CALO " :M0S(1) -"EQUAÇÃO 

■ :MO-l :OPS-" + -"/*Sl" 
30 DIM D$I26.30) ,D(26.30) 
40 FOR I«l TO 26:F0R J=l TO 30: 
DS(I,J)-CHRS(128) :NEXTJ,I 
50 CX=4:RX«1 
60 GOSUB 70:GOTO 170 
70 CLS:LOCATE 0 . 20 : PRINT"AGUARD 
E . . . " : LOCATE0 , 0 : PR1NTSTRINGS ( 3 . 
219) ; ' FOR I = CS TO CS+4 : PRINTCHR 
SÍ91) ;SPC(2) ;CHR3(64+I) :SPC{2) ; 
CHR$ (93) : :NEXT:PRINTCHRS<219) ; 
80 LOCATE 0 , 21 : PRINT"MOD0: " ; MO 
S(MO) 

90 FOR 1=0 TO 15:C1=INT((RS+I)/ 
10)+48:C2= (RS+I)-( (Cl-48) *10)+4 
8:L0CATE 0,1+1: PRINTCHRS (Cl) ; CH 
RS(C2) : NEXT 

100 LOCATE 19.0:IF MO=0 THEN GO 
SUB 740:GOTO 130 
1)0 FOR J-RS TO RS+15:F0R I -CS 
TO C3+4 

120 LOCATE (T-CS)*7+3, J-RS+1:G0 
SUB 660:NEXT I,J 

130 LOCATE 0,21:PRINT"MODO: " :M 
OS (MO) ;TAB(20) "CEL : " ;CHRS(64+C 
C) iMIDS(STRS(CR) ,2) ;" "l 
140 LOCATE 0,20:PRINT"PRONTO! 

" ;TAB(15)MIDS!DS(CC,CR) , 2) ; SPC 
19) 

160 RETURN 

170 PS= (CR-RS+1 } «40+ (CC-CS) «7+4 
:Z-UPEEK(PS) :VPOKE PS, 219 
180 IS=INKEYS:IF IS'"" THEN 180 
190 VPOKE PS.Z 

200 IF IS-CHRSI29) AND CC>1 THE 
N CC=CC-1:I-F CC<CS THEN CS = CS-1 
: GOSUB 70 

210 IF IS=CHRS(28) AND CC<26 TH 
EN CC-CC + 1:IF COCS+4 THEN CS-C 
S+1-GOSUB 70 

220 IF IS-CHRS(31) AND CR<30 TH 
EN CR-CR+1:IF CR>RS+15 THEN RS- 
RS+l:GOSUB 70 

230 IF IS=CHRS(30) AND CR» THE 
N CR-CR-1:IF CR<RS THEN RS-RS-1 
: GOSUB 70 

240 IF IS="G" THEN GOSUB 330 
250 IF IS="Q" THEN CL3:INPUT"TE 
RMINO O PROGRAMA? (S/N) ";A$:IF 

ASO"S" THEN GOSUB 70 ELSECLS : 

END 



300 IF IS-"S" THEN GOSUB 1230 
310 IF IS="L" THEN GOSUB 1350 
320 GOSUB 130-GOTO 170 
330 LOCATE 0,20: PRINTSPC (38) : LO 
CATE 0 , 20 : PRINT"PARA CEL >" i : IN 
PUT AS 

340 IF AS-"" THEN RETURN 

350 C1-ASC(A3)-64:IF Cl< 1 OR Cl 

>26 THEN 330 

360 C2-UAL(MID3(A3.2)) :IF C2<1 

OR C2>26 THEN 330 

370 CC-C1 : CS-C1 :CR-C2 : RS-C2 



380 IF CS>23 THEN CS-23 

390 IF RS>19 THEN RS-19 

400 GOSUB 70 : RETURN 

410 LOCATE 0,20:PRINT"NOVO CONT 

EODO: " ; SPC ( 22 ) ; : LOCATE 15 : LINE 

INPUT AS 

420 IF A$=" THEN AS = CHRS ( 1 2B) : 
GOTO 610 

430 IF LEN(A3)>9 THEN LOCATE 0, 
20 : PRINT"ENTRADA INVALIDA 

":FOR 1-1 TO 500:NEXT:GOTO 410 
440 IF VAUASJOO THEN 560 
450 BS-LEFTS(AS.l) 'IF BS<"A" OR 

B3>"2" THEN 600 
460 CS-MIDSIAS.2.2) 
470 IF VAL ( C3 X 1 OR VAL(CS)>30 
THEN 600 

480 IF VAL(CS)<10 THEN AS-BS+ST 

RS (VAL (CS) ) +MIDS (AS . 3) 

490 DS-MIDS(A3.4.1) :IF D3<"A" 0 

R DS>"Z" THEN 600 

500 ES-MIDS(A3.5) 

510 IF VALIE3X1 OR VAL(ES)>30 

THEN 600 

520 IF VAL(ES)<10 THEN AS=LEFTS 
(AS . 4) +STR5 (VAL (ES) ) +MID3 (AS ,6) 
530 OS-MID3(AS.7,l) :IF 1NSTR(1. 
OPS,OS)-0 OR 03 = "" THEN 600 
540 DP-VAL{RIGHTS(AS,D) :IF DP< 
0 OR DP>7 THEN 600 
550 LOCATE 0.20:PRINT"A entrada 
EQUAÇÃO" zAS-CHRS (13D+AS 
:GOTO 610 

560 LOCATE 0.20:PRINT"A entrada 
é um VALOR" 




24 APLICAÇÕES 24 



570 IF RIGHTSÍAS.l)-" " THEN AS 
-LEFTS(AS.LEN(AS>-1> :GOTO 570 
580 IF LEN(AS)<7 THEN A3-" "+A3 

:GOTO 580 

590 AS-CHRS (129) +A3 : GOTO 610 
600 LOCATE 0,20: PRINT"A entrada 

6 um RóTULO":AS-CHRS<130)+AS 
610 DS(CC,CR)«AS:I-CC: J=CR:LOCA 
TE (I-C3)»7+3, (J-RS)+1: GOSUB 66 
0 

620 IF COCX THEN CX-CC 

630 IF CR>RX THEN RX-CR 

640 IF MO-0 THEN MO-1 : GOSUB 70 

650 RETURN 



ss jb » 



l fliif ir mo 



10 TEXT ! HOME : CLEAR : VTAB 
12: HTAB 10: PBINT "PLANILHA EL 
ETRONICA" 

20 CS - 1:RS - 1:CB - 1:CC - 1: 

CA - 1:RA - 1:HO$(0) - "VALOR tC 

ALC)-rMOS(l) - "EQUAÇÃO ":M 

O - l:OPS - "+-*/t$L-:D3 - CHR 

S (13) + CHRS (4i 

25 ÚNERR GOTO 2500 

30 DIU DS 126. 30) .D126.30) 

40 FOB I - I TO 26: FOR J - 1 

TO 30:DSH,J) - CHRS (128): NE 

XT : NEXT 

50 CX - 4:RX - l: FOR I = 1 TO 
10:LLS - LLS + CHR$ (255): NEX 
T 

60 GOSUB 70: GOTO 170 
70 HOME ! VTAB 21 ; PRTNT "AGUA 
RDE . .." : VTAB L ! PRINT LEFTS 1 
LLS. 3);: FOR r = CS TO CS + 4: 
PRINT CHRS (91); SPC ( 2); CHRS 
(64 + Di SPC( 2)[ CHRS (93);: 
NEXT ! PR JNT LEFTS (LLS. 2) 
80 VTAB 22: PH T NT "MODO: " ;M0S 
(MO) ; 

90 INVERSE : HTAB I : FOR 1 - 0 
TO 15:C1 = INT ( (RS + I ) / LO 
) + 48:C2 - (RS + 1) - ( (CJ - 4 
8) * 10) + 48: VTAB 1+2: PRIN 
T CHBS (Cl); CHRS (C2): NEXT : 
NORMAL 

100 VTAB 19: IF MO-0 THEN G 

OSUB 740: GOTO 130 

110 FOR .1 - RS TO RS + IS: FOR 

I - CS TO CS + 4 
120 VTAB J - BS + 2: HTAB (T - 

CS) • 7 + 4: GOSUB 660: NEXT : 

NEXT 

130 VTAB 22: HTAB 1: PRTNT "MO 

DO: "íMOStHO); TABÍ 20);"CEL: " 

; CHBS (64 + CC) ;CB;" " 

140 VTAB 21: HTAB 1: CALL - 8 

68: PRINT "PRONTO!"; TAB ( 15) ;D 

S(CC.CR) 

160 RETURN 

170 V - CR - RS + 2:H - (CC - C 
S) • 7 + 4: VA - RA - RS + 2:HA 
- (CA - CS) * 7 + 4 
180 VTAB VA: HTAB HA : I - CA:J 
■ BA:. GOSUB 660 

182 VTAB V: HTAB H: INVERSE :I 
- CC:J - CR: GOSUB 660 

183 PRINT : NORMAL 
185 CA - CC : RA - CR 
190 GET IS 



200 IF 13 - CHRS (8) AND CC > 
1 THEN CC - CC - 1: IF CC < CS 
THEN CS - CS - 1: GOSUB 70 

210 IF 13 - CHR3 (21) AND CC 

< 26 THEN CC - CC + 1: IF CC > 
CS + 4 THEN CS ■ CS + 1 : GOSUB 
70 

220 IF IS - CHRS (90) AND CR 

< 30 THEN CR - CR + 1: IF CR > 
BS + 15 THEN RS - RS + 1: GOSUB 

70 

230 IF 13 - CHRS (65) AND CR 
; 1 THEN CR - CR - 1 : IF CR < R 
S THEN RS - RS - 1 : GOSUB 70 
240 IF 13 - "G" THEN GOSUB 33 
D 

250 IF 1$ - "Q" THEN GOSUB 30 
00 

260 IF IS " "I" THEN GOSUB 41 

0 

270 IF IS - "V" THEN MO-0: G 
OSUB 7 0 

280 IF IS - "C" THEN GOSUB 14 
90 

290 IF IS - "E" THEN MO - 1: G 
OSUB 70 

300 IF IS ■ "S" THEN GOSUB 12 
30 

310 IF IS - "L" THEN GOTO 135 
0 

320 GOSUB 130: GOTO 170 

330 VTAB 21: HTAB 1: CALL - 9 

58: PRINT "PARA CEL >" ; : INPUT 

AS 

340 IF AS - "" THEN RETURN 
350 Cl - ASC (AS) - 64: IF Cl 

< 1 OR Cl > 26 THEN 330 

360 C2 - VAL ( MIDS (AS. 2)): I 

F C2 < 1 OR C2 > 30 THEN 330 

370 CC - C1:CS - C1:CA - Cl: CR 

» C2:RS - C2:RA - CR 

380 IF C9 > 23 THEN CS - 23 

390 IF RS > 19 THEN RS - 19 

400 GOSUB 70: RETURN 

410 VTAB 21: HTAB 1: CALL - 9 

SB: PRINT "NOVO CONTEÚDO: ";: I 

NPUT A3 

420 IF AS ■ THEN AS - CHRS 

(128) : GOTO 610 
430 IF LEN (AS) > 9 THEN VTA 



( nmci as planilhas 
tradicionais dos 
contadores, nossa 
planilha de cálculo 

Ota dividida cm 
células formadas 
por colunas, que 

meses do anu. e 
linhas, equivalentes 
a rótulos diversos, 
como, por exemplo, 
receitas e despesas. 
Sua grande vantagem 
reside na forma de 
manipulação dos 
dados, que podem 
ser calculados, 
checados e alterados 
com rapidez. 



B 20: PRINT "PALAVRA MUITO GRAN 

DE!"; CHRS (7): FOR X - 1 TO 30 

0 : NEXT : GOTO 410 

440 IF VAL (AS) < > 0 THEN 5 

60 

450 BS - LEFTS (A3.1): IF BS < 

"A" OR BS > "Z" THEN 600 
460 CS - MIDS (AS. 2. 2) 
470 IF VAL (CS) < 1 OR VAL ( 
CS) > 30 THEN 600 
480 IF VAL (CS) < 10' THEN AS 

- BS + " " + MIDS (AS, 2) 

490 DDS - MIDS (AS. 4,1): IF DD 

3 < "A" OR DDS > "Z" THEN 600 

SOO ES - MIDS (A3.5) 

510 IF VAL (ES) < 1 OR VAL ( 

ES) > 30 THEN 600 

520 IF VAL (ES) < 10 THEN AS 

- LEFTS (AS. 4) + " " + M(D3 ( 
AS. 5) 

530 OS - MIDS (AS. 7,1): FOR D 

- 1 TO LEN (OPS) : IF OS < > 
MIDS (OPS.D.l) THEN NEXT : GOT 
0 600 

540 DP - VAL ( RIGHT5 (AS.D): 

IF DP < 0 OR DP > 7 THEN 600 
550 VTAB 21: HTAB 1: CALI, - 9 
58: PRINT "A entrada e uma EOUA 
CAO":AS • CHRS (131) + AS: GOT 
0 610 

560 VTAB 21: HTAB 1: CALL - 9 
58: PRINT "A entrada e um VALOR 

570 IF RIGHTS (AS.l) - " " TH 
EN A3 - LEFTS (AS. LEN (AS) - 
1) : GOTO 570 

580 IF LEN (AS) < 7 THEN AS = 

" " + AS: GOTO 5B0 
590 AS - CHRS (129) * AS: GOTO 

610 

600 VTAB 21: HTAB 1: CALL - 9 
5H: PRINT "A entrada e um ROTUL 
O" : AS - CHRS (130) ■+ AS 
610 DS(CC.CR) - AS: FOR D ■ 1 T 
O 500: NEXT 

620 IF CC > CX THEN CX - CC 
630 IF CR > RX THEN RX - CR 
640 IF MO - 0 THEN MO » 1 : GOS 
UB 70 

650 RETURN 



Illllllll 



DIMÁQUINA 41 
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AS PEDRAS ROLA 



Mais e mais problemas se abatem sobre 
Willie. Além das serpentes 
assassinas, dos buracos e da alta da 
maré, pedras gigantescas rolam 
morro abaixo, ameaçando soterré-lo. 



Nosso personagem está em grandes 
dificuldades: enquanto os cabritos mon- 
teses devoram seu lanche, ele tenta es- 
calar o penhasco, para não morrer afo- 
gado nas águas do mar. Por todo o ca- 
minho, buracos e cobras ameaçam sua 
vida. E, para completar, faremos com 
que ele se veja diante de uma avalanche 
de gigantescas pedras! 

Teremos bastante trabalho na criação 
deste novo problema. Precisaremos co- 
locar uma pedra no topo da encosta, 
empurrá-la morro abaixo, animá-la pa- 
ra que pareça estar rolando, verificar se 
ela atingiu Wiliie e, finalmente, apagá- 
la, quando chegar ao mar. Como esse 
processo é um tanto complexo, vamos 
apresentá-lo em duas partes. 



A primeira parte da rotina movimen- 
ta a pedra e dá início à sua descida en- 
costa abaixo. A segunda verifica se Wil- 
lie foi atingido e coloca a pedra no to- 
po da encosta. Apresentamos aqui ape- 
nas a primeira parte. Digite-a, mas não 
a execute ainda. Incompleta, a rotina 
não funcionará. 



10 



org 58993 
bar ld a, (! 
cp 0 

jr z.bln 

cp 3 



ld hí , (57356) 
ld bc, 57120 



ld a, 45 
ld bc, 15616 
call 58217 
ld hl , (57356) 
ld de, 480 
sbe hl.de 

íd hl , (57356J 
ld de. 22560 
add hl .de 
ld a, (hl) 
cp 15 
jr z.bri 



300 REM jr nz.boh 

310 REM ld hl , (57356) 

320 REM ld bc. 15616 

330 REM ld a, 45 

340 El EM call 58217 

350 REM ld de, 32 

360 REM add hl .de 

37(3 REM ld (57356) .hl 

380 REM ld bc. 57120 

390 REM ld a, 42 

400 REM call 58217 

410 REM bok ld hl . (57356) 

420 REM dec hl 

430 REM ld (57356) ,hl 

440 REM ld a , 1 



450 REM ld (57358) ,a 

460 REM ret 

470 REM org 59137 

480 REM bn * 

490 REM org 59097 

500 REM bina * 

Antes de mais nada, a rotina de mo- 
vimentação da pedra verifica se a ava- 
lanche pode ocorrer no nível atual do jo- 
go. Como você deve se lembrar, Willie 
tenta não ser alcançado por pedras, sal- 
tando sobre elas, no nível um e no nível 
quatro. A variável correspondente ao ní- 
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VERIFICAÇÃO 




DUAS ESTRUTURAS 




DO nIvel DO JOGO 


■ 


ROLANDO PELA ENCOSTA 


■ 


ROTINA DE MOVIMENTAÇÃO 


■ 


A PEDRA CHEGA AO MAR 




DA PEDRA 


■ 


DE VOLTA AO TOPO 


■ 


ANIMAÇÃO COM 


■ 


WILLIE FOI ATINGIDO? 



vel atual do jogo é armazenada na po- 
sição 57344 da memória; o valor O indi- 
ca o nível um; o valor 3 aponta o nível 
quatro. 

Assim, o conteúdo do endereço 
57344 é carregado no acumulador e 
comparado inicialmente com o valor 0, 
e, depois, com 3. Se qualquer um des- 
ses valores estiver presente, a instrução 
Jr z.blm faz com que o processador sal- 
te para a rotina de movimentação da 
pedra. Caso contrário, o processador 
encontra a instrução rei e retorna para 
a rotina principal do jogo. 




Para que possamos animar a pedra, 
existem na memória dois conjuntos de 
dados para dois diferentes desenhos da 
pedra. Quando são impressos alternada- 
mente na tela, eles dão a impressão de 
que a pedra está rolando. 

O processador precisa saber qual foi 
o último desenho impresso na tela, pa- 
ra poder selecionar adequadamente o 
próximo. Obtém essa informação no en- 
dereço 57358, onde há uma variável cu- 
jo conteúdo é 0 ou 1. Esse valor é car- 
regado no acumulador e, se for igua! a 
1, o processador salta para a rotina 
bma, que será dada mais tarde. Caso o 
conteúdo do endereço 57358 seja igual 
a 0, o processador prossegue com a ro- 
tina aqui apresentada. 

Como você poderá perceber, a variá- 
vel no endereço 57358 oscilará — se seu 
conteúdo for I, será trocado para 0 e 
vice-versa. Assim, quando o processa- 
dor voltar a utilizar a rotina de movi- 
mentação da pedra, ele irá executar a 
parte do programa que deixou de lado 
na vez anterior, imprimindo o outro de- 
senho da pedra. 

Naturalmente, o primeiro valor do 
conteúdo de 57358 é definido pela roti- 
na de inicialização incumbida de ajus- 
tar o andamento do jogo. 



Os endereços 57356 e 57357 guardam 
a posição da pedra, cujo valor é carre- 
gado no par HL. O par BC é carregado 
com 57120, que corresponde ao inicio 
dos dados do primeiro desenho da pe- 
dra. O código 42 (vermelho sobre fun- 
do azul ciano) é carregado em A. 

A rotina prlni, que começa no ende- 
reço 57217, é chamada. Como de cos- 
tume, ela imprime os dados apontados 
pelo conteúdo de BC com a cor especi- 
ficada pelo conteúdo de A, na posição 
dada pelo conteúdo de HL. 

O par HL é incrementado e passa a 
apontar para a posição à direita da pe- 
dra. Por enquanto, estamos fazendo 
apenas uma pedra rolar numa parte pla- 
na da montanha. Mais tarde, você verá 



como utilizar um deslocamento de um 
espaço para simular a descida da pedra 
pela encosta. 

O acumulador A é carregado com 45 
(código da cor ciano sobre fundo ciano) 
e o par BC, com 15616. Esta posição es- 
tá na ROM e inicia os dados para um 
espaço vazio. A rotina print é, então, 
chamada, de novo. A operação faz com 
que a pedra anteriormente impressa se- 
ja apagada. Sem isso, veríamos na tela 
uma fileira continua de pedras. 



A próxima tarefa consiste em verifi- 
car se a pedra atingiu o canto esquerdo 
da tela — nessa direção, ela pode ir além 
da posição 480. Em seguida, o par HL, 
já incrementado, é recarregado com a 
posição armazenada em 57356 e 57357. 
O par DE é carregado com 480 e esse 
valor é subtraído de HL. 

Se o resultado for igual a zero, a pe- 
dra está na posição 480 — ou seja, che- 
gou ao fim da descida. A instrução jr 
z.bri manda, então, o processador para 
a rotina bri. Esta, por sua vez, apaga a 
pedra do final da encosta e reajusta sua 
posição, mandando-a de volta para o to- 
po da montanha. 

Uma vez que não apresentaremos a 
rotina bri no momento, você precisará 
esperar um pouco mais para ver esta 
parte do programa funcionar. 



Como a maré está subindo, a pedra 
poderá chegar à água antes de alcançar 
o canto esquerdo da tela. Assim, será 
preciso verificar se a pedra afundou. Ca- 
so tenha se chocado contra a água, de- 
verá ser colocada no topo de novo. 

O método mais simples para verifi- 
car se a pedra atingiu a água consiste em 
analisar a cor da posição de tela imedia- 
tamente abaixo dela. Se for branco so- 
bre azul, a cor do mar, a pedra deve ser 
apagada. O par de registros HL é nova- 
mente carregado com a posição da pe- 
dra que se encontra nos endereços 57356 
e 57357. O par DE, por sua vez. é car- 
regado com 22560. Na verdade, 22528 
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posições de memória separam a posição 
na (ela (que está no arquivo de vídeo) 
da cor que lhe corresponde (que está no 
arquivo de cores). O valor 32 é adicio- 
nado a esse número para que o endere- 
ço da cor da posição de tela na linha 
abaixo — ou 32 caracteres depois — se- 
ja localizado. 

Os conteúdos de HL e DE são soma- 
dos em seguida. Sempre se utilizam es- 
ses pares de registro para fazer adições 
ou subtraçòes entre números de dois 
bytes, guardando-se o resultado em HL. 
Portanto, o conteúdo da posição de me- 
mória apontada pelo par HL — que 
agora equivale à posição adequada no 
arquivo de cores — é carregado no acu- 
mulador por meio da instrução de en- 
dereçamento indireto Id a, (hl). 

Esse valor é, então, comparado a 15, 
que é o código de branco sobre azul, ou 
seja, a cor do mar. Se o mar estiver abai- 
xo da pedra, a instrução jr.zbri manda 
o processador para a rotina que apaga 
a pedra e a coloca de volta no topo da 



RECONHECIMENTO DO DECLIVE 



Como já temos no acumulador a cor 
do caractere abaixo da pedra, vamos 
aproveitar para verificar se ela está ou 
não no chão. Para isso, o conteúdo do 
acumulador é comparado com 45, có- 
digo correspondente à cor do céu. Se os 
dois valores forem iguais, esta cor está 
por baixo da pedra, e o processador con- 
tinua com a pane seguinte da rotina. 
Caso contrário, a pedra ainda está fir- 
me no chão, e a instrução jr nz.bok faz 
o processador pular para o rótulo bok. 
Este deixa a pedra onde ela está, e sim- 
plesmente acerta as variáveis antes de re- 

Você deve ter reparado que, até ago- 
ra, a pedra só tem se movido para a es- 
querda. Sua posição vertical não foi al- 
terada — ou seja, o declive da encosta 
não foi levado em conta. Portanto, a pe- 
dra só pode estar fora do chão (com a 
cor do céu sob ela) se tiver passado por 
uma seção inclinada com um caractere 
à esquerda — o que significa que preci- 
samos apagá-la e imprimi-la um carac- 
tere abaixo. Em linguagem de máquina, 
tudo isso é feito tão rapidamente que 
nosso olho — ou a tela de TV — não 
tem tempo de reagir. Assim, você não 
poderá ver a pedra em sua posição in- 
termediária, indo para o ar ou voltan- 
do para o chão. 

Depois que o par de registros HL é 
carregado com a posição atual da pedra 
no vídeo, através das posições 57356 e 
57357, o par BC é carregado com os da- 



dos da ROM para um espaço vazio, co- 
mo antes. O acumulador A, por sua vez, 
é carregado com 45 — ciano sobre da- 
no. A rotina prinl é, então, chamada pa- 
ra apagar a pedra. 

O par DE é carregado com 32, valor 
que se adiciona ao conteúdo HL, o que 
faz o apontador nesse par de registros 
mover-se uma posição para baixo na te- 
la. Para ajustar a posição da pedra, o 
apontador em HL é copiado de volta 
nos endereços 57356 e 57357. Lembre- 
se de que a instrução Id apenas copia o 
conteúdo de um endereço ou de um re- 
gistro em outro endereço ou registro. O 
conteúdo do lugar de partida permane- 
ce inalterado. Logo, quando BC é car- 
regado com o endereço inicial dos pa- 
drões da primeira figura da pedra, a no- 
va posição na tela ainda está em HL. O 
acumulador é carregado com 42 — ver- 
melho sobre ciano — e a rotina prinl é 
chamada, imprimindo uma pedra ver- 
melha uma posição abaixo da posição 
anterior de impressão. 



ROLANDO PELA ENCOSTA 



Quando a pedra é novamente impres- 
sa — não importa se uma posição abai- 
xo ou não — , as variáveis têm que ser 
reajustadas para lazer com que ela pa- 
reça estar rolando morro abaixo. 

Em seguida, o par HL volta a ser car- 
regado com a posição atual da pedra, 
pois a rotina bok pode ter sido chama- 
da diretamente, não se executando a 
parte do programa que muda a figura 
de lugar. Depois de decrementado, o 
conteúdo de HL é carregado em 57356 
e 57357. Na próxima chamada da roti- 
na de movimentação, esse apontador 
indicará uma posição à esquerda. 

Se o conteúdo da variável do tipo de 
pedra — em 57358 — é 0, o processa- 
dor continua nesse laço da rotina e im- 
prime a primeira figura. Para que a se- 
gunda figura seja impressa, I é carrega- 
do em 57358 pelo acumulador. 



□I 




A primeira parte da rotina de movi- 
mentação da pedra, aqui apresentada, 
inicia o deslocamento da figura e veri- 
fica se ela colide com alguma coisa. Es- 
sa rotina não funcionará sem a segun- 
da parte, que continua imprimindo a pe- 
dra na tela. Assim, por enquanto, ape- 
nas digite e monte estas linhas; não ten- 
te executá-las. 

10 OHG 19789 

20 BAR LDA 1823B 

30 BEQ B LM 



40 CMPA 13 
50 BEQ BLM 
60 RTS 

70 BLM LDX 18Z53 

80 LDU #1136 

90 PSHS X 

100 JSR CHARPR 

110 PULS X 

120 LEAX -l.X 

130 CMPX #5344 

140 BEQ BRI 

150 STX 18253 

160 LDA , X 

170 CMPA ISAA 

180 BEQ BRI 

190 CMPA #355 

200 BEQ BNH 

210 CMPA #S50 

220 BEQ BNH 

230 LDA 12 

240 ST A 18252 

250 BNH LEAX 289. X 

260 LDA , X 

270 CMPA ISAA 

280 BEQ BRI 

290 CMPA 1855 

300 BNE BOK 

310 LEAX -33.X 

320 STX 18253 

330 CHARPR EQU 19402 

340 BOK EQU 19861 

350 BRI EQU 19894 



Antes de mais nada, a rotina de mo- 
vimentação da pedra verifica se a ava- 
lanche pode ocorrer no nível atual do jo- 
go. Como você deve se lembrar, Willie 
procura não ser atingido pelas pedras, 
saltando sobre elas, no nível um e no ní- 
vel quatro. A variável correspondente 
ao nível do jogo está armazenada na po- 
sição de memória 18238; o valor 0 indi- 
ca o nível um; o valor 3 aponta o nível 
quatro. Assim, o conteúdo do endere- 
ço 18238 é carregado no acumulador; se 
o valor for 0 ou 3 a instrução BEQ faz 
o processador pular diretamente para a 
rotina de movimentação da pedra. Ca- 
so contrário, o processador encontra a 
instrução RET e retorna para a rotina 
principal do jogo. 



APAGUE A PEDRA 



Na posição de memória 1 8253 está a 
variável que contém a posição atual da 
pedra. Essa posição é carregada no re- 
gistro X, e o número 1536, no registro 
U. Como U é o apontador da pilha do 
usuário, a região da memória situada 
acima do endereço 1536 passa a ser, pa- 
ra todos os fins, a pilha do usuário. A 
posição 1536 pertence à memória de te- 
la, correspondendo a uma parte do céu. 
O processador pula, então, para a sub- 
rotina CHARPR. 

Lembre-se de que essa sub-rotina uti- 
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liza os dados da pilha do usuário e im- 
prime na tela um byte de cada vez (um 
caractere apontado por X). Logo, uma 
parte do céu é impressa sobre a pedra, 
apagando-a da tela. 

Observe que, antes da rotina 
CHARPR ter sido chamada, o conteú- 
do de X foi guardado na pilha, mas não 
removido do registrador — seu valor foi 
simplesmente copiado. Procedemos as- 
sim porque a rotina CHARPR pode in- 
terferir com o registro X, já que impri- 
me oito bytes de dados que formam um 
caractere. Ao chamar uma sub-rotina, 
convém sempre guardar na pilha o con- 
teúdo de um registro que precisamos 
preservar. A regra é: na dúvida, empi- 
lhe, você evitará vários erros. 



FIM DA ENCOSTA 



Para obter de volta a posição na te- 
la, basta recuperá-la da pilha da máqui- 
na. A instrução LEAX -1,X decremen- 
ta o conteúdo de X, que passa a apon- 
tar para uma posição à esquerda. Esse 
valor é comparado com 5344, endereço 
da posição do canto esquerdo da tela, 
onde a pedra irá bater após ter descido 
toda a encosta. 

Se o valor de X for 5344, a pedra 
atingiu o canto da tela. A instrução BEQ 
BRI manda, então, o processador para 
a rotina BRI, que leva a pedra de volta 
para o topo da montanha. 

Se X não for igual a 5344, a pedra 
não chegou ao canto da tela. Nesse ca- 
so, a instrução STX 1823 armazena a 
próxima posição de impressão — que é 
um caractere à esquerda da anterior na 
variável de posição da pedra, que está 
em 1823. É nesta nova posição que a pe- 
dra será impressa. 



WILUE FOI ATINGIDO' 



Precisamos, também, averiguar se 
Willie foi atingido pela pedra. Assim, 
antes que a nova pedra seja impressa, 
o conteúdo da posição de tela aponta- 
da por X é carregado no acumulador 
por meio da instrução LDA ,X. Em se- 
guida, esse valor é comparado com $55, 
que é o código de amarelo, a cor do céu, 
e com $50, a cor da língua da cobra. Se 
o caractere contém S55 ou $50 — sen- 
do, portanto, parte do céu ou da cobra 
— o processador pula as duas próximas 
instruções. Caso contrario, a pedra de- 
ve ter atingido Willie — ele é a única fi- 
gura que pode estar em seu caminho. O 
salto então não ocorre. O acumulador 
é carregado com 2. Esse valor é arma- 
zenado na variável chamada dead, que 



indica se Willie morreu ou não. Ela se- 
rá verificada mais tarde, em outra roti- 
na do jogo. 



A PEDRA AFUNDA 



A tarefa seguinte consiste em checar 
se a pedra alcançou a superfície da água. 
Em caso afirmativo, não será preciso 
imprimir uma pedra ali: eia terá que ser 
colocada, novamente, no topo da 
encosta. 

O conteúdo do registro X é adiciona- 
do a 289. para indicar a próxima posi- 
ção na tela, uma linha abaixo. O núme- 
ro 289 resulta da operação 32 x 8 + 32 
+ 1 — ou seja, para chegar à posição 
imediatamente inferior, devemos contar 
oito linhas de 32 bytes; como a pedra 
ocupa uma linha de pixels acima do 
chão, somamos 32 bytes ao longo da 
memória de tela; finalmente, adiciona- 
mos o número 1 para compensar a sub- 
tração anteriormente feita para deslocar 
o apontador de tela uma posição para 
a esquerda. 

O valor contido nesse caractere é car- 
regado no acumulador por intermédio 
da instrução LDA ,X e, em seguida, 
comparado com SAA, que é o código 
correspondente a azul, a cor do mar. Se 
o mar está nesse caractere, a instrução 
BEQ BRI salta o processador sobre a ro- 
tina que inicializa a volta da pedra à sua 
posição no topo da encosta. 



POSIÇÃO 



Já que é preciso examinar a posição 
de tela imediatamente inferior, podemos 
muito bem verificar se existe céu naque- 
la posição. Para isso, basta comparar o 
seu valor com $55, o código da cor do 
céu. 

Caso não haja céu onde está a pedra 
— ou seja, se ela está no chão — , a ins- 
trução BNE BOK salta para a rotina 
BOK, que imprime a pedra. 

Porém, se existe céu por baixo da pe- 
dra, ela será movida uma posição para 
baixo e uma posição para a esquerda. 
Lembre-se de que agora o apontador de 
tela está indicando uma linha de pixels 
abaixo da última posição da pedra. Lo- 
go, devemos subtrair o valor 32 para 
mover uma linha de pixels, e o valor 1 , 
para mover uma posição para a esquer- 
da. Isso é feito de uma só vez pela ins- 
trução LEAX -33, X. 

Para imprimir a pedra no lugar ade- 
quado, o processador trabalha direta- 
mente com a rotina BOK. Essa rotina, 
bem como a rotina BRI, será exposta 
num próximo artigo. 




A parte da rotina de movimentação 
da pedra que apresentamos a seguir ve- 
rifica o nível do jogo e imprime a pri- 
meira figura da pedra e, se for o caso, 
faz com que ela role morro abaixo. 
Além disso, checa se a pedra chegou ao 
fim da encosta ou se já alcançou a su- 
perfície do mar, A segunda parte da ro- 
tina, que daremos num artigo futuro, 
verifica se Willie foi atingido, imprime 
a segunda pedra e recoloca a figura no 
topo da encosta. 

Digite e monte a primeira parte, mas 
não a execute, pois a rotina só funciona- 
rá quando estiver completa. 

10 org 54400 

20 ld a, (-522B) 

30 cp 0 

40 ir z.bl 

50 cp 3 

60 n z.bl 

70 ret 

80 bl ld a, (-5195) 

90 cp 1 

100 jr z.bm 

110 ld hl , (62407) 

120 ld de, (-5200) 

130 add hl.de 

140 ld a, 13 

150 push hl 

160 call 77 

170 pop hl 

1B0 inc hl 

190 lei a, 255 

200 cal) 77 

210 ld hl, (-5200) 

220 ld de,4B0 

230 Bbc hl.de 

240 jr z.mo 

250 ld hl , (62407) 

260 ld de, (-5200) 

270 add hl .de 

280 ld de. 32 

290 add hl.de 

300 call 74 

310 cp 72 

320 Jr z,no 

330 cp /6 

340 jr ipfio 

350 cp 255 

360 jr nz.bo 

370 ld hl , (62407) 

380 ld de. (-5200) 

390 add hl.de 

400 ld a, 255 

410 puah de 

4 20 call 77 

430 pop de 

440 ld hl . .32 

450 add hl .de 

460 ld 1-5200) .hl 

470 ld de, (67407) 

480 add hl.de 

490 ld a, 13 

500 call 77 

510 bo ld hl, (-5200) 

520 dec hl 



1d 1-5200) .hl 
ld a, 1 

ld (-5X95) .a 



bm cal 1 -11006 



530 
540 
550 
560 
570 
560 
590 
600 
610 



Antes de mais nada, a roiina verifi- 
ca se a avalanche de pedras é necessária 
no nível atual do jogo. Lembre-se de que 
Willie lenia escapar das pedras nos ní- 
veis um e quatro. A variável que indica 
o nível do jogo está em -5228 — o valor 
0 corresponde ao nível um e o valor 3, 
ao nível quatro. 

O conteúdo desse endereço é carre- 
gado no acumulador e comparado ini- 
cialmente com 0 e, depois, com 3. Se al- 
gum desses valores estiver presente, a 
instrução jr z,bl faz o processador sal- 
tar para a rotina de movimentação da 
pedra. Caso contrário, o processador 
encontra a instrução rei e retorna ao 
programa principal do jogo. 



Para criar o efeito de movimento, uti- 
lizamos dois padrões diferentes para a 
pedra, imprimindo-os alternadamente. 
O processador precisa saber qual foi a 
última figura impressa para poder sele- 
cionar adequadamente a seguinte. Ob- 
tém essa informação no endereço -5 195, 
onde existe uma variável cujo conteúdo 
é 0 ou 1 . Esse valor é carregado no acu- 
mulador e, se for igual a 1, o processa- 
dor salta para a rotina bm que será apre- 
sentada mais tarde. Caso contrário, ele 
prossegue com a rotina exposta aqui. 

Como você vai perceber, o valor de 
-5195 é trocado sempre que se chama a 
rotina de movimentação. Portanto, o 
processador executa uma parte do pro- 
grama de cada vez. 



A posição da pedra é armazenada nos 
endereços -5200 e -5 199. Seu valor é car- 
regado no par DE. O endereço inicial da 
Tabela de Nomes (TN), que está arma- 
zenado nos endereços 62407 e 62408, é 
carregado em HL. A soma dos valores 
nesse par de registros fornece o valor 
adequado na TN. 

O acumulador A é carregado com o 
código do padrão que forma o primei- 
ro desenho da pedra. Como você verá 
na segunda parte da rotina, a outra pe- 



dra é formada por dois padrões. Em se- Se não há céu abaixo da pedra — 
guida, a rotina 77 da ROM é chamada, seja, se ela ainda está no chão — a i 
....... ...i., r a Ao iriinr-ir n valnr i-nn. trnfãn ir m h<i t';i7 o nrncessador sa 
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encarregando-se de colocar o valor wu 
tido em A no endereço da VRAM apon 
tado pelo par HL — ou seja, a rotina 
imprime a pedra na tela do computador. 



A etapa seguinte consiste em verifi- 
car se a pedra atingiu o fim da encosta. 
Para isso, sua posição é transferida de 
•5200 e -5199 para o par HL e o valor 
480 é carregado em DE, que representa 
a última posição que a pedra pode ocu- 
par. Esse valor é subtraído de HL. Se 
o resultado for zero, a pedra está na po- 
sição 480 — em outras palavras, chegou 
ao fim da encosta. A instrução jr z,mo 
manda, então, o processador para a ro- 
lina mo, que apresentaremos mais tar- 
de. Essa rotina encarrega-se de apagar 
a pedra e levá-la de volta para o topo 
da monianha. 



Como a maré está subindo rapida- 
mente, é provável que a pedra atinja a 
água antes de chegar ao fim do morro. 

Precisamos verificar se ela afundou. 
Em caso afirmativo, a pedra será reco- 
locada no topo da encosta. 

A rotina 74 da ROM cuida disso. Se 
a chamarmos com um endereço da 
VRAM em HL, ela devolverá o conteú- 
do desse endereço ao acumulador. 

Portanto, carregamos o endereço ini- 
cial da TN da VRAM em HL. A posi- 
ção da pedra na tela é carregada em DE. 
Adicionando os conteúdos de DE e HL, 
obtemos a posição da pedra na TN. Po- 
rém, como estamos interessados no que 
existe abaixo da pedra, somamos 32 ao 
conteúdo de HL. 

A rotina 74 é chamada e fornece o 
padrão da figura que se encontra nessa 
posição. Seu valor é comparado com 72 
e 76, que são os códigos dos dois pa- 
drões de mar existentes. Se o mar está 
abaixo da pedra, a instrução jr i,mo 
manda o processador para a segunda 
parte da rotina, que apaga a pedra e 
ajusta a posição para o topo do morro. 



Uma vez que temos no acumulador 
o código do padrão que está abaixo da 
pedra, não custa verificar se ele corres- 
ponde ao céu. Para isso, comparamos 
o conteúdo do acumulador com 255, 
que é o código do padrão de céu. 



trução jr nz.bo faz o processador saltar 
ao rótulo bo, onde as variáveis são ajus- 
tadas antes de retornar. Caso contrário, 
o processador continua com a parte se- 
guinte da rotina. 



Você deve ter reparado que até ago- 
ra a pedra só tem se movido para a es- 
querda — o declive da encosta não foi 
levado em conta. A pedra só pode estar 
fora do chão (com a cor do céu sob ela) 
se acabou de passar por uma inclinação 
— o que significa que precisamos apagá- 
la e imprimi-la uma posição abaixo. A 
rapidez com que essa tarefa é executa- 
da em código de máquina nos dá a im- 
pressão de que a pedra permaneceu na 
superfície da encosta. 

O endereço inicial da TN da VRAM 
é carregado em HL. O par DE recebe 
a posição atual da pedra e esse valor é 
somado em HL. Em seguida o código 
do padrão de céu é carregado em A e 
a rolina 77 da ROM é chamada. Com 
esse procedimento, a pedra é apagada 
da posição que ocupava na tela. 

O valor em DE foi preservado na pi- 
lha e somado ao número 32 em HL. pa- 
ra atualizar a posição da pedra nos en- 
dereços -5200 e -5199 elevá-la uma po- 
sição abaixo da anterior. Finalmente, 
■ soma-se o endereço inicial da TN da 
VRAM em HL e carrega-se o acumula- 
dor com o padrão da pedra. A rotina 77 
é. então, chamada. Com isso, fizemos 
a pedra descer uma posição, permane- 
cendo firme junto à encosta. 



ROLANDO PELA ENCOSTA 



Quer a pedra tenha descido, quer 
não, as variáveis que definem sua posi- 
ção devem ser ajustadas para fazer com 
que ela pareça estar rolando pela encos- 
ta da montanha. 

O par HL é mais uma vez carregado 
com a posição da pedra. Em seguida, 
seu valor é decrementado e devolvido 
aos endereços -5200 e -5 199. Quando a 
rotina responsável pela movimentação 
da pedra for chamada novamente, a fi- 
gura terá sido deslocada uma posição 
a esquerda. 
O processador continuou a executar 
essa parte da rotina e imprimiu na tela 
a primeira figura da pedra porque o con- 
teúdo do endereço - 5 1 95 era 0. Para que 
depois imprima a outra figura, o valor 
1 será carregado em -5195 pelo acu- 
mulador. 
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IMUIAÇÁ© 



FUNDAMENTOS E APLICAÇÕES 



■ 


SIMULAÇÃO DE UMA LOTERIA 


■ 


GERAÇÃO DE 


NÚMEROS RANDÓMICOS 


■ 


AMOSTRAGEM E PESQUISA 



Quais são suas chances de fazer os 
treze pontos na loteria esportiva 
desta semana? Nosso programa não vai 
melhorar sua sorte, mas poderá 
ajudá-lo a entender porque perdeu. 



Instruir um novo piloto a bordo de 
um avião a jato ou de um bombardeiro 
pode custar muito caro, se levarmos em 
conta os custos com combustível, ater- 
rissagens e pessoal de apoio. Por isso, as 
autoridades militares preferem investir 
grandes somas em aviões de treinamen- 
to e simuladores — equipamentos con- 
trolados por computador que nunca dei- 
xam o solo, mas dão ao iniciante a sen- 
sação de um vôo real. 

O mesmo tipo de argumento é váli- 
do em várias outras situações — incluin- 
do o planejamento de uma indústria, 
marketing, pesquisas cientificas e planos 
governamentais. Programar um compu- 
tador para simular os efeitos de uma 
provável falência ou de uma determina- 
da política económica é, sem dúvida, 
mais razoável do que testá-las na práti- 
ca, o que tomaria cinco anos ou mais, 
dependendo das circunstâncias. Não 
surpreendem, portanto, os grandes in- 
vestimentos que têm sido feitos na área. 

Antes do advento dos computadores, 
era praticamente impossível utilizar es- 
se recurso, devido à complexidade e ex- 
tensão dos cálculos envolvidos. Hoje em 
dia, até os microcomputadores pessoais 
podem fazer simulações não muito com- 
plicadas — como as que você já deve ter 
visto em jogos comercializados pelos fa- 
bricantes. 

Por trás de todo trabalho de simula- 
ção e previsão, estão as leis da probabi- 
lidade. Se você não está familiarizado 
com elas, consulte o artigo Acaso e Pro- 
babilidade na página 776. Complemen- 
tando essas leis, usam-se os estudos es- 
tatísticos, que analisam os fatos reais, 
quantificando a ocorrência de certas si- 
tuações e o surgimento de variações em 
suas características. 

A partir de algumas informações bá- 
sicas, o computador é capaz de pre- 
ver situações futuras para uma série de 
eventos. Mas a con fiabilidade dos resul- 





ta d os dependerá sempre do cuidado com 
que os dados foram introduzidos e da 
precisão das regras que orientam sua 
manipulação. Tomemos um exemplo 
bem simples: a simulação dos resultados 
de uma loteria esportiva. 

A cada fim de semana, milhares de 
pessoas conferem, pela televisão ou pe- 
lo rádio, os resultados da loteria espor- 
tiva, aguardando ansiosamente sua vez 
de fazer os treze pontos. Infelizmente, 
todos, exceto os raros premiados, des- 
ligam a televisão desapontados e vão 
dormir, esperando pelos jogos da pró- 
xima semana. Se voçê quiser antecipar 
a emoção de checar sua sorte, digite es- 
tas linhas: 




10 DIM J(13}: B0RDEH 0: PAPER 

0: IHK 7: CLS 
Z0 PRINT INVEHSE 1 ; " AS PART 
IDAS ESTÃO EM ANDAMENTO" 
30 FOH T-l TO 13 
40 LET J(I)-RND*1 
50 NEXT I 

60 FOR 1 = 1 TO 2(100: NEXT I 

70 PRINT ! PUI NT FLASH li 

PAPER 2;" E ATENÇÃO PARA OS R 

ESULTADOS : " : PRINT 

80 FOR 1-1 TO 13 

90 IF J(I)<-.5 THEN LET ZS-" 

UM" 

100 TF J(I)>.5 AND J(I)<-.75 
THEN LET Z3="DOIS" 
110 IF J(I)>.75 THEN LET ZS=" 
DO MEIO" 

120 PRINT TAB 3 ; "JOGO ";I;: 
PRINT TAB COLUNA "rZS 

130 FOR T=l TO 500: NEXT T 
140 NEXT I: PHINT : PRINT 
150 PRINT FLASH 0; PAPER 1 ; "V 
OCE QUER OUTRA LOTERIA (S/N) 7" 
160 LET AS-INKEYS : IF A$-"" 
THEN GOTO 160 
170 IF AS-"S" THEN GOTO 10 
180 STOP 

Q 

10 DIM J(13> 

20 CLS: PRINT ' AS PARTIDAS ESTA 

O EM ANDAMENTO" 

30 FOR 1-1 TO 13 

40 LET J(I)-HND(10)/10 

50 NEXT I 

60 FOR 1-1 TO 2000:NEXT 

70 PRINT #34, "E ATENÇÃO PARA OS 

RESULTADOS" : PRINT 
80 FOR 1-1 TO 13 
90 IF J(I]<-.5 THEN ZS-"UM" 
100 IF J(I)>.5 AND J(I)<-.75 TH 
EN ZS="DOIS" 

110 IF J(I)>.75 THEN ZS="DO MEI 
O" 

120 PRINT TAB ( 4 ) "JOGO";I;": CO 
LUNA * ; ZS 

130 FOR T-l TO 500:NEXT T 
140 NEXT I : PRINT 

150 PRINT "VOCE QUER OUTRA LOTE 




RIA ? (S/N) ' 

160 LET AS-INKEYS:IF AS-"" THEN 
160 

170 IF AS-"S" THEN GOTO 20 
180 END 



10 DIM J{13) 

20 HOME : PRINT TAB ( 5) "AS PA 
RTIDAS ESTÃO EM ANDAMENTO* 
30 FOR I - 1 TO 13 
40 LET J(I) - RND (1) 
50 NEXT I 

60 FOR I = 1 TO 2000: NEXT 
70 PRINT : PRINT TAB ( 6}"E AT 
ENCAO PARA OS RESULTADOS" ! PRIN 



FOR I - 1 TO 13 



IF J{I) 



.5 THEN ZS = 

5 AND J (I) < 
DOIS" 

75 THEN ZS = 



100 IF J(I) > 
.75 THEN ZS ** 
110 IF J{1) > 
O MEIO" 

120 PRINT TAB ( 7) "JOGO ";Is: 
PRINT TAB ( 15)" ! COLUNA ";Z 

130 FOR T " 1 TO 500: NEXT T 

140 NEXT I: PRINT : PRINT 

150 PRINT TAB ( 4)"VOCE QUER O 

UTRA LOTERIA ?(S/N)" 

160 GET AS 

170 IF AS ■ "S" THEN GOTO 20 

J80 END 



10 DTMJ (13) 

20 CLS: PRINT TAB(5)"AS PARTIDAS 

ESTRO EM ANDAMENTO" 
30 FOR 1 = 1 TO 13 
40 LET J(T)=RNDU) 
50 NEXT I 

60 FOR T=] TO 2000:NEXT 
70 PRINT : PRINT TAB (6) "E ATENCA 
O PARA OS RESULTADOS" ! PR I NT 
80 FOR 1=1 TO 13 
90 IF JÍIK-.5 THEN ZS-"UM" 
100 IF J(I)>.5 AND J[I)<=.75 TH 
EN ZS-"DOIS" 

110 IF J(I)>.75 THEN ZS="DO MEI 

120 PRINT TAB ( 7 ) "JOGO" ; I ; : PRIN 
T TAB (15) " : COLUNA " ; ZS 
130 FOR T-l TO 500:NEXT T 
140 NEXT I:PR1NT:PRINT 
150 PRTNT TAB (4 ) "VOCÊ QUER OUT 
RA LOTERIA? (S/N) " 
160 AS-INKEY$:IF AS-"" THEN GOT 



160 



THEN GOTO 20 



170 IF AS-' 
180 END 

Rode o programa e os resultados se- 
rão prontamente impressos na tela. 

Não é incomum o cancelamento de 
algum jogo, sobretudo por causa de 
chuva. Quando isso ocorre, a Caixa 
Económica Federal, a promotora da lo- 
leria, faz um sorteio para definir um re- 
sultado para o jogo. Na verdade, esse 
processo não passa de uma simulação, I 
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ou seja, de uma represeniação simbóli- 
ca de uma situação real. 

A estrutura do programa é muito 
simples. O laço entre as linhas 30 e 50 
sorteia treze números correspondentes 
aos treze jogos, e o laço entre as linhas 
80 e 140 relaciona esses números aos 
possíveis resultados. 



DECIDINDO OS RESULTADOS 



O parâmetro que o computador uti- 
liza para imprimir os dados do placar 
provém de uma análise sobre a frequên- 
cia de cada resultado em jogos passados. 
Sabe-se que, em 50% dos jogos, o time 
da casa vence, pois conta, entre outras 
vantagens, com o apoio da torcida. As 
ocorrências restantes dividem-se igual- 
mente entre empate — 25% — e vitória 
do time visitante — 25%. 

Em cada jogo há três resultados pos- 
síveis (coluna um, coluna do meio e 
coluna dois) e a loteria inclui treze jo- 
gos. Assim, a probabilidade de ocor- 
rer determinado resultado é de 1 em 
1 .594.323 (um em três elevado a treze). 
Como você vê, as chances de acerto se- 
riam muito pequenas, caso não se per- 
mitissem apostas duplas ou triplas. Na 
Inglaterra, por exemplo, as apostas tam- 
bém incluem empate com gois ou sem 
gois, o que torna a probabilidade de ga- 
nhar ainda menor (1 em 4T13). 

Decidir o resultado de um jogo é, 
portanto, como fazer um sorteio: os nú- 
meros são colocados em uma caixa e al- 
guém, sem olhar, pega um deles. 

Suponhamos que se divida um papel 
em quatro partes: na primeira, escreve- 
mos "coluna dois"; na segunda, "co- 
luna do meÍo' ! e, nas outras duas, "co- 
luna um". Se fizermos um sorteio, es- 
taremos representando a decisão de uma 
partida de futebol. Também poderíamos 
escrever um número em cada pedaço de 
papel — 1 , 2, 3 e 4 — e relacioná-los a 
um resultado desta forma: 



M Ml RO 



RESULTADO 

coluna um 

3 coluna dois 

4 coluna do meio 

A função RND do BASIC, que ge- 
ra números randômicos, faz com que 
o computador sorteie um número do 
"chapéu". Considerando que RND ge- 
ra um número entre 0 e 1 , podemos rees- 
crever nossa tabela assim: 

V ALOR DO RND RESULTADO 

de 0 a 0.5 coluna um 

maior que 0.5 até 0.75 coluna dois 

maior que 0.75 até 1.00 coluna do meio 



Voltando ao programa anterior, vo- 
cê pode observar que este é o processo 
utilizado pelo computador para decidir 
o resultado de cada jogo (linha 80 até 
linha 140). 

Em nosso programa, as proporções 
entre os resultados dos jogos foram es- 
timadas um pouco grosseiramente. Pa- 
ra aperfeiçoá-las, você poderá fazer uma 
pequena pesquisa em arquivos de jor- 
nais e redefinir a proporção a ser usa- 
da. Experimente fazer algumas previ- 
sões e confira com os resultados da pró- 
xima semana. Boa sorte! 



GERAÇÃO DE NÚMEROS RANDÔMICOS 



Dados, cartas e roleta já foram mui- 
to utilizados para a obtenção de núme- 
ros randômicos. Procedimentos como 
esses, lentos e tediosos, puderam ser 
abandonados depois que um famoso 
matemático americano, John von New- 
man, propôs o método da potência qua- 
drada. Começando com um número de 
quatro dígitos (a "semente"), o próxi- 
mo número randômico seria obtido pe- 
la multiplicação da semente por ela mes- 
ma. Do resultado seriam destacados os 
quatro dígitos do meio. Suponhamos 
que a semente é o número 5272. O se- 
gundo número será gerado pelos quatro 
dígitos centrais de (5272T2), ou seja, 
27.793.984. A resposta (7939) é pratica- 
mente randômica. Um terceiro número 
seria obtido elevando-sc 7939 ao qua- 
drado e assim por diante. 

Você pode estar se perguntando se 
qualquer processo matemático — obri- 
gatoriamente repetitivo — seria capaz de 
gerar números realmente randômicos. 
Na verdade, isso é impossível. Porém, 
o número obtido comporta-se como se 
fosse randômico, e é geralmente chama- 
do pseudo-randômico. 

Infelizmente, a técnica da potência 
quadrada não é muito útil para gerar 
números randômicos no computador. 
Além de ser um processo lento, a se- 
quência logo se repete, e, assim que sur- 
ge um zero, ela é interrompida. A maio- 
ria dos micros adota um método distin- 
to, recorrendo a uma fonte qualquer de 
números para gerar os pseudo-randômi- 
cos. O próximo programa usa uma fór- 
mula bem simples e a função 1NT para 
demonstrar como esse método funciona. 



20 BORDEB 0: INK 7: PAPEB 0: 
CLS 

30 pr i nt at 0,2: invebse 1;" 
números pseudo- randômicos " ' 
40 input * quantos números ? 

";n: LET a-0 




IIIIIIIIIIIHMI 
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Quantas variáveis cabem na memória? 

Nos interpretadores Microsoft BA- 
SIC dos micros MSX, TRS-80, TRS- 
Color, Apple e TK-2000, os nomes de 
iriáveis podem ter . uma ou duas le- 
as, ou uma letra e um número. Tam- 
bém é possível acrescentar o sufixo de 
tipo, que pode ser um # Iprecisão du- 
pla), 1 Iprecisão simples), % (inteiro) e 
S (literal). Dadas essas limitações, 
calcula-se o número de nomes diferen- 
3s em 2 000. 
Já para os micros Sinclair (ZX-81 e 
Spectrum), não há limite teórico, pois 
são aceitos mais de dois ci 
le de uma variáví 



50 LET x -.677829*PEEK 23673 
/50 

60 LET x-x*1842.95 
70 LET x-x-INT (x) 
80 LET p^INT (x*1000) : PRINT 

"i.001«p. 
90 LET s-s+1 

110 IF s<-n THEN GOTO 60 
120 STOP 



20 CLS 

30 PRINT «3, "NÚMEROS PSEUDO-RAN 
DOMICOS" 

40 PRINT:PRINT:INPUT"QUANTOS NU 

MEROS ";N:S-0 

50 X-.677B29*TIMER/5Q 

60 X-X*1842.95 

70 X-X-INT(X) 

80 P-INT(X*1000) iPRINT LEFTS tST 
RS(P/1000)+" ".8) ; 

90 S-S+l 

110 IF SON THEN 60 
120 END 



HE] 



20 HOME 

30 PRINT TAB( 7) "NÚMEROS PSEU 
DO-RANDOMT.COS" ! PRINT 
40 INPUT "QUANTOS NÚMEROS ? "; 
N-S = 0 

50 X = .677829 * 31B378 / 50 

60 X ■= X « 1842.95 

70 X - X - INT (X) 

80 P - INT (X - 1000) : PRINT 

LEFTS í STRS (P / 1000) + " 

".a) i 

90 S = S + 1 

110 IF S < N THEN 60 

120 END 



fffi 



;N:S- 

0 

50 X=.677829*TIME/50 
60 X-X*ÍB42.95 
70 X-X-INTCX) 

BO P=INT(X»1000) :PRINT LEFTS (ST 
RS(P/1000)+" ".8) ; 

90 S-S+l 

110 IF S<N THEN 60 
120 END 

A linha 50 usa a função time para 
produzir uma semenle diferente a cada 
execução do programa. O Apple e o 
TK-2000 não possuem essa função. Por- 
tanto, se você quiser uma outra sequên- 
cia, deverá substituir o valor 318378. 

O número .677829 é uma constante 
arbitrária. Depois que o valor é multi- 
plicado por outra constante (linha 60), 
obtém-se o resíduo (ou parte decimal). 
Mude os valores das constantes nas li- 
nhas 50 e 60 e torne a executar o pro- 
grama para verificar o tipo de resulta- 
do a que chegará. 

Para outros fins, é mais fácil utilizar 
a função RND existente em seu compu- 
tador. Variando o valor de x na expres- 
são RND(x), você poderá selecionar 
uma sequência que se repita, o que é 
muito úlil para renovar a semente a ca- 
da execução do programa. 

Lembre-se de que a função RND cria 
uma variável randòmica e não uma va- 
riável algébrica. RND(I> — ou RND(0) 
no TRS- Color — não resultará no mes- 
mo número em duas partes do programa. 



AMOSTRAS E PESQUISAS 



Empresas que fazem pesquisas de 
mercado ou de opinião pública usam 
computadores para gerar uma amostra 
randòmica da população. Quando en- 
trevistam, por exemplo, mil pessoas, é 
muito importante que elas representem 
a grande maioria da população. Ou se- 
ja, os entrevistados não podem ser es- 
colhidos por morar perto do instituto de 
pesquisa ou trabalhar em determinada 
empresa. Ao contrário, devem ler as 
mais diversas origens e características 
para que suas opiniões não sejam in- 
fluenciadas por particularidades comuns 
a determinados grupos. 

A melhor maneira de se definir uma 
amoslra bem representativa é selecioná- 
la randomicamente, excluindo, assim, 
qualquer tendência ou preconceito. 

Isso continua valendo mesmo que o 
campo amostrai não seja tão grande, e 
que comporte de fato algumas caracte- 
rísticas comuns — como se supõe haver 
entre os sócios de um clube ou os leito- 
res de INPUT. Se você quisesse saber, 



por exemplo, quais os computadores 
mais usados entre os leitores de INPUT. 
seria necessário fazer uma amostragem 
randòmica para chegar ao resultado 
mais próximo possível do real. 

O processo utilizado no programa é 
similar ao de retirar números de um cha- 
péu, com uma pequena diferença: o pa- 
pel sorteado não voltará ao chapéu, o 
que equivaleria a entrevistar duas vezes 
a mesma pessoa. Execute o programa 
que se segue para ver como a função 
RND pode ser empregada para gerar 
uma amostragem randòmica. 



] o DIM bS (10 , 16) 

20 DIM aS(10,16) 

30 BORDER 0: PAPER 0: TNK 7: 

CLS 

50 PRINT AT 0,5; tNVERSE 1 ; "A 
MOSTRAGEM RANDÒMICA " 
90 PAUSE 100: CLS 
100 FOR l-l TO 10: READ a$ ( l ) i 
NEXT l 

110 INPUT " TAMANHO DA AMOSTRA 

12(1 FOR w-3 TO 10: LET bS (v) -a 

S (v) : NEXT v 

130 FOR j-l TO n 

140 LET r-l+XMT (RNDM0) 

150 IF bS(r)-* 

" THEN GOTO 140 

160 PRINT bS(r> 

170 LET bStr)-*" 

180 NEXT J 

190 INPUT " OUTRA AMOSTRA (s/n 



200 IF gS="s" THEN CLS : GOTO 

110 
210 STOP 

220 DATA "BONN" . "COPENHAGUE" , " 
LONDRES" 

230 DATA "MADRI" . "MOSCOU" . "NOy 
A IORQUE" 

240 DATA "PARIS" , "ROMA" , " ESTOC 
OLMO" , "VIENA" 



íl 



40 CLS 

50 PRINT iB. "AMOSTRA RANDÒMICA" 
: PRINT : PRINT 

100 RESTORE : FOR 1-1 TO 10 : READ 
AS(I) NEXT I 

110 INPUT * TAMANHO DA AMOSTRA "; 
N : PRINT 

115 IF N>10 THEN 40 

120 FOR V-l TO 10:BS(V)-AS(V) :N 

EXT V 

130 FOR J-l TO N 

140 R-1+INT[RND(0)*10) 

150 IF BS(R)-"" THEN 140 

160 PRINT BS(R) 

170 BS(R)-"" 

180 NEXT J 

190 PRINT : INPUT" OUTRA AMOSTRA 
(S/N) " ;GS : PRINT : PRINT 
200 IF GS-"S" THEN 110 
210 END 

220 DATA BONN, COPENHAGUE, LONDHE 







230 DATA MADBI .MOSCOU. NOVA IOBQ 



40 HOME 

50. PRINT TABÍ 10 ) "AMOSTRAREM 

RANDOMICA" : PRINT 

100 RESTORE : FOR I = 1 TO 10: 

READ A3(I) : NEXT I 
110 INPUT "TAMANHO DO CAMPO AM 
OSTRAL : " : N : PRINT 
115 IF N > 10 THEN 40 
120 FOR V = 1 TO 10:BS(V) = AS 
(V) : NEXT V 
130 FOR J = 1 TO N 
140 R = 1 + INT ( RND (1) * 10 
) 

150 IF BSÍR) - "" THEN 140 
160 PRINT BSÍR) 
170 B$ (R) - " 
180 NEXT J 

190 PRINT : INPUT "OUTRA AMOST 
BAGEM ?(S/N) ";GS: PRINT : PRIN 
T 

200 IF GS = "S" THEN 40 
210 END 

220 DATA BONN . COPENHAGEN . LOND 
RES 

230 DATA MADRI .MOSCOU, NOVA YO 
RK 



20 CLS 

30 PRINT TAB (6) "NÚMEROS PSEUDO 
-BANDOMICOS" : PRINT 
40 CLS 

50 PRINT TAB 1. 8 ) "AMOSTRAGEM RAN 
DOMICA" : PRINT : PRINT 
100 RESTORE : FOR 1-1 TO 10 : READ 
AS(I) : NEXT I 

110 INPUT "TAMANHO DA AMOSTRA " 
;N:PRINT 

120 FOR V-l TO 10:BS(V)=AS(V) :N 
EXT V 

130 FOR J-l TO N 

140 R=l +INT{RND(1)*10) 

150 IF BSÍR)'"" THEN 140 

160 PRINT BSÍR) 

170 BSÍR)'"" 

180 NEXT J 

190 PRINT:INPUT"OUTRA AMOSTRA ? 

(S/N) " [GS - PRINT : PRINT 
200 IF GS""S" THEN 110 
210 END 

220 DATA BONN, COPENHAGEN, LONDRE 
S 

230 DATA MADRI. MOSCOU, NOVA YORK 
240 DATA PARIS, ROMA. ESTOCOLMO, V 
IENA 

Depois que as informações que se- 
guem o comando DATA foram lidas (li- 
nha 100), um número inteiro randômi- 
co R, entre 1 e 10, é gerado (linha 140). 
Seu computador imprimirá, então, o R- 
ésimo item (linha 160) da lista. 



Assim que um item é selecionado, 
deve-se removê-lo do banco de informa- 
ções, para não ser escolhido duas vezes. 
A linha 170 se encarrega disso. 

Geralmente, o banco de informações 
a ser pesquisado é bem mais extenso do 
que o apresentado aqui. Para obter 
amostragens de um grupo maior, nosso 
programa seria lento e ineficiente. Se um 
político quisesse, por exemplo, sortear 
duzentos nomes de um eleitorado de 
60.000 elementos, o programa teria que 
percorrer a lista duzentas vezes. Para 
evitar essa longa espera, o mais conve- 
niente seria recorrer ao método de bus- 
ca individual. 



0 MÉTODO DE BUSCA INDIVIDUAL 



Com esse método, o banco de dados 
é percorrido uma só vez, de cima para 
baixo. Decide-se, a cada nome conside- 
rado, qual deve ser incluído na amostra- 
gem. Para obter uma amostragem des- 
sa maneira, faça as seguintes modifica- 
ções no programa anterior: 



120 LET a=n: LET c=10 

130 FOR J=l TO 10 

140 IF a=0 THEN GOTO 190 

150 IF BND*K = a/c THEN PBINT 

a$(j) : GOTO 170 

160 LET e-C-li GOTO 180 

170 LET a = a-l: LET c.=c~l 
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50 PBINT «3. "AMOSTRA RANDOMICA 

SIMPLES ": PBINT: PBINT 

120 A-N:O10 

130 FOR J-l TO 10 

140 IF A-0 THEN 190 

150 IF RND(0)<-A/C THEN PRINT A 

S (J) :GOTO 170 

160 C-C-l:GOTO 1B0 

170 A-A-1:C-C-1 



HEI 



50 PRINT " AMOSTRAGEM RANDOMICA 

DE BUSCA INDIVIDUAL": PRINT 
120 A - N:C - 10 
130 FOR J = 1 TO 10 
140 IF A = 0 THEN 190 
150 IF RND (1) < = A / C THE 
N PBINT A3(J): GOTO 170 
160 C • C - 1: GOTO 180 
170 A - A - hC ' C - 1 



50 PRINT TAB 19) "AMOSTRAGEM RAN 

DOMICA" : PRINT : PRINT TAB (9) "DE 

BUSCA INDIVIDUAL" : PRTNT 

120 A-N:C=10 

130 FOR .1 = 1 TO 10 

140 IF A-0 THEN 190 

150 IF BND(l)OA/C THEN PRINT A 




FAZENDO PREVISÕES 

As técnicas de simulação descritas 
neste artigo apresentam muitos dos 
elementos necessários para que você 
próprio desenvolva um método para 
prever os resultados de um jogo ou pa- 
ra fazer uma pesquisa. Não será difícil 
modificar os programas ou usar parte 
deles, adaptando-os às suas fina- 
lidades. 

Você pode, por exemplo, planejar e 
montar um programa que conterjba o re- 
sultado de vinte partidas e. então, se- 
lecionar treze delas e comparar suas 
previsões com os resultados reais. Pa- 
ra isso, seria preciso utilizar tanto o 
programa da loteria esportiva quanto 
o da amostragem, com algumas modi- 
ficações e linhas extras destinadas a 
ligá-los. 

Se você quiser treinar um pouco 
mais, experimente uma outra combina- 
ção dos dois programas, fazendo com 
que o computador não só simule os re- 
sultados da loteria esportiva, como 
também forneça os nomes dos times 
que estão jogando. Você deverá, nes- 
se caso, incluir no programa de amos- 
tragem os nomes de vários times, den- 
tre os quais 26 serão sorteados. 



S(J) :GOTO 170 

160 C=C-1 :GOTO 180 

170 A«=A-l:C-C-l 

Se você decidir selecionar irès itens da 
lista, o primeiro deles, Bonn, só será es- 
colhido se a função RND (linha 1 50) re- 
sultar num número menor que 3/10. 
Copenhague será o próximo item a ser 
considerado. Se Bonn já livcr entrado 
para a amostragem, o item Copenhague 
terá a chance de ser escolhido se a fun- 
ção RND gerar um valor menor que 
2/9. Se Bonn não foi selecionado, a 
chance de Copenhague aumenta para 
3/9. As linhas 160 e 170 atualizam es- 
sas probabilidades para cada elemento. 

Se você comparar as amostragens ob- 
tidas por este programa com as do pro- 
grama anterior, observará que, aqui. 
elas aparecem na ordem em que estão 
no .programa. 

A primeira vista, pode-se supor que, 
com uma lista de dez ilens. o número de 
amostragens possíveis é pequeno. Na 
verdade, porém, é bem grande: são 120 
amostras diferentes com três itens, e 252 . 
com cinco itens. 



Illlllllll 



AVALANCHE^ AS 
PEDRAS ROLAM (2) 



Até agora Willie não contava com a 
ameaça de uma avalanche. A rotina que 
faz com que as pedras rolem está ape- 
nas pela metade e, provavelmente, fa- 
lhará se você tentar executá-la. Esta se- 
gunda parte da rotina irá precipitar a 
avalanche. E Willie só estará seguro se 
pular fora do caminho. 



A listagem que apresentamos aqui é 
constituída de duas seções principais. 
Uma delas imprime a segunda figura da 
pedra — para dar a impressão de que 
ela está rolando — e verifica se Willie 
foi atingido. A outra apaga a pedra se 
ela tiver chegado ao fim da encosta ou 
à superfície do mar e a recoloca no to- 
po da encosta. Ambas as seções são cha- 
madas pela parte da rotina fornecida no 
artigo anterior. 

Assim que você tiver digitado e mon- 
tado as linhas que se seguem, a rotina 
de movimentação da pedra estará pron- 
ta para funcionar. Mas lembre-se de que 
você deve ter o resto do jogo na memó- 
ria, já que outras rotinas — como prinl 
— serão chamadas. 

10 BEM org 59097 

20 Cl EM bua ld hl, (57356) 

30 BEM ld de. 22528 

40 REM ãdd hl.de 

50 BEM ld a. (hl) 

60 REM cp 40 

70 REM jr nz.bnh 

80 REM ld a, 2 

90 REM ld (57336) ,a 
100 REM bnh ld hl, (57356) 
110 BEM ld a. 42 
120 REM ld bc, 57128 
130 REM call 58217 
140 REM inc hl 
150 REM call 58217 
160 REM ld a,0 
170 REM ld (57358) ,a 
180 REM ret 

190 REM bn ld hl, (57356) 
200 REM ld bc, 15616 
210 BEM ld a, 45 
220 REM call 58217 
230 BEM ld hl. 223 
240 REM ld (57356) ,hl 
250 BEM ret 

Na última parte de Avalanche, você 
teve que analisar a cor do caractere que 



Se Willie for mortalmente atingido 
pela pedra, a variável no endereço 57336 
deve ser igualada a 2. Para isso, colo- 
camos 2 no acumulador e carregamos 
seu conteúdo em 57336. 



A PEDRA ESTÁ ROLANDO 



Inevitavelmente, a pedra irá rolar 
uma posição à esquerda. Se Willie não 
estiver pelo caminho, nem se preocupe. 
Caso contrário, você pode ter a certeza 
de que ele foi esmagado. 

O par HL é carregado com a nova 
posição da pedra na tela. O acumulador 



Witlie precisará ter muito cuidado 
agora. As pedras estão prontas 
para rolar morro abaixo. E, nesta 
segunda parte da rotina, descerão 
numa avalanche sobre ele. 



estava logo abaixo da pedra, para verifi- 
car se ela tinha chegado à água ou se es- 
tava rolando. Agora, será preciso checar 
a cor da posição onde a pedra será im- 
pressa, para saber se ela conseguirá 
atingir Willie. 

A posição de impressão da pedra é 
transferida dos endereços 57356 e 57357 
para o par HL. Não se esqueça de que 
a variável de posição da pedra, que está 
nesses endereços, foi decrementada no 
fim da primeira parte desta rotina. As- 
sim, quando a rotina é novamente cha- 
mada, a variável está apontando para a 
posição à esquerda da pedra. Saltando 
para essa seção da rotina, o programa 
imprime a segunda figura da pedra no 
local indicado — uma posição à esquer- 
da da anterior — , para dar a impressão 
de que está em movimento. 

O par DE é carregado com 22528, va- 
lor adicionado em seguida ao conteúdo 
de HL. O resultado, que aponta para a 
cor da posição onde a pedra será impres- 
sa, permanece no par HL. 

Utilizamos o apontador em HL para 
obter a cor da posição e carregá-la no 
acumulador por meio de endereçamen- 
to direlo. Essa cor é comparada com 40, 
que corresponde ao código de azul so- 
bre fundo azul ciano, a cor de Willie 
contra o céu. 

Se a cor nessa posição não é 40, a pe- 
dra não atingirá Willie, e a instrução jr 
nz.bnh faz o processador pular as pró- 
ximas instruções. 




A é carregado com 42 — vermelho so- 
bre fundo ciano — e o par BC, com 
57128, que corresponde ao endereço ini- 
cial dos dados para a segunda figura da 
pedra, que ocupa duas posições na te- 
la. A rotina prinl é chamada e imprime 
a primeira metade da pedra (a porção 
esquerda). O par HL é incrementado — 
o que faz o apontador se mover uma po- 
sição para a direita. A rotina print é no- 
vamente chamada, imprimindo a segun- 
da metade da pedra. 

Como você verá, a segunda pedra se 



DA SEGU ND A PEDR A 



FIM DA E NCOSTA 



EFEITO DE ANIMA ÇÃO 
WILLIE FOI ATINGIDO? 
MORT E DO INFELIZ 



MERGULHO NO MAR 

DE VOLTA AO T OPO 

A AVALANCHE RECOMEÇA 
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desloca meio caractere de cada vez, pois 
ocupa duas posições na tela. Essa estru- 
tura de duas metades faz com que o mo- 
vimento seja muito mais suave e contí- 
nuo, acentuando a impressão de que a 
pedra está rolando. 

Note que, movendo a pedra um ca- 
ractere para a esquerda (como fizemos 
na primeira parte da rotina) e, depois, 
meio caractere, mantemos um avanço 
tão suave na posição em 57356 e 57357 
que não há necessidade de verificar se 
a pedra ainda está no chão. 



Agora, basta que igualemos a variá- 
vel do tipo de pedra a 0, para que, quan 
do a rotina for chamada de novo, o pro- 
cessador execute a outra parte. Para is 
so, colocamos 0 no acumulador e ca 
regamos o conteúdo de A em 57358 



RECOMEÇA A AVALANCHE 



A rotina bri é chamada pela primei- 
ra parte da rotina de movimentação 
sempre que a pedra chega ao fim da en- 



costa ou atunda nas aguas do mar. A 
função de bri consiste em apagar a pe- 
dra da sua posição atual e reajustá-la pa- 
ra o topo da encosta. 

A operação de apagar a pedra é feita 
como de costume. Sua posição é trans- 
ferida de 57356 e 57357 para HL; o par 
BC é carregado com o endereço inicial 
dos dados (que estão na ROM) para um 
espaço vazio e o acumulador A, com o 
valor 45, que corresponde ao código de 
ciano sobre fundo ciano. Chamaoa em 
seguida, a rotina print imprime um ca- 
ractere cor do céu sobre a pedra, fazen- 
do-a desaparecer da tela. 

O par HL é carregado com 223, po- 
sição da pedra na tela quando ela se en- 
contra no topo da montanha. Esse va- 
lor é colocado de volta nos endereços 
57356 e 57357, para que a rotina de mo- 
vimentação da pedra comece nessa po- 
sição, quando for novamente chamada. 



A rotina aqui apresentada tem duas 
seções principais. Ambas são chamadas 
pela parte do programa publicada no ar- 
tigo anterior da série Avalanche. A pri- 
meira delas, que começa no rótulo BOK, 
seleciona e imprime na tela um dos dois 
padrões de pedra. Em seguida, troca o 
valor da variável que controla esses pa- 
drões, para que a outra figura seja im- 
pressa na próxima vez. 

A segunda seção, que começa no ró- 
tulo BRI, apaga a pedra se ela tiver che- 
gado ao fim da encosta ou à água, re- 
colocando-a no topo do morro. 

Assim que tiver digitado e montado 
as linhas que se seguem, a rotina de mo- 
vimentação da pedra estará pronta pa- 
ra funcionar. Mas lembre-se de que vo- 
cê deve ter o resto do jogo na memória, 
já que outras rotinas, como CHARPR, 
por exemplo, serão chamadas. 

10 o hg 19653 
20 BOK LDA 18260 
30 BEQ BMN 
40 LDX 18253 
LDU 116038 
JSR CHARPR 
CLR 18260 
RTS 

BMN LDX 18253 
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L8C 
190 
200 
210 



LDU #18014 
JSR CHARPR 
LDA #1 
STA 18260 
HTS 

BR 1 LDX 18253 
LDU #1536 
JSR CHARPR 
LDX #30 70 

STX 18253 
RTS 

CHARPR EQU 19402 



Existem, na memória, dois padrões 
diferentes da pedra, que são impressos 
na tela alternadamente, dando a impres- 
são de que a figura está rolando. 

Para a criação desse efeito, o proces- 
sador precisa saber qual das duas figu- 
ras foi impressa na última vez. Obtém 
tal informação consultando uma baliza 
no endereço 18260. O conteúdo dessa 
posição é carregado no acumulador. Se 
for 0, a instrução BEQ BMI salta para 
a rotina que imprime uma das figuras 
da pedra. Se não for, o programa con- 
tinua e imprime a outra. 



Caso o programa continue, X é car- 
regado com o conteúdo da posição de 
memória 18253. Esse endereço armaze- 
na a posição onde a pedra irá ser impres- 
sa. O registrador U é carregado com o 
número 1 8038, endereço inicial de uma 
das figuras da pedra. 

O processador salta para a rotina 
CHARPR, que imprime os últimos oito 
bytes da pilha do usuário na posição de 
tela que está sendo apontada pelo con- 
teúdo do registrador X. 

A instrução CLR 18260 altera a ba- 
liza no endereço 18260. O processador 
a executa quando a baliza tem valor [. 
CLR 18260 apaga esse valor, colocan- 
do 0 em seu lugar. Assim, na próxima 
vez que a rotina da pedra for chamada, 
o processador se encarregará de execu- 
tar a outra parte e imprimir a segunda 




figura da pedra. Depois, a baliza é ze- 
rada e o processador retorna. 

A parte seguinte dessa rotina simples- 
mente imprime a outra figura da pedra. 
O registro é carregado com o mes- 
mo valor, mas o apontador da pilha do 
usuário, U, é carregado com o endere- 
ço inicial na memória da outra figura da 
pedra, 18104. Em seguida, a rotina 
CHARPR é chamada e realiza a impres- 
são na tela. O processador executou es- 



sa parte da rotina porque a baliza em 
18260 tinha o valor 0. Consequentemen- 
te, 1 é carregado no acumulador e ar- 
mazenado em 18260. A troca da baliza 
faz com que, na próxima vez, a outra 
figura da pedra seja impressa. 

A rotina BRI é chamada quando a 
pedra chegou ao fim da encosta ou atin- 
giu a água. Sua função consiste em apa- 
gar a pedra e inicializar sua posição pa- 
ra o topo da montanha. A instrução 




LDX 18253 carrega no registrador X a 
posição atua] da pedra na leia; U é car- 
regado com o endereço inicial de um ca- 
ractere de céu na memória. A rotina 
CHARPR imprime, então, um bloco de 
céu sobre a pedra, apagando-a. 

O registrador X é carregado com 
3070, posição inicial da pedra na tela 
quando ela se encontra no topo da mon- 
tanha. Esse valor é armazenado em 
18253, a variável que carrega a posição 



em que a pedra será impressa na próxi- 
ma vez. 

Para testar a rotina de movimentação 
da pedra, execute estas linhas em BA- 
SIC com o resto do programa. 
5 POKE 30000.57 
10 EXEC 19426 
20 EXEC 19781 

30 FOR K-l TO 100:NEXT:GOTO 20 

A linha 5 só será necessária se você 
tiver feito a gravação da rotina da mú- 
sica separadamente. 



A rotina que apresentamos a seguir 
tem duas seçòes principais. Ambas são 
chamadas pela parte do programa pu- 
blicada no artigo anterior da série A va- 
lanche. A primeira seção imprime a se- 
gunda figura da pedra, que se alternará 
com a primeira, dando a impressão de 
que a pedra está rolando. Além disso, 
verifica também se nosso personagem 
foi atingido pela pedra. 

A segunda seção apaga a pedra caso 
ela tenha chegado ao final da encosta ou 
ã superfície do mar e inicializa sua po- 
sição no topo da montanha. 

Depois de digitar e montar as próxi- 
mas linhas, a rotina de movimentação 
da pedra estará completa e pronta para 
funcionar. Mas lembre-se de que o res- 
to do jogo precisa estar na memória, 
pois as tabelas de padrões e de cores são 
necessárias nesta rotina. Para obter o 
efeito desejado, é preciso, também, que 
a montanha esteja na tela. 

org 54530 
ld hl. (62407) 
ld de. (-5200) 
add hl.de 

call 74 
cp 1 




,bn 



cp 5 
jr z,1 
cp 7 



cp 11 

bn lda.Z 
ld (-5201) ,a 
bu pop hl 

ld A. 17 

puah hl 
call 77 

inc hl 
ld a, 19 
call 77 
ld a.O 

ld (-5195) ,a 

org -10953 
ld hl. (62407) 
ld de, (-5200) 
add hl.de 
ld a, 255 
C»ll 77 
ld hl, 255 
ld (-5200) ,hl 
ret 



Na primeira parte da rotina de mo- 
vimentação, você teve que examinar o 
padrão que estava logo abaixo da pedra, 
para verificar se ela tinha afundado no 
mar ou se estava rolando. Identificare- 
mos agora o padrão que está na posi- 
ção onde a pedra será impressa, para sa- 
ber se ela atingirá ou não Willie. 

A posição de impressão da pedra, 
que está armazenada em - 5200 e 
- 5199, c colocada no par DE. Lembre- 
se de que a variável de posição da pe- 
dra, que estava nesses endereços, foi de- 
crementada no fim da primeira parte 
desta rotina. Assim, quando a rotina é 
novamente chamada, a variável está 
apontando para a posição à esquerda da 
pedra. Ao executar essa parte da roti- 
na, o processador imprime a segunda fi- 
gura da pedra, dando a impressão de 
que ela está rolando. 

O par HL é carregado com o endere- 
ço inicial da Tabela de Nomes da VRAM 
(TN). A posição que está em DE é so- 
mada ao endereço em HL, que passa a 
conter cfetivamenle o endereço equiva- 




Ti 
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LEITURA E ESCRITA 
NA VRAM DO MSX 

A VRAM é tratada pelo MSX como 
se fosse um periférico. Portanto, sào 
necessários alguns artifícios para colo- 
carmos dados nessa memória auxiliar, 
especialmente em linguagem de máqui- 
na, quando não dispomos dos coman- 
dos VPEEK e VPOKE. 

Em nosso jogo, usamos cinco roti- 
nas para escrever e ler na VRAM. Seus 
endereços são: 74. 77, 86, 89 e 92. 
Todas empregam os comandos OUT e 
IN para escrever e ler através da porta 
1 52. As rotinas dos endereços 80 e 83 
controlam o destino do byte enviado 
por essa porta. 



lente a essa posição na tela. Em segui- 
da, o valor de HL é guardado na pilha, 
sendo utilizado na impressão da pedra. 

A rotina 74 da ROM é chamada. Ela 
coloca no acumulador o valor da posi- 
ção da VRAM apontada por HL, ou se- 
ja, realiza a leitura da VRAM. O acu- 
mulador passa o conter o código do pa- 
drão que está à esquerda da pedra. Es- 
se código é comparado com 1 , 5, 7 e 1 1 , 
valores que correspondem aos diferen- 
tes desenhos das pernas de Willie. Caso 
o valor lido não seja nenhum desses, a 
instrução jr nz.bu faz o processador pu- 
lar as próximas instruções. 



Se o pobre Willie tiver sido mortal- 
mente atingido pela pedra, a variável no 
endereço - 5201 deve ser ajustada com 
o valor 2. Para isso, colocamos 2 no 
acumulador c carregamos o conleúdo 
deste em -5201. 



Inevilavelmente a pedra irá rolar uma 
posição à esquerda. Se Willie não esti- 
ver nessa posição, não se preocupe. Ca- 
so contrário, podemos ter a certeza de 
que ele foi esmagado. 

A posição na Tabela de Nomes da 
VRAM é recuperada da pilha, voltan- 
do para o par de registros HL. O acu- 
mulador A é carregado com o código do 
primeiro padrão da figura da pedra (a 
metade esquerda será impressa primei- 
ro). O valor de HL é novamente carre- 
gado na pilha, pois será usado na im- 
pressão da outra metade. A rotina 77 da 
ROM é chamada. Ela coloca o valor 
contido no acumulador na posição na 
VRAM apontada por HL. Já a utiliza- 
mos várias vezes na série Avalanche. 

O endereço da VRAM é recuperado 
da pilha para HL. onde è incrementa- 
do. Esse par de registros passa, então, 
a apontar para uma posição à direita na 
tela, onde será impressa a metade que 
está faltando. O acumulador é carrega- 
do com 19, o código dessa metade, e a 
rotina 77 é chamada outra vez. 

A segunda figura da pedra ocupa 
duas posições na tela, movendo-se meio 
caractere de cada vez. Essa estrutura de 
duas metades faz com que o movimen- 
to se realize de modo muito mais suave 
e contínuo, acentuando a impressão de 
que a pedra está rolando. 

O deslocamento da posição da pedra, 
um caractere para a esquerda (como 
ocorreu na primeira parte da rotina) e, 
depois, meio caractere, mantém uma va- 
riação tão suave na posição em - 5200 
e - 5199, que não há necessidade de ve- 
rificar se a pedra está no chão. 

Agora, falia apenas um detalhe: ajus- 
tar a variável do tipo de pedra a 0, para 
que, quando a rotina for novamente 
chamada, o processador execute a ou- 
tra parte. Para isso, colocamos 0 no acu- 
mulador e carregamos seu conteúdo no 
endereço —5195. 




Por que não usamos sprites para repre- 
sentar as pedras no MSX? 

Os sprites poderiam, de fato, apre- 
sentar algumas vantagens sobre os blo- 
cos gráficos. Com eles. obteríamos os 



Mas não foi sem razão que optamos 
pelos blocos gráficos. Primeiro, só é 
permitida uma cor no sprite. Além dis- 
so, a detecção da colisão de um sprite 

to o programa. Por fim, não poderíamos 
ter. como requer o jogo, mais do que 
quatro figuras simultaneamente na 



RECOMEÇA A AVALANCHE 



A rotina mo é chamada pela primei- 
ra parte da rotina de movimentação 
sempre que a pedra chega ao fim da en- 
costa ou atinge o mar. Ela apaga a pe- 
dra da sua posição atual e reajusta essa 
posição para o topo da montanha. 

Para apagar a pedra, o endereço ini- 
cial da TN da VRAM é colocado no par 
de registros HL. A esse endereço soma- 
se a posição aluai da pedra, que está em 
DE. O valor 255, que corresponde ao 
código do padrão de céu, é colocado no 
acumulador. A rotina 77 é chamada e 
imprime o padrão de céu na posição que 
a pedra ocupava. 

O par HL é carregado com 255, a po- 
sição da pedra no topo da encosta. Es- 
se valor volta para -5200 e -5199. 
Quando a rotina de movimentação for 
chamada, a pedra estará nessa posição. 
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DISCOS 

RÍGIDOS 
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0 QUE E UM DISCO RÍGIDO 


■ 


CAPACIDADE E VELOCIDADE 


■ 


COMO CONECTAR 


UM DISCO RÍGIDO 


■ 


APLICAÇÕES 



Embora muito úteis, os disquetes têm 
um inconveniente: a baixa capacidade 
de armazenamento. Se você precisa de 
maior espaço de memória e velocidade 
de acesso, o disco rígido é a solução. 



Em artigos anteriores, discutimos as 
características e as vantagens dos discos 
flexíveis (também chamadosjloppies ou 
disquetes) para os usuários de micro- 
computadores. Esses periféricos são for- 
midáveis, em termos de capacidade de 
armazenamento, facilidade de uso e ve- 
locidade de acesso, quando comparados 
com oulras formas de gravação magné- 
tica de informação. 

Entretanto, também apresentam des- 
vantagens. A principal é a incapacida- 
de de atender a demandas de armazena- 
mento maiores do que as habituais. 

Os disquetes de face simples (para as 
linhas TRS-80, TRS-Color, Apple c 
TK-2000) têm capacidade em torno dos 
160-180 Kbytes. Pode parecer muito, 
mas é suficiente apenas para cerca de 
noventa páginas de texto, ou alguns pro- 
gramas c arquivos de dados pequenos. 
Os disquetes de dupla face têm capaci- 
dade de armazenamento de cerca de 
320-360 Kbytes — o que também não é 
muito, considerando-se a espantosa ra- 
pidez com que um usuário médio enche 
até centenas de disquetes. 

Nào seria interessante ter todos os 
programas e arquivos de dados em um 
único disco? Para isso, existe uma so- 
lução: o disco rígido. Embora ainda se- 
ja um periférico muito caro (sobretudo 
no Brasil), seu preço tende a se tornar 
acessível. Não há exagero em afirmar 
que, mais cedo ou mais tarde, todos os 
micros pessoais serão vendidos com uma 
unidade embutida de disco rígido, co- 
mo já ocorre com os micros profissio- 
nais da linha PC-XT. 



0 QUE Ê UM DISCO RÍGIDO 



O disco rígido {hard disk, em inglês) 
é feito de metal, e não de plástico flexí- 
vel, como o disquete. Por essa razão, 
apresenta mais estabilidade térmica e es- 



trutural, o que lhe permite maiores ve- 
locidades de rotação (e acesso) e maior 
densidade de gravação. Essas caracterís- 
ticas resultam numa grande capacidade 
de armazenamento. 

A desvantagem do disco rígido é que, 
em geral, ele não pode ser removido e 
trocado facilmente por outro, como o 
disquete, pois é fixo dentro da unidade 
acionadora. Existem unidades de disco 
rígido que são totalmente intercambiá- 
veis — inclusive a cabeça de gravação 
e leitura. 

Nos discos rígidos mais utilizados pa- 
ra micros, a cabeça de gravação e leitu- 
ra nunca entra em contato com a super- 
fície do disco, como acontece com o dis- 
quete. Ela "sobrevoa" a superfície a 
uma distância muito pequena (a alguns 
milésimos de milímetro); por isso, o. des- 
gaste da superfície ferromagnética é pra- 
ticamente nulo. 

Esse sistema garante maior durabili- 
dade à unidade, mas requer que ela se- 
ja isolada do exterior, por meio de vá- 
cuo ou fluxo forçado de ar. A partícula 
mais ínfima de poeira ou fumaça que se 
introduzir entre a cabeça e o disco pode 
danificá-lo. 

Essa tecnologia é conhecida como 
Winchester, denominação que se costu- 
ma estender aos próprios discos rígidos. 
Como ela envolve dispositivos mecâni- 
cos e eletrônicos complexos e delicados, 
os custos dos discos rígidos tornam-se 
bem mais caros. 



CAPACIDADE E VELOCIDADE 



A capacidade de armazenamento dos 
discos Winchester é espantosa. Os de 
menor capacidade têm por volta de 5 
Mbytes de espaço (5 milhões de caracte- 
res), o que equivale a cerca de trinta dis- 
quetes de face simples! 

São cada vez mais populares os dis- 
cos rígidos de 10, 15 e 20 Mbytes, em- 
bora as maiores capacidades possam ser 
usadas apenas por micros de 16 e 32 bits. 
Mas já existem discos de boa capacida- 
de para o Apple e o TRS-80. 

A velocidade do disco rígido é cerca 
de vinte a trinta vezes maior que a dos 
disquetes, dependendo do modelo. Isso 
faz uma enorme diferença no momento 



de carregar um programa extenso na 
memória do micro. 



COMO CONECTAR UM 0ISC0 RÍGIDO 



Desde que existam modelos de disco 
rígido disponíveis para o seu microcom- 
putador, você não terá dificuldades em 
utilizar este periférico. 

Em primeiro lugar, será necessário 
uma interface controladora — uma cai- 
xinha ou placa, que pode ser conectada 
ao computador (internamente, por 
exemplo, nos micros da linha Apple), 
facultando-lhe o controle e intercâmbio 
de dados com a unidade de disco. 

Muitos micros de oito bits têm pla- 
cas de controle para disquetes que já in- 
cluem o controlador de discos rígidos. 
Em alguns casos, porém, é preciso ad- 
quirir uma interface própria. 

A unidade de disco rígido é apresen- 
tada normalmente em duas versões: em 
gabinetes separados do console do com- 
putador, e em "gavetas" que podem 
ser inseridas no local destinado a uma 
unidade acionadora de disquetes. Em 
alguns computadores (como os PC) 
é possível instalar a unidade Winches- 
ter em espaço reservado no gabinete da 
UCP, sem tomar o lugar de um disquete. 

Não convém dispor apenas do disco 
rígido: é melhor ter também uma ou 
duas unidades de disquetes — sõ assim 
poderemos obter a cópia cautelar (back- 
up) do disco rígido e a transferência de 
programas e dados. 

O disco rígido tem de fato a desvan- 
tagem de requerer frequentemente có- 
pias de seu conteúdo em disquete, pois, 
se ocorrer um defeito, a perda é total. 
Por isso, muitos usuários adquirem jun- 
to com o Winchester uma unidade de fi- 
ta de back-up (chamada sireamer), que 
possibilita a execução dessa cópia de 
uma vez só, e em poucos minutos. 

Resta considerar a fonte de alimen- 
tação. O disco rígido gasta mais ener- 
gia do que uma unidade de disquetes, 
exigindo, quase sempre, uma fonte de 
alimentação separada da UCP. Alguns 
fabricantes vendem a unidade de disco 
rígido com fonte própria de alimenta- 
ção, o qual é muito conveniente, sobre- 1 
tudo se a unidade não é interna. 
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ELETRÔNICÂ(2) 



Descubra para onde vai o seu dinheiro 
ou planeje o futuro de seus negócios ' 
utilizando esta prática planilha. 
Adicione mais uma parte ao programa 
iniciado no artigo anterior, 



Quando uma planilha começa a ser 
planejada e está como uma folha em 
branco, muitas vezes ainda não sabemos 
exatamenle de que maneira iremos apro- 
veitá-la. Os exemplos dados no artigo 
anterior e as sugestões que aqui apresen- 
tamos vão ajudá-lo a definir uma pla- 
nilha que seja realmente útil. O progra- 
ma permite a montagem de diversas pla- 
nilhas, que você poderá gravar e recar- 
regar a qualquer momento. 

Uma planilha para registrar e plane- 
jar suas despesas domésticas, onde as 
entradas aparecem sob títulos como alu- 
guel, transporte, saúde, consertos etc. 
constitui uma boa opção. Mas, se você 
tem que fazer um número muito gran- 
de de consertos ou reformas na casa, por 
exemplo, pode ser interessante montar 
uma planilha só para eles. Nesse caso, 
separe os diferentes tipos de reforma — 
estofamento dos móveis, decoração, 
troca das telhas e calhas, colocação de 
grades nas janelas — , especificando as 
quantias gastas mensalmente ou trimes- 
tralmente com cada um. O programa se 
encarregará de fornecer os valores totais 
para cada categoria, assim como seu pe- 
so relativo no conjunto dos gastos com 
reformas. 

Uma outra folha pode incluir as des- 
pesas da família com itens como ali- 
mentação, vestuário, educação, saúde, 
transporte e lazer. Utilize-a para listar 
esses gastos por semanas, meses ou por 
pessoas da família. 

Mas lembre-se de que pode recorrer 
à planilha para manipular qualquer ti- 
po de informação que necessite de uma 
organização lógica. Uma planilha para 
sócios de um clube pode conter, por 
exemplo, os nomes, telefones e mensa- 
lidades pagas, assim como os compare- 
cimentos a reuniões. 

Qualquer que seja sua escolha, a pla- 
nilha se revelará um excelente instru- 
mento de controle. Se você consultar o 
artigo da página 201 , verá que ela nada 
mais é que uma sofisticada matriz bidi- 
mensional. Permite um controle maior 
dos dados porque comporta o uso de 
fórmulas, o que torna possível a obten- 
ção imediata dos resultados. 

Aplicações financeiras constituem o 
tipo mais frequente de uso. Mas as va- 
1134 riações, nessa área, também são ilimi- 



tadas. Planilhas podem conter detalhes 
de pedidos, descrições de itens, evolu- 
ção nos custos, descontos etc. São úteis, 
também, na elaboração de folhas de pa- 
gamento, fornecendo listagens dos no- 
mes dos empregados e calculando horas 
trabalhadas, salários e adiantamentos. 
Sua cooperação é, ainda, valiosa no 
controle de estoque e contas, em geral; 
no planejamento de orçamentos defír- 
mas e em muitos outras tarefas ligadas 
ao setor empresarial. 



A parte do programa aqui listada de- 
ve ser adicionada à que apresentamos no 
artigo anterior. As linhas restantes se- 
rão dadas no último artigo da série, que 
conterá instruções detalhadas sobre o 
uso do programa. Assim, carregue a lis- 
tagem anterior, digite esta e grave o pro- 
grama para, depois, acrescentar a ter- 
ceira parte. 



420 FOR . 



■ Ec TO c: FOR b-fr 



TO 



130 IF z5<3,2)--C- THEN LET v 

(2) -v(2)+l: LET v (4) -v (4) * (v ( 3 
)OZ6) 

440 IF zS(3,2)-"R" THEN LET v 

(3) -v(3)+(v{3)<>26) : LET v(l> = 
vCl)+l 

450 IF v(l)<25 AND v(2)<31 AND 
v<3)=26 THEN GOTO 470 
460 IF v(l)>24 OR v(2)>30 OR v 
(3)>24 OR v(4)>30 THEN GOTO 
570 

470 IF vUKl OR v ( 2 ) <1 OR v(3 
)<1 OR v(4)<] THEN GOTO 570 
480 LET a$=CHR$ <v ( 1 ) +64) +STRS 
v(2)+CHR5 <v(3)+64)+STRS v(4)+ 
°S 

490 LET c=LEN a$: IF c>8 THEN 
RETURN : B ESTORE 1630; FOR q-1 
TO 11: LET E*>0 : READ m$: FOR u 
-1 TO c 

500 IF mS(w)="A" THEN GOSUB 
1650: TF E THEN GOTO 560 
510 IF m$(w)="N" THEN GOStJB 
1670: IF f THEN GOTO 560 
520 IF mS(w)-"Z" THEN GOSUB 
1710: IF f THEN GOTO 560 
530 IF mS(u)-"0" THEN GOSUB 
1690: TF E THEN C.OTO 560 
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540 NEXT w: LET z-q: GOSUB 
1140! IF NOT f THEN L.ET aS = " 

" : FOR w-l TO c : LET hS 
(u)-aSíwi: NEXT w: LET dS(b.a, 
9 TO L6)-a$: LET dS<b.a,18)- 
CHRS z: LET dS(b.a,17)="I": 
NEXT b: NEXT a: RETURN 
550 GOTO 570 
560 NEXT q 
570 RETURN 

580 LET e-c: LET a$-" 

590 PRINT »1;AT O.X; EiRIGHT 1; 

600 PAUSE 0: LET i=CODE INKEYS 
610 IF í>B8 THEN GOTO 600 
620 IF i=13 THEN GOTO 650 
630 IF 1=12 THEN LET aS(4-e)= 
" " : LET e-e+1 : LET x-x-1 
640 LET aS(4-e)-CHRS l! PRINT 
|1;AT O.xjCHRS i: LET x-x+1 : 
LET e=e-l: IF e>0 THEN PAUSE 
10' GOTO 590 

650 IF e>l AND {(3 = 1 OR d = 4 OP 
d-5) THEN GOTO 590 
655 IF e>0 AND (<J-2 OR d-3) 
THEN GOTO 590 

660 PAUSE 10: PRINT 11; AT 0,0; 

" r RETURN 
670 LET 1S-" 
680 FOR 1-1 TO 3 
690 LET Í3=i3+(a5(z) AND aS(z) 
<>■ ") 
700 NEXT z 

710 IF LEN 13=3 THEN IF iS(l) 
<-A" OR 1S(1)>"X" OR i${2)<"0* 
OR iS(2)>"9" OR i$(3)<"0" OH i 
S(3)>"9" THEN LET RETURN 

720 IF LEN iS-3 THEN IF VAL 
13(2 TO 3}=0 OR VAL iS(2 TO 3) 
>30 THEN LET f-1 : RETURN 
730 IF LEN uS=2 THEN IF iS(l) 
<"A" OR lSd>>"X" OR 1S(2)<"1- 
OR lS(2) >"9" THEN LET £=1 : 
RETURN 

740 IF d = 2 THEN IF ÍS(U<>"A" 
AND iSU)0"R" THEN LET f-1: 
RETURN 

750 IF d = 3 THEN IF iS(DO"C" 
AND i$(lX>"R" THEN LET f-1: 
RETURN 

760 LET zS(d,2 TO LET zS 

(d.D-CHRS (LEN lS+48): LET f- 
0: RETURN 

770 LET fc=(CODE z3{4,2)>-64: 
LET tcMCODE zS(5. 2)1-64: LET 
fr=VAL iS(4.3 TO (1+VAL zS (4 , 1 



)J): LET tr-VAL zS(5.3 TO (1+ - 
VAL zS(5.1))) 

780 TF z$I3,2)="C- THEN IF fc 
Otc OR fr>tlr THEN LET f = l: 
RETURN 

790 IF zSU.2)="R" THEN IF fc 
>tc OR frOtr THEN LET £ = 1: 
RETURN 

800 LET f-0: RETURN 

BIO FOR y=l TO 30: FOR x»l TO 

24: LET os-0 

B20 TF dS(Y.x,17)="l" THEN 
LET z-CODE dS(V,x,): GOSUB 880 
: GOSUB 1010: LET at-1 : LET a$ 
-STR3 t: LET os»LEN aS: IF t> 
99999.99 THEN LET ES(Y,x,l)= 
■5" 

830 IF oa>8 THEN LET at-oa-7 
840 IF oa = 0 THEN GOTO 860 
850 LET a$-" " : F0B U " B 

t TO oa: LET aS (u-st+1) -aS (u) : 
NEXT u: GOSUB 1410: LET dSlY.x 
. TO 8)-bS 

860 LET i-IN 32766: IF 1=252 
THEN PRINT *1 ;AT 0,0; PAPER 2 
; INK 7: "CALCULO ABANDONADO" : 
RETURN 

870 NEXT x: NEXT y: RETURN 
880 LET a$=dS(Y.x,9 TO 16} 
890 IF z = l THEN LET v(l)=( 
CODE h$U))-64: LET v{2)=VAL s 
$(2): LET v ( 3) - {CODE sS(3))-64 
: LET v(4)=VAL aS(4): LET oS = b 
3(5) : RETURN 

900 IF z=*2 THEN LET v(l)=( 
CODE sS(l))-64: LET v[2)=VAL b 
S(2 TO 3): LET v (3) -(CODE s${4 
)-64): LET v(4)-VAL sS<5): LET 
oS=bS(6) : RETURN 



D 



660 AS-DS(I.J) :BS-MIDS(AS,2) 
670 AT-ASC(AS) 

680 IF AT-128 THEN PRINT STRING 

SC. 32) ; : GOTO 720 

690 IF AT-129 OR AT-130 THEN PR 

INT USING "* í";B3;:GOTO 72 

0 

700 FOR U-l TO LEN(BS):IF MIDS! 
BS.U.l)OCHRS(32) THEN PRINT MI 
DS(BS.U.l) ; 
710 NEXT U 
720 RETURN 

730 C1-ASC(ZS)-64:C2-VAL(MIDS(Z 

S.2) ) :V=D(C1 ,C2> : RETURN 

740 PRINT §448 , "TRABALHANDO" 



750 FOR J-l TO RX 

760 FOR 1-1 TO CX 

770 D(I,J)-0:IF ASC (DS ( I . J) ) -12 

9 THEN D(I,J)-VAL{MIDS(DS(I.J) . 

2)) 

780 NEXT I.J 

790 FOR J=l TO RX 

BOO FOR 1-1 TO CX 

810 PRINT @44S. "TRABALHANDO NA 

CÉLULA " ;CHRS (1+64) ;MIDS(STRS(J 

) .2) 

820 IF ASC(DS(I.J))<>131 THEN 1 
130 

830 AS=MIDS (DS (I , J) .2) 
840 OS-MIDS (AS . 7,1) 
650 IF OS = "S." THEN 1050 
B60 IF OS-"S" THEN 1090 
870 ZS-LEFTS (AS . 3) 
880 GOSUB 7 30 

890 VI -V : ZS-MIDS { AS . 4 , 3) : GOSUB 
730 : V2-V 

900 DP=VAL(RIGHTS(AS.U) 

910 ON INSTR Cl.OPS.OS) GOSUB 1 

000 . 1010 , 1020 , 1030 . 1040 

920 OV-0:IF DP=0 THEN PU$ = "**M 

#*t" :MP=7 :GOTO 950 

930 PUS-STRINGS(7-{DP+1) ,"♦")+" 

"+STRINGS {DP , " I " ) :MP=7- (DP+1) 
940 IF LEN(PUS)>7 THEN RVS=" < 
OV>" :OV-l 
950 D{I,J)=RV 
960 IF RV<0 THEN MP-MP-1 
970 ML=LEN(MID$(STRS(INT(RV+.5> 
) .2) ) 

980 IF ML>MP THEN RVS- " <OV>": 
OV*l 

990 GOTO 1160 

1000 RV=V1+V1:RETURN 

1010 RV=V1-V2:RETURN 

1020 RV=V1*V2:RETURN 

1030 IF V2=0 THEN RV=0 : RETURN E 

LSE RV-V1/V2 :RETURN 

1040 RV-V1*V2/100:RETURN 

1050 P1-ASC(AS)-64:P2-ASC(MID5( 

AS . 4 . 1 ) ) -64 : C2-VAL (MIDS (AS .2,2) 

) :RV-0 

1060 FOR Cl-Pl TO P2 

1070 RV=RV+D(C1,C2) :NEXT 

1080 DP- VAL (RIGHTS (AS . 1) ) :G0TO 

920 

1090 P1-VAL(MIDS<AS,2,2)) :P2-VA 
L (MIDS (AS .5,2)) : Cl-ASC (AS) "64 : R 
V-0 

1100 FOR C2-P1 TO P2 

1110 RV-RV+D (Cl , C2) :NEXT 

1120 DP-VAL(RIGHTS(AS.D) :G0TO 

920 

1130 IF ASC(DS(I.J))<>128 THEN 



25 APLICAÇÕES 25 



1150 

1140 RVS=STRINGS(7,32> :GOTO 116 
0 

1150 RV3-MID$(DSU,J) ,2) 
1160 IF I>-CS AND K-CS+3 AND J 
>=RS AND J<=RS+11 THEN PRINT «{ 
J-RS)*32+35+ tI-CS)*7, "" ; :PF«1 E 
LSE PF-0 

1170 IF(ASC(DS(I.J))>=128 AND A 
SC(DS(I.J))<-130) OR OV-1 THEN 
1200 

11B0 IF PF=1 THEN PRINT USING P 

U$;RV; 

1190 GOTO 1210 

1200 IF PF=1 THEN PRINT USING" t 

I" ;RVS; 
1210 NEXT I.J 
12 2 0 RETURN 

1230 CLS:INPUT"DESEJA SALVAR ES 

TA FOLHA IS/N] " ;A3 

1240 IF A30"S" THEN 1340 

1250 LINE INPUT-NOME DO ARQUIVO 

: ':FS 

1260 OPEN "0".|-1.FS 

1270 FOR J-l TO RX 

12S0 FOR 1-1 TO CX 

1290 IF ASC(DS(I. J) )=U8 THEN 1 

320 

1300 Z$=DS(I.J) :MIDS(ZS.1.1)=CH 

RS (ASCIMIDS (ZS, 1 , 1) ) -95) 

1310 PRINT #-l,STRS(l) .STRS(J) : 

PRINT 1-1, ZS 

1320 NEXT I.J 

1330 CLOSE #-1 

1340 CLS:M0^1 : GOSUB 70 : RETURN 
1350 CLS:PRINT"DESEJA CARREGAR 
UMA FOLHA DO GRAVADOR ?":PRI 
NT" (O CONTEÚDO DA MEMORIA SEHA 

ADICIONADO AO DA FITA) " : INP 
UT *S / N ";AS 
1360 IF ASO"S" THEN 1480 
1370 PRINT"PRESSIONE <ENTER> PA 
RA CARREGAR O PRÓXIMO ARQUIVO D 
A FITA OU DIGITE NOME DO ARQ 
UIVO DESEJADO" ! PRINT 
1380 LINE INPUT"NOME DO ARQUIVO 

: "iFS 

1390 OPEN "I",i-1.FS 

1400 IF EOF(-l) THEN 1470 

1410 INPUT»-1,AS.B$:LINE INPUT* 

-l.CS 

1420 MID$(CS.1.1)=CHRS(ASC(MIDS 
(CS, 1.1)1+95 

1430 C1=VAL (A$) : C2-VAL (BS) : DS (C 
1,C2)-CS 

1440 IF C1>CX THEN CX=C1 



1450 IF C2>RX THEN RX-C2 
1460 GOTO 1400 
1470 CLOSE *-l 

1480 CLS :CC=1 :CR-1 : CS=1 :RS=1 : MO 
=1: GOSUB 70 : RETURN 

fffi 

660 AS-DS(I.J) :B3-MIDS(AS.Z) 
670 AT-ASC(AS) 

660 IF AT=.12B THEN PRINTSTRINGS 
17,32) ; :GOT0 720 

690 IF AT-129 OR AT-130 THEN PR 
INTUSING"\ \":BS;:GOT0 720 

700 FOR U=l TO LEN[BS):IF MIDS ( 
BS.U,l)OCHRS(32)THEN PRINTMIDS 

(BS.u.i) : 

710 NEXTU 
720 RETURN 

730 C1-ASC(Z$)-64:C2=VAL(MIDS<Z 

S.2)) :V»D(C1.C2) : RETURN 

740 LOCATE 0,20: PRINT"TRABALHAN 

DO. . ."iSPC(24) 

750 FOR J=l TO RX 

760 FOR 1-1 TO CX 

770 D(I,J)-0:IF ASC (DS (I , J) ) "12 

9 THEN D(I, J)=VAL(MIDSID$(I.J) . 

2)) 

780 NEXT I.J 

790 FOR J=l TO RX 

800 FOR 1-1 TO CX 

810 LOCATE 0,20: PRINT"TRABALHAN 

DO NA CEL " ; CHRS ( 1+64 ) ; MIDS (STR 

SÍJ) .2) 

820 IF ASC(DSU.J)K>131 THEN 1 
130 

830 AS-MIDS(DSd.J) ,2) 
840 OS-MIDSÍAS.7,1) 
850 IF 0S = "S." THEN 1050 
860 IF OS="S" THEN 1090 
870 ZS=LEFTS(AS,3) 
880 GOSUB 730 

890 V1-V:ZS-MIDS(AS.4,3) :GOSUB 
730:V2=V 

900 DP=VAL(RIGHTS(AS.1)> 

910 ON INSTRU.OPS.OS) GOSUB 10 

00 , 1010 . 1020 , 1030, 1040 

920 OV=0:IF DP = 0 THEN PUS = "IM* 

||#" :MP=7 :G0TO 950 

930 PUS=STRINGS(7-(DP+1) ,"*")+" 

"+STRINGS(DP."I") :MP=7-(DP+1) 
940 IF LEN(PUS)>7 THEN RVS=" < 
OV>" :OV-=l 
950 D(I,J)=RV 
960 IF RV<0 THEN MP=MP-1 
970 ML=LEN(MIDS(STRS(INT(RV+.5) 



) . £\ ) 

980 IF ML>MP THEN RVS-" <OV>" : 
OU-1 

990 GOTO 1160 

1000 RV-V1+V2 :RETURN 

1010 RV-V1-V2:RETURN 

1020 RV-V1*V2 :RETURN 

1030 IF V2-0 THEN RV=0 : RETURN E 

LSE RV-VI/V2:RETURN 

1040 RV-V1*V2/100:R£TURN 

1050 P1=ASC(AS)-64:P2-ASC(MID5( 

AS. 2. 2)) :RV-0 

1060 FOR C1=P1 TO P2 

1070 RV-RV+DIC1 ,C2) :NEXT 

1080 DP=VAL (RIGHT5 (AS . 1) ) :GOT0 

920 

1090 P1=VAL(MIDS(AS.2.2)) :P2=VA 
L (MIDS (AS, 5,2) ) :C1=ASC(A3)-64:H 
V=0 

1100 FOR C2=P1 TO P2 

1110 RV=RV+D (Cl , C2 ) :NEXT 

1120 DP=VAL(RIGHTS(AS. 1) ) :GOTO 

920 

1130 IF ASC(DS(I,J))<>128 THEN 
1150 

1140 RVS=STRINGS (7. 32} : GOTO 116 
0 

1150 RVS=MIDS(DS(I.J1 .2) 
1160 IF I>=CS AND K=CS+4 AND J 
>=RS AND J<-RS+15 THEN LOCATE ( 
I-CS)*7+3. (J-RS)+1:PF=] ELSE PF 
= 0 

1170 IF (ASC(DS(I.J))>=128 AND 
ASC(DS(I,J)X' 1 130) OR 0V=1 THEN 
1200 

1180 IF PF=1 THEN PRINTUSINGPUS 
;RV; 

1190 GOTO 1210 

1200 IF PF=1 THEN PRINTUSING"\ 

\" :RVS; 
1210 NEXT I.J 
1220 RETURN 

1230 CLS:INPUT"QUER GRAVAR ESTA 

FOLHA? (S/N) ';A3 
1240 IF ASO'S" THEN 1340 
1250 LINE INPUT "NOME DO ARQUIVO 
: ":F3 

1260 FS - "CAS : "+FS : OPEN FS FOR O 

UTPUT AS |1 

1270 FOR J-l TO RX 

1280 FOR 1-1 TO CX 

1290 IF ASC(DS(I,J))"12B THEN 1 

320 

1300 ZS-DS(I.J) :MIDS(2S.1.1)=CH 
RS (ASC (MIDS (ZS ,1.D) -90) 
1310 PRINTIl.STRS(I) ;",";STRS(J 
) :PRINT|1,Z$ 
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1320 NEXT I,J 
1330 CLOSE |1 

1340 CLS.-MO-l :GOSUB 70 : RETURN 
1350 CLS:INPUT"QUER CARREGAB UM 
A FOLHA DO TAPE? {NOTE QU 

E A FOLHA DA MEMÓRIA SERA COHBI 

NADA COM A NOVA) " ; A5 
1360 IF A3<>"S" THEN 14B0 
1380 LINEINPUT "NOME DO ARQUIVO 
: ":FÍ 

1390 FS-"CAS:"+FS:OPEN FS FOR I 
NPOT AS II 

1400 IF EOF(l) THEN 1470 

1410 INPUT |1.AS,BS:LINEINPUT I 

l.C$ 

1420 MIDS <CS.1.1)=CHRS (ASC (MIDS 
(CS .1,1)) +90) 

1430 OVAL (AS) :C2-VAL(BS) :DSIC 
1,C2)=CS 

1440 IF C1>CX THEN CX-C1 
1450 IF C2>RX THEN RX-C2 
1460 GOTO 1400 
1470 CLOSE #1 

1480 CLS : CC=l :CR=1 :CS-1 :RS-1 : MO 
= 1 : GOSUB 7 0 :BETURN 



ai 

660 AS - DS(I.J):BS • MIDS (AS 
.2) 

670 AU = ASC (AS) 

680 IF AU - 128 THEN PRINT S 

PC( 7) ; : GOTO 720 

690 IF AU - 129 OR AU - 130 TH 
EN PRINT LEFTS (BS.7); SPC{ 7 

- LEN ( LEFTS (BS.7))): GOTO 
720 

700 UU = 0: FOR U - 1 TO LEN { 
BS) : TF MIDS (BS.U.l) < > CH 
RS (32) THEN PRINT MIDS (BS.U 
. 1 ) ; : UU - UU + 1 

710 NEXT : PRINT SPC ( 7 - UU) 
720 RETURN 

730 Cl - ASC (ZS) - 64:C2 - V 
AL { MIDS (ZS,2)):V - D(C1,C2) : 
RETURN 

740 VTAB 21: HTAB 1: PRINT "TR 
ABALHANDO" 

750 FOR .1 = 1 TO RX 

760 FOR I = 1 TO CX 

770 D(I,J) - 0: IF ASC (DStI.J 

)) - 129 THEN D(I.J) - VAL ( M 

IDS (DSÍI..D .2)) 

780 NEXT ! NEXT 



790 FOR J - 1 TO RX 

800 FOR T = 1 TO CX 

BIO VTAB 21: HTAB 1: PRINT "TR 

ABALHANDO NA CEL "i CHRS (1+6 

4) i J 

820 IF ASC (DS(I.J)) < > 131 

THEN 1130 
830 AS = MID3 (DSCI..J) .2) 
840 OS - MIDS (AS. 7.1) 
850 IF OS - THEN 1050 

B60 IF OS = "S" THEN 1090 
870 ZS - LEFTS (AS. 3) 
880 GOSUB 730 

B90 VI - V:Z3 - MIDS (AS ,4,3): 

GOSUB 730:V2 - V 
900 DP - VAL ( RIGHTS (AS. D) 
905 IN - 1 

9)0 IF OS < > MIDS iOPS.IN.) 

) THEN IN - IN + 1: GOTO 9)0 

915 ON IN GOSUB 1000,1.010,1020 

,1030,1040 

920 OV - 0:MP - 7 

950 D(I.J) - KV 

960 IF PU ( 0 THEN MP = MP - 1 

970 ML = LEN ( STRS ( INT (RV 
+ -5) )) 

9B0 IF ML > MP THEN RVS = " < 

OV> - :0V - 1 

990 GOTO 1160" 

1000 RV - VI + V2: P.ETURN 

10L0 RV - VI - V2: RETURN 

1020 RV = VI * V2: RETURN 

1030 IF V2 - 0 THEN RV = 0: RE 

TURN 

1035 P.V = VI / V2: BETURN 

1040 RV - VI * V2 / 100: RETURN 

1050 PI ■= ASC (AS) - 64:P2 ' 
ASC ( MIDS (AS ,4,1) ) - 64:C2 - 

VAL { MIDS (AS ,2,21) : RV = 0 
1060 FOR Cl - PI TO P2 
1070 RV = RV + D(C1 ,C2) : NEXT 
10B0 DP - VAL ( RTGHTS (AS . 1 ) ) 
: GOTO 920 

1090 PI - VAL ( MIDS (AS ,2,2) ) 

:P2 - VAL ( MIDS (AS.5.2)):C1 

- ASC (AS) " 64 :BV - 0 

1100 FOR C2 = PI TO P2 

1110 RV - RV + DÍC1.C2): NEXT 

1120 DP - VAI. ( RIGHTS (A3.V)) 

: GOTO 920 

1130 IF ASC (DS(1 ,JJ) < >' 12 
8 THEN 1)50 
1140 RVS ■ " 

1150 RVS ■ MtDS lDS(T,.I) .2) 
1160 IF I > ■ CS AND TC - C 



S + 4 AND J > ■ RS AND J < ■ 
RS + 11 THEN VTAB J - BS + 2: 
HTAB (I - CS) * 7 + 4:PF - 1 : G 
OTO 1170 
1 L65 PF - 0 

1170 IF ( ASC (D$ (I . J) ) > " 1 
28 AND ASC (DS(I.J)Í < - 1 30) 

OR OV ■ l THEN ) 200 
1180 IF PF - 1 THEN PU TNT SP 
C( 7 - LEN ( LEFTS ( STRS (RV) 
,7))); LEFTS I STRS (RV),7): 
1190 GOTO 1210 

1200 IF PF = 1 THEN PRINT RVS 

1210 NEXT : NEXT 
I 220 RETURN 

1230 HOME : INPUT "QUFB GRAVAP 

ESTA FOLHA? (S/N) " : AS 
1240 IF AS < > *S" THEN 1340 
1250 INPUT "NOME DO ARQUIVO "; 
FS 

1261) PRINT DS;"OPEN " ; FS : PBIN 

T DS;"WRITE " : FS 

1270 FOR J = 1 TO RX 

1280 FOR I - 1 TO CX 

1290 IF ASC (DS(I-.ll) - 128 T 

HEN 1320 

1300 7.5 ' DS (1 . J) :ZS - CHRS ( 
ASC (ZS) " 90) + MIDS (ZS.2) 
1310 PRINT STRS (Di CHRS (13 
) ; STRS (J> i CHBS (13) ;ZS 
1320 NEXT : NEXT 
1330 PBINT DS: "CLOSE" 
1340 HOME :MO - ll GOSUB 70: B 
ETURN 

1350 HOME : INPUT "QUEB CARREG 
AR UMA FOLHA DO DISCO? (N 
OTE QUE A FOLHA DA MEMORIA SERA 
COMBI NADA COM A NOVA) (S/N 
) ■ iAS 

1360 TF AS < > "S" THEN 1480 
1380 INPUT "NOME DO ARQUIVO ": 
FS 

1390 PBINT DSi"OPEN " ; FS 
1400 PRINT DS ; "BEAD ";FS 
1410 INPUT AS.BS.CS 
1420 CS ■ CHRS ( ASC (CS) + 90 
) + MTDS (CS. 2) 

1430 Cl - VAL (AS):C7 - VAL ( 
BS) :DS(C1.CZ) = CS 
1440 IF Cl > CX THEN CX = Cl 
1450 IF C2 > BX THEN RX - C2 
1460 GOTO 1410 
1470 PRINT DS:"CLOSE" 
1480 HOME :CC - 1 : CR = 1 : CS - 
1:RS = l:MO - 1: GOSUB 70: GOTO 
320 
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44 PROGRAMAÇÃO DC JOGOS 44 



DASiNHÂ 



■ 


AS REGRAS DO JOGO 


■ 


DEFINIÇÃO DAS CORES 


■ 


0 COMPUTADOR DA AS DICAS 


■ 


ESCOLHA A MELHOR 


ESTRATÉGIA 



Aceite o desafio lançado por seu 
microcomputador neste clássico jogo 
de lógica. Será que você é capaz 
de descobrir as cores sorteadas 
pela máquina, na ordem correta? 



O objetivo de Senha é descobrir as 
quatro cores sorteadas pelo computa- 



dor, entre as seis possíveis, além da or- 
dem correta em que elas estão dispos- 
tas. Lembre-se de que pode ocorrer re- 
petição de cores. 

A cada tentativa, você deverá digitar 
as iniciais das cores — por exemplo, 
RLCC para roxo, laranja, cinza e cin- 
za. O computador, então, responderá 
com um çódigo, para ajudá-lo a decifrar 
o segredo. Para cada cor correta em po- 
sição errada ele imprimirá um caracte- 



re branco (ou a letra B), e quando a or- 
dem estiver correta, o caractere terá a 
cor preta (ou a letra P). É lógico que a 
ordem dos códigos não corresponde à 
das cores; isto tornaria o jogo muito fá- 
cil. Você tem doze chances para decifrar 
a senha. 

As cores usadas por cada programa 
são as seguintes: Amarelo, aZul, azul- 
Claro, Vermelho, Magenta e Branco pa- 
ra o micro Spectrum; Amarelo, aZul, 
Vermelho, azul-Claro, Magenta e La- 
ranja para o TRS-Color; Amarelo, Ver- 
melho, Roxo, Laranja, Magenta e Cin- 
za para o TK-2000, o Apple e o MSX. 



10 BOHDEB 0: INK 0 : PAPER 4: 
CLS ! t.ET MS-"671254": DIM C( 
4): DIM G(4): DIM F(4,2): LET 
C$-"AZVCM" 

14 PRINT AT 16,0;"CORES :"'*" 
A- AMARELO Z-AZUL C-AZUL CLARO 

V-VERMELHQ M-MAGENTA B-B 
RANÇO" 

15 FOR N-USR "A" TO USR "A'+7 
: READ A: POKE N, A : NEXT N 

17 DATA 0,24,60.126,126,60,24 

• 0 

20 FOR K-l TO 4: LET C IK) "VAL 

NSUNT (RND*5)+1): NEXTK: 
LET G-l 

30 INPUT "FACA A OPCAO ";BS 
35 IF L.EM BS<>4 THES GOTO 30 
90 PRINT AT G , 0 ; "OPCAO No. "; 
G ; AT 0,141! FOR K=l TO 4: LET 
G (K)M7«(BS(K)-"B - >) + <6"(BS{K 
)--A-))+(BS CK)-"Z")+(2*<BS(K) 
-"V") )+(5* (B$(K)-"C")]+(3*<B$ 



(IO 



"M" } ) 



92 1F G(K)~0 THEN LET K-4 : 
NEXT K : GOTO 30 
95 PRINT INK G (K) ; BRIGHT 1; 
CHRS 144: ! IF K<>4 THEN 
PRINT BRIGHT 1 ; " " ; 
97 NEXT K 
100 PRINT AT G.24; 
110 LET N=0: LET RS=" " ! F°R * 
-1 TO 4: LET F(K.l)-0: LET F(K 
,2)-0: IF GtK)-C(K) THEN LET 
RS-RS+- "+CHRS 16+CHRS 0+CHRS 
144: LET F(K,1)-1: LET F(K.2>- 
1: LET N'N+1 
120 NEXT K 

130 FOR K-l TO 4: IF F(K,1)-1 
THEN GOTO 170 
140 FOR J-l TO 4: 
THEN GOTO 160 
150 IF C(J)-G(K 



IF F(J,2)-1 
THEN LET RS- 
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RS + " "+CHRS 16+CHRS 7+CHRS 144 
: LET F(J.2)=1: LET J-4 
160 NEXT J 
170 NEXT K 

1B0 PBINT AT G.23;H$: INK 0: 
IF N-4 THEN PBTNT AT 2],0:"VO 
CE ACERTOU APOS ";G;" TENTATIV 
AS" : GOTO 230 

190 LET O-Q+l: IF G<13 THEN 
GOTO 30 

200 PBTNT "O CÓDIGO COHRETO EB 
A ";: FOR K-l TO 4: PRINT INK 
C(K);CHRS 144;" ";: NEXT K 
220 PRINT 

230 PBINT "JOGA NOVAMENTE ?" 
240 LET AS-INKEYS : IF A$-" 
THEN GOTO 240 

250 IF AS="S" THEN RUN : STOP 



10 DIM C(3) ,G(3) ,F(3,1) :CS-"AZV 
CML" 

20 CLS:FOR K-0 TO 3 : C (K) -RND (6) 
: NEXT :G-1: PBINT #8, "adivinhe o 

30 PRINT €416 , "TENTATIVA NO.";G 
;"? <EX: VZAC) " : PBINT «448 : BS- 

40 AS=INKEY$:1F AS = "" THEN 40 
50 IF AS-CHRSU3) AND LENIBS1-4 
THEN 90 

60 IF A$=CHRS(B) AND LEN(BS)>0 

THEN BS-LEFTS(BS.LEN(BS)-1) 

70 IF LEN(BS)<4 AND INSTRICS.AS 

K>0 THEN BS-BS+AS 

80 PRINT §446,8S:GOTO 40 

90 PRINT 632*G. "TENTATIVA" ;G; :F 

OR K-0 TO 3:G(K)-INSTR(CS,MID5( 

B5.K+1.1) ) :C-G(K)- (G(K)>3) 

100 PRINT §32*G+11+K«2,CHRS(143 

+C*16) i : NEXT 

110 N=0:RS-" ":FOR K-0 TO 3:F( 
K,0)-0:F(K.1)-0:IF G(K)=C(K) TH 
EN RS=RS+" "+CHHS(126) :F(K,0)"1 
:F(K,1)-1:N-N+1 
120 NEXT 

130 FOR K-0 TO 3 : IF F(K,0)-1 TH 
EN 170 

140 FOR J-0 TO 3:IF F(J.1)-1 TH 
EN 160 

150 IF C(J)»G(K) THEN RS-RS+" " 
+CHRSI207) :F(J.l)«l:J-3 
160 NEXT 
170 NEXT 

180 PRINT R5:1F N-4 THEN 200 
190 G-C+1:IF G = 13 THEN 210 ELSE 
30 

20O PRINT £416." VOCE ACERTOU A 
ROS" ;G ; "TENTATIVAS" : GOTO 230 
210 PRINT #416 . "EU GANHEI. O CO 
DIGO CORRETO ERA" 
220 FOR K-0 TO 3 : PRINT 644B+K*2 
," ";CHRS(143+C(K)*16-16*(C{K)> 
3! ) ; : NEXT 

230 PRINT : PRINT" JOGA NOVAMENTE 
? IS/N)" 

240 AS = INKEYS:IF ASO"S" AND AS 
<>"N" THEN 240 
■ 250 IF AS - "N" THEN CLS : END ELSE 



10 DIM C(3) ,G{3> ,F<3.1) :C3 = " 
AVRLMC" 

20 HOME : FOR K = 0 TO 3:C(K) 
■= INT (6 * RND (1) + 1] : NEXT 
K 

25 G = 1: PRINT TAB ( 6) "ADIVIN 
HE A SENHA (CORES :AVRLMC) " 
30 VTAB (23) : PRINT "TENTATIVA 
NUMERO ";G;" (EX : AVRL) : " : BS = 

40 GET AS 

50 IF AS = CHRS (13) AND LEN 

(BS) = 4 THEN 90 
60 IF AS = CHRS (8) AND LEN 
(BS) > 0 THEN BS - LEFTS (BS , 
LEN (BS) - D 

70 IF LEN (B$l < 4 THEN BS ■ 
BS + AS 

80 VTAB {G + 2): HTAB (21): PR 
INT BS : GOTO 40 

90 VTAB (G + 2) : PBINT "CHANCE 

NUMERO " ;G: 
92 FOB K-0 TO 3 : FOR I - 1 T 
O 6 

94 IF MIDS (BS.K + 1.1) * MI 
DS (CS.I.l) THEN G(K) - I: GOTO 

100 
96 NEXT I 
98 G(K) = 0 

100 C - G(K) - (G(K) > 3): NEXT 

105 N - 0:HS - " * 
110 FOR K = 0 TO 3:F(K,0) - 0: 
F(K.l) - 0: IF G(K) - C(K) THEN 
RS = RS + " " + "P":F(K,0) - 1 
:F<K,1) - 1:N ■ B + 1 
120 NEXT 

130 FOR K " 0 TO 3: IF F(K,0) 
= 1 THEN 170 

140 FOR J-0 TO 3: IF F(J,1) 
= 1 THEN 160 

150 IF C(J) - G(K) THEN RS = R 
3 + - - + "B":F(J,1) - 1:J ■ 3 
160 NEXT J 
170 NEXT K 

180 HTAB (2B) : PRINT HS: IF N 
- 4 THEN 200 

190 G = G + 1: IF G = 13 THEN 2 
10 

195 GOTO 30 

200 VTAB (22): PRINT " VOCE AC 
EHTOU A SENHA EM " (O) " CHANCES" 
: GOTO 230 

210 VTAB (22): PRINT " EU GANU 
El, A SENHA ERA " ; 
220 FOR K M TO 1: PRINT MTD 
3 (CS.C(K) .1) ; ■ NEXT 
230 HTAB (1): VTAB (2.3): PRINT 
" QUER JOGAR NOVAMENTE V (S/N ) 

240 GET AS 

250 IF AS - "S" THEN GOTO :!() 
260 END 




10 DTM C(3) ,G(3) ,F(3.1) :CS = "VAH 



Como chegar mais rapidamente à se- 
quência correia das cores? 

Ixiste apenas um segredo; obter o 
<imo de informações em cada joga- 
da. Com seis tentativas, por exemplo, 
lizando somente uma cor em cada. 
você descobrira facilmente as quatro 
cores da senha, mas nada saberá so- 
bre suas posições. Assim, convém ter 
sempre em vista ambos os objetivos. 
Talvez você perca mais tempo para 
chegar às cores correias, mas a defi- 
nição de suas posições na sequência 
será bem mais rápida. 

PRINT TAB (4 ) "ADIVINHE A SENHA 
[CORES ! V AR L.MC) " 

30 LO CATE 3.22: PRINT "TENTATIV 
A NO";Gi "? (EX : AVRL) " :B3-"" 
40 AS = TNKEYS:IF AS = " " THEN 40 
50 TF AS = CHRS<I3) AND L.EN(HS)=4 
THEN 90 

60 TF AS-CHRS(B) AND LEN(BS)>0 

THEN B$ = t,F.FT3(B$.l.EN<BS)-l> 

70 TF LEN(BS)<4 AND TNSTR (Cf. . AS 

)<>0 THEN B3=HS*-AS 

81) LOCATE 24,G+4:PRINT BS I GOTO 

40 

90 LOCATE 3.G+4 : PR lNT"Tent. at i V,3 
numero ";G;:FOR K-0 TO 3:G(K)= 
TNSTR (CS,MTDS(B3.K+1. 1) ) :C=G(K) 
-(G(K)>3) : NEXT K 

110 N-0:HS-" ":FOB K-0 TO 3:F( 
K.0)=0:F[K,1>-0:IF G(K)-CÍK) TH 
EN RS-RS+" "+"P":F(K.0)-t:F(K.l 
)=] 'N-N-H 
120 NEXT 

130 FOR K=0 TO 3:1F F(K.0)=l TH 
EN 170 

]40 FOR J-0 TO 3:TF F(J.1)=1 TH 
EN 160 

150 IF CCJJ-C(K) THEN RS-RS+" " 
+ "B" :F(J. 1) =1 : J=3 
160 NEXT 
170 NEXT 

180 LOCATE 28, G+4: PRINT RS I IF N 
=4 THEN 200 

190 G»G+1:TF G- 1 3 THEN 210 ELSE 
30 

200 LOCATE 1,21: PRINT" Você acer- 
tou a senha em ";Gí" chances" G 
OTO 230 

210 LOCATE 1,21:PRINT "Eu venci 

a flenha carreta era "|! 
220 FOR T-0 TO 3:PRINT MIDS(C$. 
C(I) ,1) ; : NEXT 

230 LOCATE 1 . 22 : PRINT"Quer joga 
r novamente? (S/N) " 
240 AS-INKEYS : IF ASO"S" AND AS 
<>"N" THEN 240 

250 IF A$="N" THEN CLS : END : ELSE 
20 
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LIMITAÇÕES DA MEMÓRIA 


■ 


TÉCNICAS DE PAGINAÇÃO 


■ 


PÁGINAS GRÁFICAS E 


A EXIGÊNCIA DE ESPAÇO 


■ 


ANIMAÇÕES GRÁFICAS 



Depois de examinar os princípios 
da paginação gráfica, vamos, agora, 
explorar suas possibilidades. 
Os programas deste artigo não deixarão 
dúvidas quanto ã sua utilidade. 



Como vimos no artigo da página 
1 0%, a paginação gráfica — a técnica 
de mostrar várias telas gráficas em se- 
quência — apresenta um grande poten- 
cia! em diversos tipos de aplicação. 
Além de seu emprego em animação 
computadorizada, as páginas gráficas 
podem ser úteis em áreas mais "sérias", 
tais como planilhas financeiras ou quais- 
quer outros projetos que exijam a rápi- 
da mudança de uma tela cheia de infor- 
mações para outra. 

Já tivemos um contato inicial com es- 
sa técnica. Agora, trataremos de exami- 
nar mais de perto suas possibilidades. 
Antes disso, no entanto, convém reca- 
pitular alguns pontos fundamentais. A 
paginação gráfica consiste, basicamen- 
te, em armazenar cada tela em uma par- 
te da memória e depois recuperá-las uma 
a uma. Essas telas podem conter dife- 
rentes tipos de informação: gráficos de 
alta ou baixa resolução, textos, ou até 
uma combinação de ambos. Depois de 
armazenadas, elas podem ser chamadas 
em sequência, sem que se perca tempo 
com o processo de montagem do dese- 
nho. O computador não precisará, por- 
tanto, executar uma série de funções de- 
moradas, como a função SIN, por 
exemplo. Ele apenas transferirá dados 
de uma parte da memória para outra. 

É claro que o processo de montagem 
do desenho continua sendo necessário 
em algum ponto, mas só uma vez para 
cada tela. Depois de prontas, elas po- 
dem ser recuperadas instantaneamente, 
sempre que você quiser. 



solução gráfica, mais memória será exi- 
gida. Isso impõe severas limitações aos 
microcomputadores e, em alguns casos, 
temos mesmo que sacrificar um pouco 
a qualidade do desenho para obter mais 
páginas gráficas. 

Tomando as medidas necessárias pa- 
ra economizar memória, você poderá 
conseguir bastante espaço para as pági- 
nas. Mas não se esqueça de que o pró- 
prio programa ocupará uma parte des- 
se espaço. Portanto, antes de iniciar os 
trabalhos, calcule cuidadosamente a 
quantidade de memória que você ocu- 
pará com suas telas. Verifique se não é 
aconselhável baixar um pouco a resolu- 
ção do desenho ou diminuir o número 
de cores. Com o planejamento, você não 
correrá o risco de precisar de mais es- 
paço do que o disponível na RAM. 

A técnica de paginação gráfica per- 
mite o acesso a cada tela na memória do 
computador. Dependendo do espaço 
disponível, pode-se definir previamen- 
te uma sequência de oito ou mais telas. 



Para economizar espaço, lance mão de 
alguns pequenos truques. Por exemplo: 
em uma sequência como a da página 
1 144, que mostra uma figura (o "ho- 
mem-rabisco"), as páginas gráficas se- 
riam exibidas na ordem 1, 2, 3, 4, 5, 1, 
2, 3, 4, 5 e assim por diante. Porém, co- 
mo você deve ter observado, existem 
dois pares muito semelhantes: o par 2 
e 4 e o par 3 e 5. Ora, em uma situação 
onde qualquer espacinho está a prémio, 
será bem melhor armazenar apenas uma 
figura de cada um desses pares. Duran- 
te a projeção das imagens, nem se no- 
tará a diferença e você terá economiza- 
do um bom espaço. Usando a sequên- 
cia 1, 2, 3, 2, 3, 1, você continuará com 
uma animação de cinco imagens, arma- 
zenando apenas três telas. 



O Spectrum de 48 K pode manipular, 
no máximo, oito ou nove páginas grá- 
ficas diferentes, com apenas duas cores 



LIMITAÇÕES DA MEMÓRIA 



Cada página gráfica requer uma cer- 
ta quantidade de memória. Essa quan- 
tidade varia de acordo com a complexi- 
dade do desenho — quanto mais cores 
forem usadas e quanto maior for a re- 





PROGRAMAÇÃO BASIC 
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(INK c PAPER). Esse micro lambem 
apresenta uma limitação que envolve o 
tamanho da tela. Se utilizarmos dois ter- 
ços dela, cada página gráfica ocupará 4 
K. Somando mais 2 K, exigidos pelo 
programa, chegamos logo ao limite má 
ximo de memória. Levando em conla es- 
sas limitações, o programa que se segue 
trabalha com oito telas, mostrando uma 



40 LET arne=64- LET deal>ll0 
50 FOR n=l TO 20- PLOT RND* I 
255) ,RND» (40)*1 30: NEXT n 
60 FOR n=0 TO 7 
70 FOR l» = 4 TO 21: PR INT AT ra. 



260 PI.OT 0,120: DRAW 255,0 
770 PI.OT 11H. 120: DWAW -11»,- 
80: PI.OT I3B.120: DRAW 117, 
780 FOR j'l TO J: READ x.y.a.b 
: PI.OT Jt.y: DRAW a,h: NEXT J 
290 IIF.AD x.y.d.b.Cd 
J0O PLOT K,y DRAW í.b: DBAU c 



J20 DATA 128.120, 1 .-1,140. LOS, 
3.-3. 138. 1 20,0. 2. 1 18. 140. 10,-5 
,10.5,110,118,1.-1.160,80.6,-6 
,143.]1B,0,7,11B.13B.10.-3,10. 

3 

330 DATA 133.114,1.-1.198,30.8 
.-8.160.112.0.15,118,136,10,-1 
, 10. 1.140. 105. 4.-4. 12B, 120,1, - 
1.184,105,0,30,118,132.10,3,10 
,-3.160.80.6,-6, 130.1 18, 1,-1 
340 DATA 220.90.0,50.118,134, 



10. 1,10,-1, 198. 30, 8, -8, 133. 114 
. 1,-1. 118. 120. 0,4, 118. 136, 10.- 
1.10,1 

350 DATA 12B. 120. 1 , -1 . 14(1. 105, 
4 , -4 . 80 . 1 00. 0 , 30 . 1 18, I 38 , 10, -3 
. 10. 3, 130. 118, l ,-1 ,160,80,6.-6 
,5.55,0, 100, 11 8,1 39, 10, -4, 10, 4 

O programa começa inieializando a 



da estrada (linha 270), a própria estra- 
da e os postes (linha 280) e uma ave cm 
vôo (linha 290) — sempre lendo as in- 
formações que estào nas linhas DATA 
ao final do programa (linha 320 em 
diante). 

Retornando da rotina de desenho, o 
programa é desviado para uma sub- 



ida cm preto e branco c definindo o rotina de POKK, na linha 220. Esia co- 
RAMTOP em 27999. A rotina das li- pia os 4 K de cada tela em um local 
nhãs 170, 180, 190, 200 e 210 coloca apropriado da memória. O endereço 
dest é incrementado com o valor 16 no 
seu byle mais significativo (16*255 = 4 
K), a fim de criar o espaço para a pró- 
xima página gráfica. O programa vol 
ta, mais uma vez, para a rotina de dese- 
nho e todo o processo se repete oito ve- 
zes, sendo que, a cada vez, a Hgura é fei- 
» la uma posição adiante. 

Em seguida, o programa chama as oi- 
to leias, sucessivamente, dando o efei- 




uma pequena rotina cm linguagem de 
máquina acima da RAM acessível, Es 
sa rotina, muito rápida, será a respon- 
sável pela transferencia do bloco de in- 
formações da tela para a memória, à 
medida que as imagens vão sendo cons- 
truídas e, posteriormente, irá também 
recuperá-las, trazendo-as de volta á le- 
ia. A linha 40 eslabelecc os valores dos 
bytes mais significativos das variáveis 
srece desl, que contem, respectivamen- 
te, o endereço da área a ser transferida 
e o do seu desiino. 

A primeira parte da rotina dos gráfi- 
cos, que começa na linha 50, simples- 
mente faz desenhos em posições aiealó- 
rias da leia. Esses desenhos são fixos e, 
apesar de aparecerem em todas as pági- 
nas, não são refeitos a cada vez, pois 
não estão incluídos na sequência prin- 
cipal de figuras. A linha 170 se encarre- 
ga de limpar (sobrepondo espaços) a 
parte de baixo de cada tela, sem apag# 
as estrelas que estão no alto. Um laço 
de oito telas já estará, então, começan- 
do (linha 60). A rotina de gráficos de- 
senha o horizonte (linha 260), os lados 



to de animação. Para isso, o endereço 
dest torna-se o novo srce, a partir do 
qual a rotina da linha 220 à 250 chama 
cada página gráfica. 



O TRS-Color apresenta evidente van- 
tagem sobre os demais microcomputa- 
dores, em virtude de seu poderoso co- 
mando PCOPY, que permite que o 
usuário manipule páginas gráficas sem 
muitas complicações. No exemplo que 
se segue, optamos pela modalidade grá- 
fica PMODE 3. Cinco páginas gráficas, 
ocupando três quartos da tela, serão' 
usadas para se obter uma animação. 
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450 READ Y2 

460 LINE(X1,Y1)-ÍX2,Y2) 
470 LET X1-X2:LET Y1-Y2 
480 NEXT I 
490 RETURN 

500 DATA 33.00.00.17.00,161.01, 

00, 24, 205. B9, 00, 201 

510 DATA 33.00,161,17,00.00,01. 

00,24,205,92.00.201 

520 DATA 33.00.32.62.00.01.00,2 

4,205.86,00,201 

530 DATA 86.3,79,67,90.86.192.3 
, 176, 64. 141 ,99 , 198 , 166. 170 , LS6 
540 DATA 115.186.118.138.86.116 
,12,191.48.139,51,109.67.90,90, 
B6 

550 DATA 96, 64.54, 48,6.1,86, 115, 

83,160,80.240.102,185.115 

560 DATA J44. 113, 160. 144. 192, 14 

7, 179, 169,144. 185, 115.1 48 

570 DATA B6, 118. 12, 191. 48. 139. 5 

1 , 109, 67 . 90 , 83 . 86 

580 DATA 182, 160,224 ,] 21 , 166, 12 

8,105,83,90.128.160.191 

590 DATA 150.116.105.83,67.90.5 

1 ,109,48. 139, 10 , 1 90 

600 DATA 89,118.90,128.87,137.8 

3,176.70.134 



rá imediatamente refeito. Poderíamos 
também armazenar a tabela de cores, 
mas isso acrescentaria 6144 bytes aos 
6144 bytes da tabela de padrões, o que 
nos limitaria ao uso de, no máximo, 
uma página gráfica. Para que nossa te- 
la não fique sem cor, carregaremos a ta- 
bela de cor com um número específico 
que definirá as cores de fundo e de fren- 
te. Nosso desenho (um beija-flor) terá, 
portanto, apenas duas cores. Em com- 
pensação, economizamos o suficiente 
para três páginas gráficas. 

Para transferir os dados da VRAM 
para a RAM, recorreremos a uma roti- 
na da ROM chamada LDIRMV. Para 
fazer o contrário, usaremos uma outra 
rotina, a LDIRVM. Finalmente, para 
carregar a tabela de cores com um byte es- 
pecífico, utilizaremos a rotina FILVRM, 
que preenche qualquer área da VRAM 
com um determinado valor. O acesso a 
essas rotinas requer a introdução de al- 
guns valores nos registradores da máqui- 
na. Por isso, construiremos uma peque- 
na rotina em linguagem de máquina pa- 
ra chamar cada rotina da ROM. 

10 CLS 

20 CLEAB200, 40960! 

30 DEFUSR=40960! 

40 DEFUSR1-40973! 

50 DEFUSR2=40986! 

60 FOR R-0 TO 37 

70 READ A 

I 80 POKE (40960Í+B) ,A 



90 NEXT 

100 SCREEN2 

110 X1=112:Y1-67:N=16 

120 GOSUB 430 

130 A«USR{0) 

140 SCREEN2 

150 X1=115:Y1=B3:N=19 

160 GOSUB 430 

170 POKE 40964! .0 

180 POKE 40965! ,165 

190 A=USRC0) 

200 SCREEN 2 

210 X1 = 158:YW82:N=17 . 

220 GOSUB 430 

230 POKE 40964! ,0 

240 POKE 40965 ! . 209 

250 A=USR (0) 

260 POKE 40990! ,1*16+11 

270 A=U3R2 (0) 

280 FOR 1-1 TO 3:ON I GOSUB 310 
,350,390:NEXT 

290 FOR 1=3 TO 1 STEP -1:0N I G 

OSUB 310.350,390:NEXT 

300 GOTO 2B0 

310 POKE 40974 ! , 0 

320 POKE 40975! ,161 

330 A=USR1 (0) 

340 RETUDN 

350 POKE 40974! ,0 

360 POKE 40975! ,165 

370 A=USR1 (0) 

380 RETUHN 

390 POKE 40974! ,0 

400 POKE 40975! ,209 

410 A-USR1 (0) 

420 RETURN 

430 FOR 1-1 TO W 

440 READ X2 



A linha 20 reserva uma área da me- 
mória para as rotinas em linguagem de 
máquina. A linha 30 define o inicio da 
rotina que irá chamar a LDIRMV e a 
linha 40, o início da rotina que acessa 
a LDIRVM. A linha 50 faz o mesmo pa- 
ra a rotina FILVRM. 

O laço entre as linhas 60 e 90 lê as li- 
nhas DATA 500, 510e 520, que contêm 
as rotinas — na ordem em que foram 
citadas — , colocando-as na memória do 
microcomputador. 

A rotina de desenho localiza-se entre 
as linhas 100 e 270. A cada página, o 
computador inicializa as variáveis XI, 
VI e N, que guardam as coordenadas 
iniciais do desenho e o número de pon- 
tos a serem lidos. O programa é então 
desviado para a sub-rotina entre as li- 
nhas 430 e 490, que lê as informações 
contidas nas linhas 530 a 600 e traça as 
retas. Assim que a figura estiver com- 
pleta, a rotina que armazena a tela na 
RAM é chamada. 

O processo é o mesmo para as outras 
duas páginas, com uma diferença: dois 
comandos POKE irão alterar a sub-ro- 
tina de armazenamento. Esta continha, 
inicialmente, o endereço a partir do qual 
a primeira tela seria guardada na RAM. 
É claro que não podemos usar esse mes- 
mo endereço para as duas outras pági- 
nas gráficas. O papel dos comandos PO- 
KE é, portanto, fazer a modificação ne- 
cessária para o inicio da segunda e da 
terceira páginas. 

Depois que todas as telas já tiverem 
sido armazenadas, a linha 260 determi- 
na o valor do byte que preencherá a ta- 
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bela de cores, colocando-o na rotina que 
acessa a FILVRM. 0 valor 1 é a cor de 
frente — preto — e o valor 1 1 é a cor 
de fundo — amarela. A linha 270 cha- 
ma essa rotina. 

Em seguida chega-se à rotina encar- 
regada de alternar as telas. Os dois la- 
ços (linhas 280 e 290) determinam uma 
sequência de telas do tipo 1, 1, 2, 3, 3, 
2, 1, I, fazendo com que um beija-flor 
em vôo permaneça mais tempo com as 
asas para cima e para baixo do que na 
posição intermediária. 

Conforme o valor da variável I, o 
programa é desviado para uma sub-ro- 
tina. Nesta, um par de comandos PO- 
KE modifica a rotina que busca os da- 
dos na RAM. Esses comandos definem 
os endereços a partir dos quais a memó- 
ria será transferida para a tela. 

Se você quiser construir suas próprias 
animações, elimine a sub-rotina da linha 
430, assim como todas as linhas que a 
chamam. Além disso, apague também 
a linha DATA 530 e as que a seguem e 
coloque seus comandos gráficos a par- 
tir da linha que inicializava as variáveis, 
tendo o máximo cuidado para não pro- 
vocar sobreposições. 



Como você deve saber, os micros da 
linha Apple oferecem ao usuário duas 
páginas gráficas prontas para serem uti- 
lizadas. Por meio dos comandos usuais 
do BASIC, não podemos escrever em 
uma das páginas sem que ela apareça no 
vídeo. Se isto fosse possível, eliminaría- 
mos, em uma animação, aquele efeito 
desagradável provocado pelos coman- 
dos HGR e HGR2 para limpar a tela — 
enquanto mostrássemos uma tela, esta- 
ríamos simultaneamente limpando e es- 
crevendo na outra. Em seguida, basta- 
ria trocar as duas e repetir o processo 
até o Hm da animação. Teríamos, assim, 
'uma velocidade moderada, mas não ha- 
veria um limite de páginas gráficas. 

O próximo programa ilustra o desen- 
volvimento desse processo com a anima- 
ção de uma figura — o homem-rabisco 
— , comentada anteriormente. 

10 POKE - 16304. 0:X = 200 

20 HGR ! HGR 2 : HCOLOB- 3 

30 POKE 230,32: GOSUB 240 

40 POKE - 16300,0 

50 POKE 230,64: GOSUB 280 

60 POKE - 16299,0 

70 POKE 230,32: HCOLOR- 0: GOS 

UB 240: HCOLOR- 3: GOSUB 320 

60 POKE - 16300,0 

90 PI = 32:P2 - 64:M1 = - 1630 

0:M2 = - 16299 

100 POKE 230, P2: HCOLOR= 0: GO 
SUB 280 :X - X - 15: HCOLOR- 3: 




A estrada sem fim no Spectrum. 



GOSUB 280 

110 IF X < 30 THEN STOP 
120 POKE M2,0 

130 POKE 230,P1:X = X + 15: HC 
OLOR- 0: GOSUB 320 : X - X - 15; 
HCOLOR- 3: GOSUB 320 
140 POKE Ml ,0 

150 POKE 230. P2: HCOLOR- 0: GO 
SUB 280: HC0l.0B= 3: GOSUB 240 
160 POKE 1*2,0 

170 POKE 230, PI: HC0LOR= 0: GO 
SUB 320: HCOLOR» 3: GOSUB 280 
180 POKE Ml.O 

190 POKE 230. P2: HCOLOR- 0: GO 
SUB 240: HCOLOR- 3: GOSUB 320 
200 POKE M2.0 
210 TR - P1:P1 - P2:P2 = TB 
220 TB - Ml :M1 = M2:M2 - TB 
230 GOTO 100 

240 HPLOT X - 16.136 TO X - 9, 
133 TO X.94 TO X + 8,136 TO X.l 
36 

250 HPLOT X.94 TO X - 3,58 TO 
X - 9,50 TO X,4fl TO X - 3.58 
260 HPLOT X - 10,97 TO X - 4,8 
2 TO X - 3,58 TO X + 9,98 
2 70 RETURN 

280 HPLOT X - 15.1.36 TO X - 11 
,132 TO X - 10.114 TO X - 1 .97 
TO X + 7 , 136 TO X, 136 
290 HPLOT X - 1,97 TO X - 7.61 
TO X - .13,50 TO X - 4.48 TO X 
-7,61 

300 HPLOT X - 12,97 TO X - 6.8 
5 TO X - 7,61 TO X + 1,82 TO X 
+ 2,97 
310 RETURN 

320 HPLOT X - 15,136 Tt) X - B, 
136 TO X - 5, 1 14 TO X - 1.94 TO 

X - 5.114 TO X + 3.132 TO X - 
3,136 

330 HPLOT X - 1.94 TO X - 5,61 
TO X - 12,50 TO X - 3,48 TO X 
- 5.61 

340 HPLOT X - 7.98 TO X - 3,61 
TO X + 5.78 TO X - a, 90 
350 RETURN 



ANIMAÇÃO GRÁFICA 



As instruções para as telas de núme- 
ros 1, 2 e 3 se encontram, respectiva- 
mente, a partir das linhas 240, 280 e 320. 
Elas serão chamadas na ordem 1, 2, 3, 



TRS-C olor: bomba moto-contínaa. 



2, 3, 1, Se quisermos mostrar um dese- 
nho na página 2, por exemplo, teremos 
que executar as etapas do processo des- 
crito em seguida, enquanto a página I 
está na tela: 

- habilitar a escrita na página 2 

- apagar a página 2 

- escrever na página 2 

- mostrar a página 2 na tela 

Para habilitar a escrita em uma pá- 
gina, è necessário colocar um determi- 
nado valor no endereço 230 por meio de 
um comando POKE. Se esse valor for 
32, qualquer comando gráfico será exe- 
cutado na página 1 ; se for 64, será aces- 
sada a página 2. 

Para apagar uma página gráfica, te- 
mos simplesmente de descolorir a figu- 
ra, utilizando a mesma rotina que a 
montou, com HCOLOR = 0. 

Empregamos também o comando 
POKE para colocar uma página na te- 
la. Se esse comando for dado no ende- 
reço *£UO0, será mostrada a página 1; 
se fMv no endereço -16299, será 
mostrada a página 2. Em ambos os ca- 
sos, porém, deve haver um comando 
POKE no endereço - 16304; caso con- 
trário, será mostrada a página de texto. 

A fase de inicialização localiza-se en- 
tre as linhas 10 e 90, onde ocorrem as 
primeiras impressões. A variável X con- 
trola a posição horizontal da figura na 
tela e será incrementada com o valor 15 
a cada passo. 

Entre as linhas 100 e 230 situa-se o 
laço que irá controlar o movimento do 
homem-rabisco até o fim da animação. 
Na linha 100 e na linha 130, subtrai-se 
1 5 dessa variável para que seja apagada 
a imagem que foi feita antes do in- 
cremento. 

As linhas 210 e 220 promovem a tro- 
ca de valores entre as variáveis PI, P2, 
Ml e M2. Estas definem as páginas em 
que serão feitos os desenhos e as pági- 
nas que serão mostradas. A troca é ne- 
cessária para que não se perca a alter- 
nância de telas. 



imiiiimi 



CÓDIGO DC MAQUINA 



■ ■■■■■■■llllll 



Até agora, nosso personagem 
permaneceu indefeso diante dós perigos 
que o cercam. Vamos dar-lhe a chance 
de escapar, fazendo com que escale 
a montanha, corra e salte. 



Willie já sofreu bastante: foi atingi- 
do por pedras, caiu em buracos, levou 
picadas de cobras venenosas e se afogou 
no mar. Precisamos oferecer-lhe uma 
oportunidade de se defender. Nos pró- 
ximos três artigos da série Avalanche, 
veremos como fazer Willie andar, cor- 
rer ou saltar, dando-lhe chance de evi- 
tar a morte prematura. 



O programa a seguir permite que 
Willie inicie a escalada da montanha e 
verifica se ele encontrou algum perigo 
ou prémio peto caminho. 

Caso você não esteja usando o mon- 



tador Assembler de 1NPUT, lembre-se 
de que o número 254, na instrução in 
a,254, está entre parênteses. 

10 REM org 59153 
20 REM nan Id a. (57335) 
30 BEM cp 0 
40 REM jp. nz . jrop 
50 REM ld a, (57334) 
60 REM cp 1 
70 REM jr 

80 REM ld hl . (57332) 

90 REM dec hl 
100 REM ld bc,163B4 
110 REM ld a, 45 
120 REM ld de, 514 
130 REM call 58970 
140 REM ld bc, 57000 
150 REM ld a, 40 
160 REM inc hl 



170 REM ld de, 258 
180 REM call 5B970 
190 REM ld de, 22592 
200 REM add hl .de 
210 REM ld a, (hl) 
220 REM cp 45 
230 REM jp z,mby 
240 REM cp 43 
250 REM jr z.mby 
260 REM cp 15 
270 REM jr z.ml 
260 REM ld I 
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INÍCIO DA CAMINHADA 
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IMOBILIDADE 
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ONDE WILLIE 


■ 


PASSOS FATAIS 




ESTÁ PISANDO? 


■ 


0 ÚLTIMO SUSPIRO 




290 BEM In a, 254 
300 R em bit 2, a 
310 HEM jr nz.mft 
320 BEM ld b.l 
330 REM bit 3, a 
340 BEM jr ncmlj 
350 HEM ld b. 129 
360 REM rolj ld a,b 
370 REM ld (57335) ,< 
380 BEM jr nct 
390 REM mfr bit 3, a 
400 REM jr nz.mct 




410 
420 
130 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
54 0 

550 
560 

570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 



BOO 
810 
820 
830 
840 



ld 



, 1 



ld{57334) ,a 

mct ld hl . (57332) 

ia de, 191 

abe hl.de 

jr nenor 

ld a.l 

ld (57336) ,a 

moa ld de, 3 
ld hl, 1548 
call 949 
ld hl, (57332) 
ld de. 22561 
add hl.de 
ld a, (hl) 
cp 43 

jr z.rota 
cp 42 

ld de, 32 
add hl.de 



:p 43 

íd hl , (57332) 
ld a. 40 
ld bc, 57016 
ld de, 514 
call 58970 
inc hl 

]d (57332) .hl 
nta ld a.O 
ld (57334) ,a 



Você pode testar essas linhas mesmo 
que ainda não tenha na memória as ou- 
tras duas rotinas de movimentação de 
Willie. Uma instrução ret, que será apa- 
gada mais tarde, foi colocada no fim da 
rotina que acabamos de listar. Em con- 
sequência, se você chamar uma rotina 
inexistente, o programa apenas retorna 
e nenhum erro ocorre. 




A variável na posição de memória 
57 335 informa se Willie irá ou não pu- 



lar. O conteúdo desta posição é carre- 
gado no acumulador e comparado com 
0. Se não for igual a 0, Willie irá pular. 
O processador salta, enlão, para a roti- 
na jmp, que ainda não foi publicada. 
Como, em seu lugar, encontra apenas 
uma instrução ret, volta para o local on- 
de a rotina foi chamada. 

Se Willie não vai pular (o conteúdo 
de 57335 é 0), o processador continua 
a execução da rotina. O conteúdo da po- 
sição de memória 57334 é carregado no 
acumulador. Essa posição contém a cha- 
mada variável da caminhada. 

Existem duas figuras para Willie — 
numa delas, ele está com as pernas jun- 
tas e, na outra, com as pernas abertas. 
Enquanto nosso personagem não se lo- 
comove, a primeira figura é impressa 
continuamente no mesmo lugar. Mas, 
quando ele está andando, as duas figu- 
ras são impressas alternadamente. A va- 
riável da caminhada informa ao proces- 
sador se Willie deve andar uma posição 
— nesse caso, a figura adequada é a que 
tem as pernas abertas. 

A instrução cp 1 verifica qual figura 
será impressa. Se for a de valor 1 — que 
tem as pernas abertas — , a instrução jr 
z,mma manda o processador para a ro- 
tina que faz Willie andar e imprime es- 
sa figura. Se for a de valor 0 — que tem 
as pernas fechadas — , o processador 
continua. 



0 HOMEM INVISÍVEL 



Ao andar, Willie abre as pernas e se 
desloca uma posição à frente, onde apa- 
rece com as pernas juntas. Portanto, o 
algoritmo que produz esse efeito impri- 
me, em sequência, as figuras 0, 1 e 0. 

Como a figura que tem as pernas 
abertas ocupa duas posições adjacentes 
e a que tem as pernas fechadas, só uma, 
obtém-se um movimento bem suave. 

Para imprimir a figura 0, é preciso 
apagar a figura anterior — do contrá- 
rio, teremos várias panes de Willie pela 
tela. A instrução ld hl, (57332) carrega 
a posição de Willie — armazenada nos 
endereços 57332 e 57333 — no par HL. 
Esse valor é decrementado para voltar 
uma posição. 

O par BC é então carregado com I 
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16384. Este é o endereço do topo da te- 
la, onde se encontra o padrão de céu. 
A é carregado com 45 e DE, com 514. 
A rotina de impressão de blocos em 
58970 é chamada em seguida. Como vo- 
cê deve se lembrar, o par HL, nessa ro- 
tina, contém a posição na tela, e o par 
BC, o apontador de dados. A, por sua 
vez, especifica a cor — 45 é ciano sobre 
ciano — e o par DE fixa o tamanho do 
bloco. O número 5 14 fornece um bloco 
de dois por dois caracteres. D contém 
o número de linhas e E, o número de co- 
lunas — 2 x 256 + 2 = 514. 

Assim, quando é chamada, essa ro- 
tina imprime um bloco dois por dois de 
céu na posição imediatamente anterior 
àquela onde você irá imprimir Willie de 
novo. Em outras palavras, ela apaga o 
velho Willie que, com suas pemas aber- 
tas, ocupa quatro caracteres. 



Agora precisamos imprimir o novo 
Willie com as pernas juntas. Os dados 
para isso começam em 57000. Logo, o 
par BC é carregado com 57000. O acu- 
mulador A é carregado com 40, código 
de azul sobre fundo ciano, a cor de 
Willie. 

O par HL, anteriormente decremen- 
tado, volta a ser incrementado para 
apontar a posição do personagem. O par 
DE é carregado com 258 — dando um 
bloco de um por dois (1 x 256 + 2 = 
258), o espaço que Willie ocupa com as 
pernas juntas. A rotina de impressão de 
blocos é chamada para imprimir Willie. 



ONDE WILLIE ESTÁ PISANDO? 



Como nosso personagem se moveu 
uma posição à frente, convém verificar 
onde ele está pisando. Se for numa co- 
bra, num buraco ou na água, o proces- 
sador deve ser informado de sua morte. 

Em primeiro lugar, verifique a cor do 
caractere que está sob os pés de Willie. 
O arquivo de cores começa em 22528. 
O valor contido em HL corresponde à 
posição da tela ocupada pela cabeça de 
Willie. Mas, como você quer a cor do 
caractere que está sob seus pés, precisa- 
rá adicionar o valor 64. 

Por isso, 22592 é carregado no par de 
registros DE e somado ao par HL. O re- 
sultado da instrução add hl.de é sempre 
colocado em HL. O conteúdo da posi- 
ção da memória que HL aponta no mo- 
mento é colocado em A. O acumulador 
passa a conter a cor do caractere que es- 
tá sob os pés de Willie. 

Esse valor é comparado com 45 — 
I ciano sobre ciano, a cor do céu que 



preenche os buracos. Se for 45, a ins- 
trução jr z.mdy manda o processador 
para uma rotina curta que faz Willie 
morrer. Se não há um buraco debaixo 
de Willie, o conteúdo do acumulador é 
comparado com 43 — magenta sobre 
ciano, a cor da cobra — e com 15 — 
branco sobre azul, a cor do mar. Se 
qualquer um desses valores estiver pre- 
sente, o processador salta para a rotina 
mdy e elimina Willie. Caso contrário, o 
processador continua a execução da ro- 
tina — Willie está salvo. 



Nesta parte da rotina, a ação se en- 
cerra, efetivamente, com a impressão de 
Willie com as pernas juntas, uma posi- 
ção ã frente. Se ele não morreu, o pas- 
so seguinte consiste em verificar quan- 
do ele irá se mover de novo. Para isso, 
empregamos o comando in. 

Antes, porém, A é carregado com 0 
— o que significa que o teclado inteiro 
será analisado e que qualquer conjunto 
de teclas poderá ser utilizado para con- 
trolar os movimentos de Willie. Embo- 
ra na página de instruções M e N te- 
nham sido especificadas, outras combi- 
nações — tais como JeKouUel — 
são apropriadas para fazer nosso perso- 
nagem pular e andar. 

O comando in é usado para efetuar 
uma busca na porta 254. A instrução bit 
2, a analisa o bit dois do número encon- 
irado para verificar se a tecla M — ou 
J ou U — foi pressionada. Todos os bits 
equivalentes às teclas têm normalmente 
o valor 1 , mas assumem o valor 0 quan- 
do a tecla é pressionada. Assim, se M 
foi pressionada, o bit dois tem valor 0 
e o processador ignora a instrução jr nz. 
Caso contrário, ele salta para a rotina 
mft. 

Se a tecla foi pressionada e Willie de- 
ve pular, B é carregado com 1. Em se- 
guida, o bit três é testado do mesmo mo- 
do. Se N não foi pressionada e o bit três 
tem valor 1 , a instrução jr nz faz o pro- 
cessador saltar a próxima instrução. 
Mas, se a tecla foi pressionada, a ins- 
trução jr nz não tem efeito e B é carre- 
gado com 129. 

O significado dos números 1 e 129, 
que utilizamos para carregar B, será ex- 
plicado quando apresentarmos as seções 
do programa que executam o salto ver- 
tical e o salto à frente. 

O processador transfere o conteúdo 
de B para A e o carrega em 57335. Es- 
te, como você deve se lembrar, corres- 
ponde à posição de memória que o pro- 
cessador ira examinar no inicio da roti- 
na para ver se Willie pulará ou não. 



A instrução jr met faz o processador 
saltar a próxima rotina. 



Se não houve pressão sobre M, o pro- 
cessador vai para a rotina mft. Ela ve- 
rifica se apenas a tecla N foi pressiona- 
da — ou seja, se Willie, em vez de pu- 
lar, simplesmente irá andar. 

Para ver se a tecla N foi pressiona- 
da, o bit três é testado de novo. Note 
que o valor da porta 254 ainda está no 
acumulador — o processador pulou pa- 
ra este ponto da rotina depois que o bit 
dois foi testado. 

Se N não foi pressionada, jr nz salta 
a rotina seguinte. Caso contrário, A é 
carregado com 1 e esse valor é armaze- 
nado no endereço 57334, onde se encon- 
tra a variável da caminhada (que exami 
namos no inicio da rotina para saber 
qual das figuras de Willie seria impres 
sa na tela). Um valor 1 nessa posição 
dica que Willie deve ser impresso 
as pernas abertas — em outras palavr 
ele está andando. 



Há apenas mais uma verificação a fa- 
zer: nosso personagem alcançou algum 
prémio? 

A posição de Willie é armazenada 
nos endereços 57332 e 57333. O conteú- 
do desses endereços é carregado no par 
HL e o valor 191 — correspondente à 
posição de tela onde o prémio foi im- 
presso — é colocado em DE. 

O conteúdo desse par de registros é 
subtraído do conteúdo de HL. Se até 
aqui Willie não tiver obtido uma recom- 
pensa, a instrução jr nc segue para a ins- 
trução ret c retorna. Caso contrário, o 
valor 1 é carregado no acumulador e ar- 
mazenado em 57336. Esta é a posição 
de memória que a rotina principal veri- 
fica para saber se o escore deve ser in- 
crementado e se é preciso começar no- 
va tela. Feito isso, o processador encon- 
tra rei e retorna. 



UM PASSO À FRENTE 



O par DE é carregado com o valor 
3 e HL, com 1548. Depois, a rotina 
BEEP, no endereço 949, é chamada exe- 
cutando o efeito sonoro da caminhada. 

Antes de seguir adiante, porém, Wil- 
lie deve ver o que há na sua frente. Sua 
posição é colocada no par HL. Adicio- 
nando 22561 a esse valor, obtemos a cor 
do caractere que se encontra 33 pontos 
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adiante do conieúdo de 57332 e 57333. 
Como este aponta para a cabeça de Wil- 
lie, 33 é um caractere abaixo e à direita, 
indicando a posição imediatamente à 
frente de seus pés. O valor dessa posi- 
ção é carregado no acumulador pela ins- 
trução Id a. (hl). 

A cor do caractere à frente dos pés 
de Willie é comparada com a cor do mar 

— 15, branco sobre azul — da cobra — 
43, magenta sobre ciano — e da pedra 

— 42, vermelho sobre ciano. Se a cor 
do mar, da cobra ou da pedra estiverem 
presentes, a instrução jr z.mdy faz o 
processador saltar para a rotina que eli- 
mina Willie. Mas, se adiante dos pés de 
Willie estiver o caractere de encosta, o 
processador salta para a rotina que dei- 
xa o personagem parado — é evidente 
que ele não pode ir em frente a não ser 
pulando. 

investigar o caractere que está adian- 
te de Willie não é tudo. Devemos veri- 
ficar também em qual caractere ele es- 
tará pisando depois de se mover. Para 
isso, eanega-se DE com 32, que é adi- 
cionado ao conteúdo de HL, o que mo- 
ve o apontador 32 caracteres ã frente — 
ou seja, para a linha de baixo. 

A cor nessa posição è carregada no 
acumulador pela instrução Id a,(hl) e o 
conteúdo do acumulador é comparado 
com a cor do mar, a de um espaço va- 
zio e a de uma cobra. Se um desses va- 
lores estiver presente, a instrução jr 
z.mdy vai para a rotina da morte. 

Se nada disso aconteceu e Willie ain- 
da está vivo, HL é carregado com a po- 
sição original do personagem. A ê car- 
regado com 40 — a cor de Willie — , BC, 
com 57016 — o endereço inicial dos pa- 
drões para a figura com as pernas aber- 
tas — e o par DE, com 514 — Willie 
com as pernas abertas ocupando um 
bloco de dois por dois caracteres. Em se- 
guida, a rotina de impressão de bloco 
em 58970 é chamada e imprime na tela 
Willie com as pernas abertas. 

O par HL é incrementado e carrega- 
do de volta em 57332 e 57333. Atualt- 
zamos, assim, a posição de Willie que, 
na próxima vez, estará um caractere à 
direita. 



A rotina mts é diretamente chamada 
quando Willie encontra a encosta à sua 
frente e não pode prosseguir a não ser 
pulando. Mas o processador também 
aciona essa rotina quando ele foi im- 
presso com as pernas abertas. 

Um valor 0 é carregado no acumula- 
dor e no endereço 57334, informando ao 
processador que, na próxima vez, o per- 
sonagem deve ser impresso com as per- 



nas juntas — mesmo que seja no mes- 
mo lugar, se ele não tiver se movido, ou 
uma posição à frente, se foi impresso 
com as pernas abertas e sua posição foi 
incrementada. 

A seguir, o processador retorna. 



Se Willie se afogou no mar, foi pica- 
do por uma cobra, caiu num buraco ou 
foi atingido por uma pedra, a rotina 
mdy é chamada. Para a divulgação de 
sua morte, coloca-se 2 no endereço 
57336. Em algum ponto do programa, 
esse endereço será checado e o funeral 
de Willie será providenciado. 

Depois disso, o processador retorna 
da rotina. O último rei da listagem, pre- 
cedido do rótulo jmp, será apagado pe- 
la próxima parte de Avalanche. Sua úni- 
ca função consiste em impedir que haja 
erro na falta desta. 



O programa a seguir faz Willie andar 
e verifica se ele se defrontou com algum 
perigo — ou recompensa. 

10 ORG 19902 
20 MAN LDD 16249 
30 ANDB 131 
40 CMPB 130 
50 BNE MAN I 
60 LDA 41 
70 STA 18252 
BO MAN I LDA 18261 
90 LBNE JUH 
100 LDX 1BZ49 
110 LEAX 544, X 
120 LDX.X 
130 CMPX #35555 
140 LBEQ MDY 
150 CMPX (SAAAA 
160 LBEQ MDY 
170 CMPX I35FF5 
180 LBEQ MDY 
190 CLBB 
200 CLR 18264 
210 LDA #SBF 
220 STA 5FF02 
230 LDA SFF0O 
240 STA 1B262 
2S0 LDA #3DF 
260 STA 3FF02 
270 LDA SFFOO 
280 STA 18263 
290 CMPA |3F7 
300 BNEE MANA 
310 LDB II 
320 LDA 18262 
330 CMPA |SF7 
340 BNE MAND 
350 LDB #129 
360 MAND STB 18261 
370 LDA 18264 
380 BNE MANC 



390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
610 
B20 



LDX 18249 
PSHS X 
BRA MMI 

MANA LDA 16262 
CMPA ISF7 
BME MAND 
LDA |1 
STA 18264 
BRA MAND 
MANC LDX 18249 
LDU #1536 
JSR CHARPR 
LEAX 254.X 
JSR CHARPR 
LDX 18249 
LEAX l.X 
PSHS X 
LEAX 353.X 
LDA . X 
CMPA #SD5 
BEQ MDYA 
CMPA #$FF 
BEQ MDYA 
CMPA #S50 
BEQ MTS 
LDA 18251 
BEQ MMO 
MMI LDX.S 
LDU #17774 
JSR CHARPR 
LDX . S 
LEAX 256.X 
JSR CHARPR 
CLR 18251 
BRA MANE 
MMO LDX , S 
LDU #17814 
JSR CHARPR 
LDX , S 
LEAX 256.X 
LDU #17646 
JSR CHARPR 
LDA #1 
STA 18251 
MANE LDX , S 
STX 18249 
PULS X 
BTS 

MDYA PULS X 
MDY LDA #2 
STA 18252 
RTS 

MTS PULS X 
LEAX -1,X 
PSHS X 
BRA MMI 

JUM RT3 . # £ 
CHARPR EQU 19402 




Essa rotina chama outras que ainda 
não estão na memória. Para evitar er- 
ros, não tente executá-la antes de ter co- 
locado RTS nos lugares adequados. 



A primeira parte da rotina procura 
saber se Willie alcançou suas recompen- 
sas. Para isso, a posição do personagem 
na tela é carregada no registrador D. 
Como existem 32 posições — 32 é 2T5 



Illlllll 



CÓDIGO Dl MÁQUINA 43 ■■■■lllllllllll 



— , precisamos investigar apenas os cin- 
co últimos bits da posição de tela para 
trabalhar com a coordenada X de Wil- 
lie. Se esta coordenada X tiver chegado 
a 30, a coordenada X do prémio (cuja 
posição Y está fixa junto à encosta), 
WilHe deve agarrá-lo. 

A operação AND é feita, então, en- 
tre o conteúdo deBe31 — Béo regis- 
trador menos significativo do par de re- 
gistradores AB que compõe D. Isso isola 
os cinco bits menos significativos, que 
são comparados ao número 30. 

Se os cinco últimos bits contêm 30, 
o valor 1 é carregado no acumulador e 
armazenado na variável morte, em 
18252. Assim, o processador é informa- 
do de que deve trazer a próxima tela. 
Caso contrário, a instrução BNE faz o 
processador saltar essas instruções. 



PULO OU PERIGO 



A é carregado com o conteúdo de 
18261, a variável do salto. Se não forO, 
Willie estará saltando e o processador 
vai para a rotina JUM. Isso é feito com 
um desvio longo porque o rólulo está 
muito distante. 

A tarefa seguinte é verificar se o per- 
sonagem está diante de algum perigo fa- 
tal — um buraco, uma cobra ou o mar. 
A posição de Willie vai, então, de 18249 
para o registrador X. 

A instrução LEAX 544.X adiciona 
544 à posição de Willie. Como ele tem 
dois caracteres de altura, precisamos 
acrescentar 2 x 256 (512) para apontar 
seus pés. Adicionamos 32 ao resultado, 
obtendo 544, porque há uma linha va- 



zia de pontos entre os pés de Willie e o 
chão. O registrador X é carregado com 
o conteúdo dos dois bytes que estão sob 
os pés de Willie. Esse valor é compara- 
do com $5555, SAAAA e S5FF5. 

$5555 é o código de amarelo, que re- 
presenta o céu — o que indicaria haver 
um buraco sob os pés de Willie; SAAAA 
é azul, a cor do mar, e $5FF5, verme- 
lho sobre amarelo, a cor da cobra. Se 
uma dessas cores for encontrada sob 
seus pés, Willie está morto e a instrução 
LBEQ faz o processador saltar para a 
rotina MDV, que o elimina. 



AS TECLAS 



A tarefa seguinte consiste em verifi- 
car se alguma tecla foi pressionada. As 
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teclas M e N controlam, respectivamen- 
te, a corrida e o salto de Willie. Portan- 
to, qualquer pressão sobre elas precisa 
ser detectada. 

Primeiro limpa-se o registrador B, 
que será usado para carregar a variável 
que controla o salto de Willie. A posi- 
ção de memória 18264 é ajustada com 
0, já que irá armazenar a variável que 
controla a caminhada de Willie. 

Para saber se uma tecla foi pressio- 
nada, deve-se analisar a matriz do tecla 
do. No nosso caso, estamos interessa 
dos particularmente nas teclas M e N 
A letra M fica na quarta coluna da sex- 
ta linha e a letra N, na quarta coluna da 
sétima linha. 

Para examinar a situação de uma te- 
cla, precisamos escrever o número da li- 
nha em SFF02; sua situação atual será 




dada em SFFOO. Assim, para verificar 
a tecla N. armazena-se $BF em SFF02. 
$BF é 101 1 1 11 1 em binário, e é arma- 
zenado porque seleciona a sétima linha. 
O resultado em SFF00 é carregado no 
acumulador e armazenado em 18262. 

M é examinada da mesma maneira, 
mas, desta vez, $DF — 1 101 1 1 1 1 em bi- 
nário — é escrito em SFF02 e o resulta- 
do é armazenado em 18263. A instrução 
CMPA # $F7 compara o resultado com 
$F7 ou 1 1 1 101 1 1 . Lembre-se de que vo- 
cê está tentando ver se uma tecla da 
quarta linha foi pressionada — esta li- 
nha estará em zero. Se $F7 não está pre- 
sente — e Willie não está saltando — , 
a instrução BNE desvia o processador 
para MANA. Mas, se SF7 estiver pre- 
sente, B é carregado com 1 para indicar 
um salto vertical. 

O resultado do exame da linha da te- 
cla N, armazenado em 18262, é então 
carregado no acumulador e comparado 
com $F7. Observe que a tecla N está na 
mesma coluna que a tecla M, embora 
em linha diferente. Se o valor não for 
encontrado, BNE salta a instrução se- 
guinte. Caso contrário, B é carregado 
com 129 para indicar que Willie dará um 
salto à frente. Quer seja 1 , quer seja 1 29, 
o valor vai para 18261. 



WILLIE ESTA ANDANDO? 



O conteúdo da posição de memória 
18264 é carregado no acumulador. Es- 
ta é a posição que armazena a variável 
que indica se Willie está andando ou 
não. Ela foi limpa, ou seja, ajustada 
com 0, no início do programa. Mas, nes- 
te ponto, não está necessariamente va- 
zia porque a rotina que verifica se Wil- 
lie está andando (que inicia no rótulo 
MANA) salta de volta para MAN D. 

Se o conteúdo da posição de memó- 
ria 18264 não for 0 e Willie estiver an- 
dando, a instrução BNE faz o proces- 
sador saltar para MANC, onde o pro- 
grama começa a fazer Willie se mover. 
Caso contrário, o registrador X é car- 
regado com o conteúdo de 18249 (ende- 
reço que armazena a posição de Willie 
na tela) e guardado na pilha. A instru- 
ção BR A MNI faz o processador saltar 
para MNI, que imprime o personagem 
na tela na posição definida pelo último 
valor armazenado na pilha. 

Se M não foi pressionada e Willie não 
está pulando, o processador salta para 
MANA, para ver se ele está andando. 
O resultado do exame da tecla N, arma- 
zenado em 18262, é carregado de volta 
no acumulador e comparado com SF7. 
Se o valor não está presente, a instru- 
ção BNE manda o processador de volta 



para MAND. Como a posição de me- 
mória 18264 ainda está vazia, Willie é 
impresso no mesmo lugar. Isso signifi- 
ca que ele está efetivamente parado. 

Mas, se N foi pressionada e Willie de- 
ve andar, I é carregado no acumulador 
e armazenado em 18264. Quando o pro- 
cessador saltar de volta para MAND, o 
personagem começará a andar. 



APAGANDO A FIGURA ANTERIOR 



Quando Willie começa a andar, é 
preciso apagá-lo de sua velha posição na 
tela. Do contrário, partes da figura se- 
rão deixadas pelo caminho. 

X é carregado com a posição do per- 
sonagem em 18249. O apontador de da- 
dos, U, é carregado com 1536, que cor- 
responde ao canto superior esquerdo da 
tela. Assim, quando o processador sal- 
tar para a sub-rotina CHARPR, impri- 
mirá dois caracteres de céu sobre Wil- 
lie, apagando a metade superior da 
figura. 

Para apagar a metade inferior de 
Willie, adiciona-se 254 a X e a rotina 
CHARPR é chamada outra vez. Soma- 
se 1 à posição da figura, que é carrega- 
da no registrador X — o que faz Willie 
se mover um caractere à frente. O resul- 
tado é armazenado na pilha. 

Depois que Willie anda, precisamos 
verificar onde ele está pisando. A ins- 
trução LEAX 353,X incrementa o apon- 
tador que passa a indicar um byte ime- 
diatamente à frente das pernas do per- 
sonagem, e LDA ,X carrega esse byte no 
acumulador. Ele é então comparado 
com $D5, a cor gráfica para a língua da 
cobra, e com SFF, a cor da pedra. Se 
algum desses valores estiver presente, 
Willie está condenado. A instrução BEQ 
manda então o processador para a roti- 
na MDVA, que o elimina. 

Esse byte também é comparado com 
$50, a cor gráfica correspondente à en- 
costa da montanha. Se seu valor estiver 
presente, o processador salta para MTS, 
que volta a imprimir Willie no mesmo 
lugar, evitando que ele ande. 



A posição de memória 18251 é usa- 
da como uma baliza para informar ao 
processador qual das duas figuras será 
impressa na próxima vez — a que tem 
as pernas abertas ou a que tem as per- 
nas juntas. Quando elas são impressas 
alternadamente, dão a impressão de que 
Willie está andando. 

A baliza em 18251 é carregada no 
acumulador. Se está ajustada com 0, a 
instrução BEQ faz o processador pas- I 
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sar para a rotina que começa com o ró- 
tulo MNO. Esta imprime a figura com 
as pernas abertas. Mas, se o conteúdo 
de 18251 não for 0 e a baliza estiver ajus- 
tada com 1 , o salto não ocorre e o pro- 
cessador continua na rotina MNI, que 
imprime uma figura com as pernas jun- 
tas. Repare que, se Willie não estiver an- 
dando, o processador também pula pa- 
ra MNI e o imprime com as pernas 
juntas. 

X é carregado com o último valor ar- 
mazenado na pilha da máquina. Reven- 
do a listagem, você constatará que o úl- 
timo dado colocado na pilha de máqui- 
na foi a nova posição de Willie, um ca- 
ractere adiante de sua última posição. 
O apontador da pilha do usuário, U, 
que funciona como apontador de dados 
na rotina CHARPR, é carregado com 
17774. Este é o endereço inicial dos da- 
dos da figura com as pernas juntas. O 
processador vai para a rotina CHARPR 
e imprime a metade superior de Willie. 

O registrador X é carregado de novo 
e incrementado com 256, o que faz o 
apontador se mover um caractere para 
baixo — a posição da metade inferior 
de Willie. Observe que não foi preciso 
carregar U de novo. Ele é o apontador 
da pilha do usuário, e se ajusta automa- 
ticamente quando os dados são impres- 
sos na tela. 

A posição de memória 1 825 1 é ajus- 
tada com 0, para que a outra figura de 
Willie — a de pernas juntas — seja im- 
pressa na próxima vez. Em seguida, o 
processador vai para MANE. 

Logo abaixo encontra-se a rotina 
MMO, que imprime a figura seguinte de 
Willie. Ela trabalha exatamente do mes- 
mo modo. Desta vez, porém, U é ajus- . 
tado com 17814, já que corresponde ao | 
início dos dados para a figura com as 
pernas abertas. No final da rotina, 1 é 
carregado em A e armazenado em 1 825 1 , 
para que Willie seja impresso com as 
pernas juntas na próxima vez que a ro- 
tina de movimentação for chamada. 

Qualquer que seja a figura impressa, 
o processador aciona a rotina MANE. 
Ela carrega a nova posição de nosso per- 
sonagem em X e armazena-a em 18249. 
O último valor da pilha é colocado em 
X, para evitar que a pilha de máquina 
aumente descontroladamente. O proces- 
sador então retorna. 



MORTE OU IMOBILIDADE 



Se Willie tiver sucumbido a algum 
dos perigos que o ameaçavam e estiver 
morto, o processador é mandado para 
MD Y A ou MDY — o rótulo dependerá 
do local onde ele morreu. Se encontrou 
I um perigo no inicio do programa, an- 



tes que a nova posição tivesse sido co- 
locada na pilha, o processador irá para 
MDY. Mas, se a nova posição de Willie 
já foi colocada na pilha antes do passo 
fatal, ele irá para MDYA, e a nova po- 
sição será recuperada da pilha. 

A é carregado com 2 — valor que in- 
dica a morte de Willie. Em seguida, es- 
se valor é armazenado em 18252, posi- 
ção da variável da morte. 

Feito isso, o processador retorna. 

Se Willie tiver esbarrado na encosta, 
o processador é mandado para MTS. 
Aqui, a nova posição de Willie é nova- 
mente recuperada da pilha, mas seu va- 
lor é utilizado e, depois de decrementa- 
do em 1, volta ã pilha. 

O processador salta mais uma vez pa- 
ra MNI e imprime Willie com as pernas 
juntas, na mesma posição de antes, o 
que o deixa efetivamente parado. 



O programa a seguir permite que 
Willie inicie sua corrida para o topo da 
montanha e verifica se ele encontrou al- 
gum perigo ou recompensa. Caso você 
esteja usando o Assembler de INPUT, 
precisará fazer uma alteração: na linha 
5010, o comando DIM T$(100) muda 
para DIM T$(200), uma vez que a roti- 
na aqui apresentada é muito extensa. 
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org 54603 

ld a, (-5202) 

cp 0 

jp nz.pl 

ld a, (-5203) 

cp 1 

ld hí. (62407) 
ld de. (-5205) 

add hl.de 

push hl 

dec hl 

ld a. 255 

push hl 

call 77 

pop hl 

ld de. 32 

add hl.de 

ld a. 255 

call 77 

ld a.O 
puah hl 
call 77 
pop hl 
ld de, 32 
add hl.de 



ld 



i.l 



cp 72 
jp z.mre 
cp 74 
jp z,»re 
cp 37 
jp z.nre 
cp 254 
jp z.nre 
ld a, 4 



490 

500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
7B0 
790 



puah hl 
call 77 

ld de, 32 
add hl.de 
call 74 



840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 



ld b.129 
ml ld a,b 
ld (-5202) ,a 



ld (-5203). a 
■c ld hl , (-5205) 
ld de. 222 
abe hl.de 



wa ld hl , (62407) 

ld de. (-5205) 

add hl.de 

ld de. 33 

add hl.de 

push hl 

call 74 

pop hl 

cp 36 

jr z.nre 

cp 52 

cp 13 



ld de, 32 
add hl.de 
call 74 
cp 72 



cp 37 

ld hl . (62407) 
ld de, (-5205) 
add hl.de 
ld a. 4 
puah hl 
call 77 

inc hl 
ld a. 6 
puah hl 
call 77 

ld P de. 32 
add hl.de 
ld a, 7 
push hl 
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call 77 
dec hl 



ld <-5205) ,hl 
■ t ld a. O 
ld (-5203). a 



1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 



Você pode executar essa rotina mes- 
mo sem as duas restantes, que comple- 
tam o programa de movimentação de 
Willie. Embora esta parte possa chamar 
as demais, não haverá erro. Uma instru- 
ção ret, que apagaremos mais tarde, foi 
colocada no fim da rotina — assim, se 
uma seção inexistente for acessada, o 
programa simplesmente retornará. 



0 QUE WILLIE VAI FAZER? 



A variável armazenada em -5202 in 
dica se Willie vai ou não pular. O con 
teúdo dessa posição é carregado no 
mulador e comparado com 0. Se não for 
0, o personagem tem que pular e o pro- 
cessador salta para a rotina pl. Esta ain- 
da não foi publicada e, no seu lugar, c 
processador encontra apenas uma ins 
truçâo ret, voltando para a rotina prin 
cipal do jogo. 

Se Willie não deve pular, ou seja, se 
o conteúdo de - 5202 é 0, o processador 
continua a execução da rotina. O con- 
teúdo da posição de memória -5203, 
que guarda a variável da caminhada, é 
carregado no acumulador. 

Há duas figuras para Willie — uma 
com as pernas juntas e a outra com as 
pernas abertas. Quando ele está parado, 
a primeira figura é impressa continua- 
mente no mesmo lugar. Mas, quando es- 
tá andando, as duas figuras são impres- 
sas alternadamente. A variável da cami- 
nhada indica ao processador se Willie 
deve andar uma posição — nesse caso, 
usa-se a figura de pernas abertas. 

A instrução cp 1 verifica se o perso- 
nagem deve andar. Se o valor for 1 , jp 
z,wa manda o processador para a roti- 
na que faz Willie andar uma posição. 
Do contrário, o processador continua a 
executar a mesma rotina. 



Quando está andando, Willie abre as 
pernas e dá um passo à frente, apare- 



cendo com as pernas juntas. Temos es- 
ta sequência (cada item significa uma 
chamada na rotina de movimentação): 

- Willie é impresso com as pernas jun- 
tas porque está imóvel; a tecla N foi 
pressionada e a variável, ajustada. 

- Willie é impresso com as pernas aber- 
tas pela rotina que o faz andar; sua po- 
sição é incrementada e a variável da ca- 
minhada é ajustada com zero no fim da 
rotina. 

- Willie é impresso com as pernas jun- 
tas, uma posição à frente, e as teclas são 
testadas. 

Com as pernas abertas, o persona- 
gem ocupa duas posições adjacentes; 
com as pernas juntas, uma. Garantimos 
assim um efeito de movimentação suave. 

Como você pode concluir da sequên- 
cia acima, toda vez que Willie for im- 
presso com as pernas fechadas, a posi- 
ção anterior deve ser apagada. Caso 
contrário, partes da figura serão deixa- 
das pelo caminho. 

O par HL é carregado com o endere- 
ço inicial da Tabela de Nomes (TN) da 
VRAM, que se encontra nas posições 
62407 e 62408. A posição de Willie na 
tela, que está em -5205 e -5204, é co- 
locada em DE. Os dois valores são so- 
mados em HL, que passa a conter o en- 
dereço de Willie na TN da VRAM. Es- 
se endereço é guardado na pilha. 

O endereço em HL é decrementado 

- o que corresponde a voltar uma po- 
sição na tela. Esse valor também é guar- 
dado na pilha. O acumulador é carre- 
gado com 255, o código do padrão va- 
zio usado como céu, e a rotina 77 da 
ROM é chamada. Como você deve se 
lembrar, ela escreve o valor do acumu- 
lador no endereço da VRAM apontado 
por HL. 

O último valor de HL é recuperado 
da pilha e adicionado a 32, por DE. Is- 
so faz HL apontar para a posição logo 
abaixo da anterior. O acumulador é no- 
vamente carregado com 255, o padrão 
de céu, e a rotina 77 é chamada. 

Todo esse procedimento teve como 
finalidade apagar a metade esquerda do 
nosso personagem que, com as pernas 
abertas, ocupa quatro posições. A me- 
tade direita será apagada quando a Fi- 
gura for impressa com as pernas juntas, 
sobreposta à anterior. Repare que isso 
poderia ser desnecessário se Willie já es- 
tivesse com as pernas juntas — mas é 
uma precaução sempre tomada. 



Precisamos agora imprimir a nova fi- 
gura com as pernas juntas. A posição 
que foi armazenada na pilha é recupe- 
rada em HL. O acumulador é carrega- 



do com 0, código do primeiro padrãc 
para essa figura. Guarda-se o valor de 
HL na pilha e a rotina 77 é chamada. 

Ao endereço, recuperado da pilha e 
colocado em HL, adiciona-se 32 — o 
que significa apontar uma posição abai- 
xo. O acumulador é carregado com 1, 
código do segundo padrão da figura. O 
valor de HL é guardado na pilha e a ro- 
tina 77 é chamada. Feito isso, a figura 
de Willie com as pernas juntas já está 
impressa. 



ONDE WILUE ESTA PISANDO? 



Como Willie se moveu uma posição 
à frente, convém verificar onde ele está 
pisando. Note que, mesmo que o per- 
sonagem estivesse parado, esta parte da 
rotina seria executada. Se ele estiver pi- 
sando numa cobra, num buraco ou na 
água, o processador deve ser informa- 
do de sua morte. 

A primeira coisa a fazer é verificar 
qual o código do padrão que está sob 
os pés de Willie. O endereço que o pa- 
drão dos pés ocupa na TN da VRAM 
é recuperado da pilha e colocado no par 
HL. O valor 32 é somado a esse endere- 
ço por meio do par DE, fazendo com 
que ele passe a apontar para a posição 
imediatamente abaixo dos pés de Wil- 
lie. A rotina 74 da ROM é chamada e 
faz a leitura da VRAM, devolvendo a 
A o valor da posição apontada por HL. 

Com isso, o acumulador passa a con- 
ter o código do padrão no qual Willie 
está pisando. Esse valor é comparado 
com 72 e 74, os padrões de mar; com 
37, o padrão da cabeça da cobra, e com 
254, o padrão do buraco. Se qualquer 
um desses valores estiver presente, a ins- 
trução jp z.mre manda o processador 
para a rotina mre, que elimina nosso 
personagem. Caso contrário, o proces- 
sador continua executando a rotina — 
Willie está salvo. 



A impressão de Willie com as pernas 
juntas corresponde, efetivamente, ao 
fim da ação nesta parte da rotina. Des- 
de que o personagem não tenha morri- 
do, deveremos verificar se ele irá se mo- 
ver na próxima vez. Para isso, exami- 
namos a matriz do teclado. 

O teclado do MSX é controlado pela 
interface de periféricos PPI (8255). Ca- 
da tecla faz parte de uma matriz e ocu- 
pa- uma Unha e coluna determinadas. 
Para verificar se uma tecla está sendo 
pressionada, mandamos um sinal para I 
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a linha que ela ocupa e checamos se o 
bit correspondente à sua coluna tem va- 
lor 0. Essas operações envolvem escrita 
e leitura na PPI e podem ser implemen- 
tadas com instruções in e out nos ende- 
reços adequados. No nosso caso, a ro- 
tina 321 da ROM realiza a tarefa. Para 
isso, basta colocar no acumulador a li- 
nha da matriz do teclado que queremos 
pesquisar. A rotina 321 devolve nos bits 
do acumulador a situação de todas as te- 
clas dessa linha; se o bit corresponden- 
te à tecla for 0, ela está sendo pres- 
sionada. 

Como as teclas M e N ocupam a 
quarta linha da matriz do teclado, o acu- 
mulador é carregado com 4. Em segui- 
da, a rotina 321 é chamada. A instru- 
ção bit 2,a analisa o bit dois do número 
encontrado para verificar se a tecla M 
está sendo pressionada. Todos os bits 
correspondentes às teclas têm, normal- 
mente, valor 1 . Quando a tecla é pres- 
sionada, porém, eles assumem o valor 
0. Se a tecla M foi pressionada, o bit 
dois tem valor 0. 

Nesse caso, o processador ignora a 
instrução jr az. Mas, se M não tiver si- 
do pressionada, ele salta para a rotina 
mf. Como a tecla M foi pressionada, 
Willie deve pular; o registro B é carre- 
gado com 1. 

Depois o bit três é testado da mesma 
maneira. Se N não foi pressionada, o bit 
três tem valor 1 e a instrução jr nz faz 
o processador saltar a próxima instru- 
ção. Mas, se a tecla N foi pressionada, 
jr nz não tem efeito e B é carregado com 
129. 

Seja como for, o processador trans- 
fere o conteúdo de B para A e o coloca 
em -5202. Esta, como você se lembra, 
é a posição de memória que o processa- 
dor examina no início da rotina, para 
ver se Willie deve ou não pular. 

O significado dos números 1 e 129 se- 
rá explicado nas duas próximas seções 
de A vatanche, que executam o salto ver- 
tical e o salto à frente. 

A instrução jr mc faz o processador 
pular a próxima parte. 



Se a tecla M não foi pressionada, o 
processador vai para a rotina mf, que 
checa se a tecla N foi pressionada — ou 
seja, se Willie não irá pular, mas, sim- 
plesmente, andar. 

O bit três é testado para ver se a te- 
cla N foi pressionada. Note que a leitu- 
ra da matriz do teclado ainda se encon- 
tra no acumulador — o processador pu- 
lou para esta parte da rotina depois que 
o bit dois foi testado. 

Se a tecla N não tiver sido pressiona- 



da, a instrução jr nz salta a próxima par- 
te. Caso contrário, A é carregado com 1 
e esse valor vai para o endereço -5203, 
onde se encontra a variável da caminha- 
da, examinada no inicio da rotina. Nes- 
sa posição o valor 1 indica que deve ser 
impressa a figura de Willie que tem as 
pernas abertas — portanto, ele está 
andando. 



Falta verificar apenas um elemento: 
Willie pegou o seu prémio? 

A posição do personagem é armaze- 
nada nos endereços -5205 e-5204. O 
conteúdo desses endereços é dado pelo 
par HL. O valor 222, que corresponde 
à posição de tela onde o prémio foi im- 
presso, é colocado no par DE. 

O conteúdo de DE é subtraído do 
conteúdo de HL. Se o resultado for di- 
ferente de 0, Willie não alcançou o pré- 
mio. A instrução jr nz.mo salta então 
as próximas instruções. Mas, se o resul- 
tado for 0, o personagem já obteve pré- 
mio e o valor 1 é carregado em -5201 
através do acumulador. Esta é a posi- 
ção que a rotina principal examina, in- 
formando se o escore deve ser aumen- 
tado e outro nível iniciado. Feito isso, 
o processador encontra a instrução ret 
e retorna. 



UM PASSO 4 FRENTE 



Antes de prosseguir, Willie deve ve- 
rificar o que existe à sua frente. Sua po- 
sição é colocada no par DE; o endereço 
inicial da TN da VRAM, em HL. Os 
dois valores são somados em HL, que 
passa a conter o endereço na TN que 
corresponde à posição da cabeça de Wil- 
lie na tela. O valor 33 é somado em HL, 
movendo o apontador uma linha para 
baixo e uma posição para a direita — 
em outras palavras, para a posição 
adiante dos pés de Willie. Esse valor é 
guardado na pilha e, em seguida, a ro- 
tina 74 da ROM é chamada para fazer 
a leitura da VRAM. 

O código do padrão que está na fren- 
te dos pés de Willie se encontra no acu- 
mulador. Ele é comparado com 36, pa- 
drão da língua da cobra; com 13 e 17, 
padrões da pedra, e com 52, padrão da 
encosta. Se os padrões da pedra ou da 
cobra estão presentes, a instrução jr 
z,mre faz o processador saltar para a ro- 
tina que elimina Willie. Mas, se na po- 
sição estiver o padrão da encosta, o pro- 
cessador salta para a rotina que deixa 
Willie parado. Obviamente, ele não po- 
de ir em frente a não ser pulando. 



Não basta, porém, identificar o pa- 
drão que está na frente de Willie. Pre- 
cisamos saber, também, em que padrão 
ele pisará depois que se mover. Para is- 
so, DE é carregado com 32 e somado ao 
conteúdo de HL, que aponta para uma 
posição abaixo da anterior. 

A rotina 74 é novamente chamada e 
o conteúdo do acumulador comparado 
com os padrões do mar, do buraco e da 
língua da cobra. Se qualquer um desses 
valores estiver presente, a instrução jr 
z.mre vai para a rotina da morte. Se na- 
da disso aconteceu e o personagem ain- 
da está vivo, o par HL é carregado com 
o endereço inicial da TN, e DE, com a 
posição de Willie na tela. Esse valor é 
somado em HL. 

A rotina 77 é chamada quatro vezes 
para imprimir os quatro padrões da fi- 
gura de Willie com as pernas abertas, 
cujos códigos são 4, 5, 6 e 7. 

A posição do personagem é carrega- 
da de-5205 e-5204 para o par HL, in- 
crementada e devolvida. Com isso, atua- 
lizamos a posição de Willie. Na próxi- 
ma vez, ele começará deslocado um ca- 
ractere para a direita. 



A rotina ml é chamada diretamente 
quando Willie se depara com a encos- 
ta, não podendo prosseguir a não ser 
com um pulo. O processador, porém, 
chega a essa rotina quando o persona- 
gem foi impresso com as pernas abertas. 

Um valor 0 é carregado no endereço 
-5203, por intermédio do acumulador, 
indicando ao processador que, na pró- 
xima vez, a figura de Willie deve ser im- 
pressa com as pernas juntas, no mesmo 
lugar ou uma posição à frente, depen- 
dendo do que aconteceu. 

Em seguida, o processador retorna. 



Se Willie se afogou no mar, foi pica- 
do por uma cobra, caiu num buraco ou 
foi atingido por uma pedra, a rotina mre 
é chamada, informando ao resto do pro- 
grama que Willie morreu. 

Para que se divulgue essa informa- 
ção, o valor 2 é colocado no endereço 
-5201, que será examinado em algum 
ponto do jogo. As providências para o 
funeral de Willie serão, então, tomadas, 

Feito isso, o processador retorna. 

O último ret da listagem, precedido 
do rótulo pl, será apagado pela próxi- 
ma rotina de A valanche. Sua única fun- 
ção é evitar que, na falta das rotinas, 
ocorra algum erro. 
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UMA PLANILHA 
ELETtôNICAO) 



Com este artigo, encerramos nossa 
série sobre planilhas eletrônicas. 
Depois de acrescentar ao programa as 
linhas aqui apresentadas, você poderá 
explorar todo o seu potencial. 

Para ter uma planilha completa e 
operacional, carregue na memória do 



seu micro as partes já dadas do progra- 
ma e acrescente as linhas que faltam. 
Nos artigos anteriores, mostramos, por 
meio de exemplos, como montar uma 
planilha. Agora, que você já tem todo 
o programa, veremos como utilizá-lo. 

As instruções que se seguem sào vá- 
lidas para todas as máquinas. As dife- 
renças existentes entre o Spectrum e os 
demais microcomputadores serão sem- 
pre especificadas. 



■ COMO DAR ENTRA DA 

AS EQUAÇÕES 

■ CÚPIA ABSOLUTA E RELATIVA 
■ 0 USO DE CONSTANTES 

■ COMPLETANDO 0 PROGRAMA 



MONTAGEM DAS EQUAÇÕES 



O que faz da planilha eletrônica uma 
ferramenta tão versátil é sua capacida- 
de de trabalhar com equações. Não se 
assuste com a palavra equação: nossas 
"equações" não passam de especifica- 
ções bastante simples das operações arit- 
méticas de adicionar valores das colu- 
nas, obter o total de uma determinada 
linha, calcular porcentagem etc. Os ope- 
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USE A PLANILHA 
COM MAIS EFICIÊNCIA 

Agora que você dispõe de um pro- 
grama para a elaboração de uma plani- 
lha de cálculo, convém conhecer al- 
guns "truques" que lhe permitirão uti- 
lizá-la de maneira bem mais rápida e efi- 
ciente: 

• Preenchimento da planilha: depois de 
definir o titulo geral e os subtítulos das 
seções, dedique-se ao "esqueleto" da 
planilha, ou seja, à identificação das li- 
nhas e colunas. Em seguida, coloque 
os dados propriamente ditos e, final- 
mente, as fórmulas. Procedendo assim, 
vocã diminuirá as chances de cometer 
erros de entrada e evitará que se exe- 
cutem cálculos antes que todos os da- 
dos e rótulos estejam presentes. 

• Cuidado com os laços sem fim: esse 
tipo de problema pode ocorrer quan- 
do se colocam duas fórmulas em célu- 
las diferentes, uma utilizando o resul- 
tado do cálculo da outra. Em conse- 
quência, o programa "emperra", pois 
a detecção de uma situação como es- 
ta não foi prevista. Não deixe de veri- 
ficar todas as fórmulas antes de exe- 
cutar o programa. 



radores usados são: mais ( + ), menos 
(-), vezes (*), dividido (/), por cento 
(°7o), total de linhas (&) e total de colu- 
nas ($). 

Para escrever uma equação, indica- 
se o nome da primeira célula, depois o 
nome da segunda célula e, por último, 
o operador. Vejamos alguns exemplos. 
Se colocarmos A1A2 + na célula Cl, 
obteremos a soma dos valores contidos 
em Al e A2 na célula Cl. A equação 
Al A10$ soma todos os valores da colu- 
na A, da linha 1 até a linha 10. Da mes- 
ma maneira, A6F6& soma todos os va- 
lores da linha 6, começando na coluna 
A e terminando na coluna F. Finalmente, 
A5B2<Po é calculado como A5*B2/100, 
o que dá B2 por cento de A5. As equa- 
ções são colocadas nas células em que 
se quer que apareçam os resultados. 

Com excecão das versões destinadas 
ao Spectrum e ao Apple, o programa 
permite ainda que se acrescente um nú- 
mero no fim da equação para especifi- 
car a quantidade de casas decimais que 
aparecem na resposta. 



CÓPIA ABSOIUTA i HELATIVA 



O programa oferece a alternativa de 
se copiar o conteúdo de uma célula. Is- 
so nos poupa o trabalho de redigitar 
uma formula em todas as células em que 
será usada. Podemos escolher entre uma 
cópia absoluta ou relativa. A cópia ab- 
soluta produz uma réplica idêntica da 
célula, onde quer que você queira, seja 
numa única célula, seja numa coluna in- 
teira. A cópia relativa, usada especial- 
mente para equações, sofre alterações 
conforme a linha e a coluna para onde 
está sendo copiada. 

Suponhamos que você tem A1B1* na 
célula Cl e quer que toda célula da co- 
luna C contenha o produto das duas co- 
lunas anteriores — ou seja, A2B2* em 
C2, A3 B3* em C3 etc. A copia relativa 
faz isso para você. O procedimento é o 
seguinte: pressione a tecla de cópia (ve- 
rifique, adiante, qual a tecla que seu mi- 
cro usa), selecione R (para relativa) e co- 
loque o cursor sobre a célula a ser co- 
piada (no Spectrum, dígita-se o nome da 
célula). Em seguida, defina se a cópia 
deve ser feita em linha ou coluna — no 
nosso caso, pressione C. Finalmente, di- 
gite o nome da célula inicial (Cl) e da 
final (CIO, por exemplo). O programa, 
assim, preencherá toda a coluna para 
você. 

Experimente também copiar valores 
em linhas e obter cópias absolutas de 
equações e valores. 



CONSTANTES 



Precisamos, com frequência, utilizar 
constantes em uma equação — por 
exemplo, um valor como 17, para cal- 
cular a porcentagem do ICM, ou como 
10, para calcular descontos. 

Como não se pode colocar números 
diretamente em uma equação — que é 
baseada no conteúdo de duas células — , 
empregam -se diferentes métodos para a 
introdução de constantes. 

No Spectrum, elas costumam ser pre- 
cedidas pela letra Z. Assim, A1Z17% 
calcula o ICM de um valor colocado na 
célula Al . Nos demais micros, as cons- 
tantes devem ser colocadas na coluna Z. 
Retomando o último exemplo: o valor 
17 será colocado na célula Zl e a equa- 
ção tomará a forma AlZl^o. 

Esse procedimento é necessário por- 
que os valores das constantes não devem 
ser alterados nem mesmo quando se op- 
ta por uma cópia relativa. Se reservar- 
mos uma coluna para elas, estaremos as- 
segurando um tratamento diferenciado 
na hora da cópia. 



0 USO DO PROGRAMA 



Existem algumas variações, de má- 
quina para máquina, no que diz respei- 
to à colocação de valores, rótulos e 
equações na planilha, assim como à exe- 
cução das operações. Comentaremos, 
em seguida, os detalhes específicos pa- 
ra cada microcomputador. 




O programa do Spectrum demora um 
pouco para definir as variáveis internas. 
Assim, você lerá uma tela vazia por al- 
guns momentos após teclar RUN. A te- 
la aparece no modo de valores — o que 
significa que valores e rótulos podem ser 
inseridos. Pressione E para passar ao 
modo de equação e V para voltar ao de 
valores. Para introduzir um dado em 
uma célula, use as teclas de controle do 
cursor; ao chegar à célula correta, pres- 
sione I. Em seguida, digite o que quiser. 

As equações são mostradas sobre 
fundo amarelo, com os valores em pre- 
to e os rótulos em azul. Considera-se ró- 
tulo qualquer dado digitado no modo de 
valores que comece com uma letra. Co- 
mo as cores aparecem em qualquer mo- 
do, você pode distinguir facilmente as 
células que contêm equações mesmo que 
esteja vendo a folha no modo de valo- 
res ou vice-versa. 

A (ela exibe apenas quatro colunas e 
dez linhas de cada vez, mas é possível 
mudar para outra parte da planilha pres- 
sionando-se simultaneamente as teclas 
de controle do cursor e <SVMBOL 
SHIFT> 

Tente inserir alguns valores e rótulos, 
mude para o modo de equações e some 
os valores das colunas e linhas. Para ver 

0 resultado dos cálculos, volte para a tela 
de valores e pressione C e < SYMBOL 
SHIFT> . Se algum número for muito 
grande e não couber na célula, os dígi- 
tos da direita serão eliminados e os que 
permanecerem na tela ficarão piscando 
como aviso. 

Agora, experimente copiar algumas 
equações e valores usando a tecla Z. O 
programa pedirá toda a informação que 
for necessária. 

Segue-se a lista de comandos usados 
pelo programa: 
V mostra a tela de valores; 
E mostra a tela de equações; 

1 insere um dado em uma célula; 

I seguido de < ENTER > apaga um 

valor ou rótulo; 
1 seguido de # apaga uma equação; 
C mais < SYMBOL SHIFT> calcula 

os valores da planilha; 
<SPACE> mais < SYMBOL SHIFT > 
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interrompe os cálculos; 
Z copia uma célula; 
S mais < SYMBOL SHIFT> grava 

dados em fita; 
J mais < SYMBOL SHIFT> carrega 

dados da fita; 
P imprime a tela em uma impressora; 
Teclas de controle do cursor movem o 

cursor; 

Teclas de controle mais <SYMBOL 
SHIFT> movem a janela de texto. 



O MOEI 



Ao executar o programa, você verá 
apenas a parte superior esquerda da pla- 
nilha; se quiser examinar qualquer ou- 
tra parte, recorra às teclas de controle 
do cursor (no micro Apple, mova o cur- 
sor para cima e para baixo usando as te- 
clas A e Z). Você pode também passar 
diretamente para qualquer ponto da pla- 
nilha digitando G. 

As teclas V e E alternam as teias de 
equações e valores. É possível entrar va- 
lores nas duas telas, mas os resultados 
só serão mostrados na tela de valores. 
Para inserir um dado em uma célula, 
mova o cursor até ela e pressione 1 . De- 
pois, digite sua entrada. 

As equações são digitadas conforme 
descrevemos anteriormente. No TRS- 
Color e no MSX podemos discriminar 

0 número de casas decimais do resulta- 
do. A1B1/2, por exemplo, mostra o re- 
sultado de Al dividido por BI com duas 
casas decimais. Esse recurso é muito útil 
quando estamos lidando com valores fi- 
nanceiros. No caso de obtermos núme- 
ros que excedam o tamanho da célula, 
a mensagem <OV> será exibida. 

Eis as teclas usadas no programa: 
V mostra a tela de valores; 
E mostra a tela de equações; 

1 insere um rótulo, valor ou equação; 
C copia uma célula; 

S grava dados no cassete ou disco; 

L lê dados do cassete ou disco; 

Q sai do programa; 

Teclas de controle do cursor movem o 
cursor e a janela de texto (no Apple, 
usam-se A e Z para mover o cursor 
para cima e para baixo). 



910 IF Z-3 THEN LET v(l)-( 
CODE a9Il)>-64: LET v(2)-VAL a 
3(2): LET v(3)-(CODE 8$ (3)) -64 
: LET v(4)-VAL sS (4 TO 5): LET 
oS-hS(6) : RETURN 
920 IF 2-4 THEN LET v(l)-( 
CODE aS(D)-64: LET v(2)-VAL s 
8<2 TO 3) : LET v(3)-(CODE aS (4 
))-64: LET v(4)-VAL aS<5 TO 6) 
! LET o3-aSt7) ! RETURN 



930 IF z-5 THEN LET v(l)-( 
CODE aSU))-64: LET v(2)-VAL a 
$(2): LET v(3)-(CODE aS(3))-64 
: LET v(4)-VAL aS(4): LET o3-a 
S(5) : RETURN 

940 IF 1=6 THEN LET v(l)M 
CODE flSU))-64: LET v(2)-VAL a 
S(2 TO 3) : LET v(3)-[CODE aS (4 
))-64: LET v(4)-VAL 83(5): LET 
oS-aS (6) : RETURN 
950 IF 8-7 THEN LET v(l>-( 
CODE sS(l))-&4: LET v(2)-VAL B 
8(2): LET v(3)-(CODE a3(3))-64 
: LET v(4)-VAL sS(4 TO 5): LET 
aS-aS(6) : RETURN 
960 IF 8-8 THEN LET v(l)-( 
CODE aS(D)-64: LET v(2)-VAL a 
S(2 TO 3) : LET v(3)-(C0DE aS (4 
))-64: LET v(4)-VAL aS(5 TO 6) 
! LET oS-aS(7) : RETURN 
970 IF 8-9 THEN LET v(l)-{ 
CODE aSU))-64: LET v(2)-VAL a 
S{2): LET v(3)=(CODE »3(3))-64 
: LET v(4)-VAL aS (4 TO 6): LET 
oS-sS<7) : RETURN 
980 IF 8-10 THEN LET v(l)-( 
CODE s$(l>)-64: LET v(2)=VAL a 
3(2 TO 3): LET v(3)-(C0DE sS(4 
))-64: LET v(4)=VAL aS(5 TO 7 
) : LET oS-aS(S) ! RETURN 
990 LET v(l)=(C0DE aS(l))-64: 
LET v(2)-VAL aS(2): LET v(3)-( 
CODE aS(3))-64: LET v[4)-VAL a 
3(4 TO 7) : LET oS-aS(B) : 
RETURN 
1000 RETURN 

1010 IF dS(v(2) ,v(l) ,1)>'9" THE 
N LET t=0 : RETURN 
1020 IF v(3}-26 THEN LET b-v(4 
): LET a-VAL d$ (v ( 2) , v (1) , TO B 
) : GOTO 1050 

1030 IF dS (v(4) .v(3) ,1) >"9" THE 

N LET t = 0: RETUHN 

1040 LET a-VAL dS (v (2) , v (1) , TO 

8) : LET b-VAL dS<v(4) ,v(3) , TO 

8) 

1050 IF oS="+" THEN LET t = a+b 
RETURN 

1060 IF oS-"-" THEN LET t-a-b 
RETURN 

1070 IF oS-"/" AND b-0 THEN Li 
T t-0: RETURN 

1080 IF o$-"/" THEN LET t-a/b: 
RETURN 

1090 IF oS-'*" THEN LET t-a*b: 
RETURN 

1100 IF oS-"t" THEN LET t-<a*t 
)/100: RETURN 

1110 IF o3-"S" THEN LET t-0: F 
OR a-v(2) TO v(4): LET t-t+VAL 
dS(S,v{l), TO 8): NEXT a: RE TUR 
N 

1120 IF oS-"»." THEN LET t-0: F 
OR a-v(l) TO V(3): LET t-t+VAL 
d3(V(2),a, TO 8): NEXT a: RETUR 
N 

1130 RETURN 

1140 IF z-1 THEN IF VAL aS(2)- 
0 OR VAL aS(4)-0 THEN LET f-1': 
RETURN 

1150 IF 2=2 THEN IF VAL aS(2 T 
O 3)>30 OR VAL aS (2 TO 3)-0 OR 



VAL a8<5)-0 THEN LET f-1: RETU 
RN 

1160 IF 8-3 THEN IF VAL aS (4 T 
O 5)>30 OR VAL aS (4 TO 5)-0 OR 
VAL aS(2)-0 THEN LET f-1: RETU 
RN 

1170 IF 8-4 THEN IF VAL aS(2 T 
O 3)>30 OR VAL aS(5 TO 6) >30 OR 

VAL aS(2 TO 3 > -0 OR VAL aS (5 T 
O 6)-0 THEN LET f-1: RETURN 
1180 IF z-5 OR z-7 OR Z-ll THEN 
IF VAL aS(2>-0 THEN LET f-1: 

RETURN 

1190 IF Z-6 OR Z-8 OR 1-10 THEN 
IF VAL aS(2 TO 3)-0 OR VAL a3 
(2 TO 3)>30 THEN LET f-1: RETU 
RN 

1200 LET aS-" " : FOR g-1 

TO c: LET aS(g)-aS(g): NEXT g: 
GCSUB 890: IF oS-"t* AND (v(l) 

>v{3) 0Rv(2)Ov(4)) THEN LET 

f-1: RETURN 

1210 IF o3-"3* AND tV(l)OvO) 
OR v(2)>v[4)) THEN LET f-1: RE 
TURN 

1220 LET f-0: RETURN 
1230 LET gS-dS(Y+wy,x+wx,17) 
1240 PRINT FLASH 0+(gS-"5" AND 
tS-"VAL"): INK 0+C2 AND gS-"4" 
); PAPER 7-(2 AND gS-"2" ) - (gS-" 
1" OR gS-"5"):AT y*2+2,x*9+5; (d 
5(Y+WY,x+wx, TO 8) AND tS-"VAL" 
) ; (dS (y-wy,x+wx,9 TO 16) AND t3 
--IGUA") : RETURN 
1250 SOUND .4,10 

1260 LET SS-" " : LET oa- 



1280 IF CODE INKEYS>30 AND CODE 
INKEYS<128 THEN LET aSÍOB+l)- 
INKEY3: PRINT AT cy*2 , (cx-1 ) -9+ 
5+oa;a3(oa+l) : LET oa=oa+l: GOT 
O 1350 

1290 IF CODE INKEYS-12 AND oa>0 
THEN LET os-os-1 ; LET sS toa+1 
) -"" : PRINT AT cy«2 , ( (cx-1) "9) + 
5-tis; OVER 0 ; BRTGHT 0:* " : GO 
TO 1270 

}300 IF CODE INKEYS-13 AND aS = " 

" THEN RETURN 
1310 IF CODE INKEYS-13 AND tS=" 
VAL" AND CODE bS(1)>64 THEN LE 
T dS (wy+cy-1 , wx+cx-l , 17) -"2" : L 
ET dS(wy + cy-l. wx+cx-l, TO 8)-bS 
: LET y-cy-1: LET x-cx-1 : GOSUB 

1230: RETURN 
1320 IF CODE INKEYS-13 AND tS-" 
VAL ' THEN GOSUB 1380: LET oa- 
0: LET dS (wy+cy-1 .wx+cx-l , TO 8 
)=a3: LET y-cy-1: LET x=cx-l: G 
OSUB 1230: RETURN 
1330 IF CODE INKEYS-13 AND tS-" 
IGUA" THEN GOSUB 1380: LET os- 
0: LET dS (wy+cy-1 ,wx+cx-l ,9 TO 
16)-sS: LET x-cx-1: LET y-cy-1: 

GOSUB 1230: RETURN 
1340 GOTO 1270 

1350 IF oa-8 AND tS""VAL* THEN 
SOUND .1,-10: GOSUB 1380: LET 
dS (wy+cy-1 , wx+cx-l ■ TO 8)-aS: L 
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ET y-cy-1: LET x-cx-1 : GOSUB 12 
30: RETURN 

1360 IF ob-6 AND tS-"IGUA" THEN 
SOUND .1/tJ-lÚ: GOSUB 1380: LET 
dS<wy+ey-l ,wx+cx-l ,9 TO 16)=sS 
LET y-cy-1: LET x-cx-1: GOSUB 
1230: RETURN 
1370 GOTO 1270 

1360 PRINT AT cy*2 , ( (cx-1) *9) +5 
+ob; BHIGHT 0; OVER li* " 
1390 IF tS-"IGUA" THEN GOSUB 1 
490: RETURN 

1400 GOSUB 1410: PRINT AT cy*2. 

(cx-l)*9+5;aS: RETURN 

1410 LET bS-" 000" : FOR 

u-1 TO oa: LET bS <u+ (8-oa.) ) -g$ l 

u) : NEXT u 

1420 FOR u-1 TO 11 

1430 IF bS(u)0"." THEN NEXT u 

1440 IF u> = ll THEN LET b$(9)=" 

.": LET B$-bS<4 TO ): RETURN 

1450 LET w-6-u 

1460 IF w<0 THEN LET w-ABS w+1 
: LET aS-bS(w TO w+8) : RETURN 
1470 LET sS-" 

1480 FOR u=l TO 8-w: LET 3$ (w+u 
)-bS(u) : NEXT u: RETURN 
1490 IF aS(l)="t" THEN LET s5= 
* "i LET d$ (wy+cy-1 ,wx+c 

X-1.17)-"0": RFTURN 
1500 LET a$ - "": FOR z-1 TO 8: L 
ET aS-aS+(aS(z> AND s$(z)<>" ") 
1510 NEXT z: LET c-LEN aS 
1520 IF c<4 THEN LET dS (wy+cy- 
l,WX+CJt-l,17)-"4": RETURN 
1530 RESTORE 1630: FOR z-1 TO 1 
l: LET f-0: READ mS 
1540 FOR w-1 TO c 
1550 IF BlS(w)-"A" THEN GOSUB 1 
650: IF f THEN GOTO 1610 
1560 IF m$(w)="N" THEN GOSUB 1 
670: IF f THEN GOTO 1610 
1570 IF mS(w)- n O" THEN GOSUB 1 
690- IF f THEN GOTO 1610 
15B0 IF m$(w)-"Z" THEN GOSUB 1 
710: IF f THEN GOTO 1610 
1590 NEXT w: GOSUB 1140: IF NOT 
f THEN LET sS-" " ■ FOR 



w-1 TO c: LET sS(w)=aS(w): NEX 
T w: LET dS (wy+cy-1 . wx-cx-1 . 18) 
-CHRS z: LET dS (wy+cy-1 , wx+cx-1 
,17)*"1": RETURN 
L600 GOTO 1620 
1610 NEXT z 

1620 LET dS (wy+cy-1 ,wx+cx-l . 17) 
="4": RETURN 

1630 DATA "ANANOOO" , "ANNANOO" , " 

ANANNOO" . "ANNANNO" 

1640 DATA "ANZNOOOO" . "ANNZNOOO" 

, "ANZNNOOO" , "ANNZNNOO" , "ANZNNNO 

O" , " ANNZNNNO" , " ANZNNNNO " 

1650 IF aS(w)>="A" AND a$(w)<=" 

X" THEN RETURN 

1660 LET C-l: RETURN 

1670 IF aS(w)>="0" AND aS(w)<=" 

9" THEN RETURN 

1660 LET f = l : RETURN 

1690 LET c3=aS(w): IF cS-"+" OR 

cS = "-" OR cS="*" OR cS-V" OR 
cS="t" OR cS="S" OR e*-'fc" THEN 

RETURN 
1700 LET £-1: RETURN 
1710 IF aS(wl-"Z" THEN RETURN 
1720 LET f-1 l RETURN 
1730 FOR Y-l TO 30: FOR x-1 TO 
24: LET dS(y.x, TO 81=" 0.00 
LET dS(y.x,17)-"0": LET d$(y 
,x,18)=CHRS 0: NEXT x: NEXT y 
1740 RESTORE 1750: FOR x-USR "a 
" TO USR "c"+7: READ a: POKE x, 
a: NEXT x: RETURN 
1750 DATA 8.8,8.8,8,8.8.8 
1760 DATA 0.0,0,255,0,0.0,0 
1770 DATA fl. 8, 8, 255, 8, 8, 8, 8 
17B0 TNPUT "NOME DO ARQUIVO ?" ; 
nS 

1790 SAUE n$ DATA dSO 

1801) PRINT #1;AT 0,0; "PRESSIONE 

V PARA VERIFICAR " 
1810 PAUSE 0: IF (NKEY$= "V" OR 
INKEYS-"v" THEN GOTO 1830 
1870 RETURN 

1830 VERIFY nS DATA dS !) : RETUR 
N 

1840 INPUT "NOME DO ARQUIVO ?" : 



1650 LOAD nS DATA dS(): RETURN 



Q 



1490 PRINT «448:PRINT e448,;:IF 
LEN(DS(CC.CR))-1 THEN PRINT"NA 
DA A COPIAR" :SOUND 5,5: FOR K-l 
TO 500: NEXT: RETURN ELSE PRINT ■ 
COPIA aBSOLUTA OU rE LATI VA" ; 
1500 AS-INKEYS:IF AS-*" THEN 15 
00 

1510 IF A$-CHRS(13) THEN RETURN 
1520 IF A3-"A" THEN TC-l:GOTO 1 
540 

1530 IF AS<>"R" THEN 1490 ELSE 
TC-0 

1540 PRINT 6448 

1550 IF TC=0 AND ASC (DS (CC , CR) ) 
<>131 THEN PRINT §448. "ERRADO : 
MODO COPIA - SOMENTE EQUACOE 
S";:SOUND 1,5: FOR D-l TO 500:NE 
XT D: GOTO 490 

1560 PRINT §448:PR1NT §448. "COP 

IA DE UNHA OU COLUNA"; 

1570 AS=INKEYS:IF AS-"" THEN 15 

70 

1580 IF AS-CHRSU3) THEN RETURN 
1590 IF AS-"C* THEN DC-1:GOTO 1 
610 

1600 IF ASO"L" THEN 1560 ELSE 
DC-0 

1610 PRINT §448:PHINT §448 , "COM 
ECAR PELA CÉLULA" ; : INPUT AS:IF 
AS-"" THEN RETURN 
1620 S1=ASC(AS)-64:IF SK1 OR S 
1>25 THEN 1610 

1630 S2-VAL(MIDS(AS,2>) :IF S2<1 

OR S2>30 THEN 1610 
1640 PRINT §448: PRINT §448 , "TER 
MINAR NA CÉLULA"; : INPUT AS 
1650 IF AS-"" THEN RETURN 
1660 C1"ASC(AS)-64:IF CK1 OR C 
1>25 THEN 1640 

1670 C2-VAL(MIDS[AS,2}) :IF C2<1 

OR C2>30 THEN 1640 
1680 PRINT §448, "COPIANDO - E 
SPERE" 




Entrada das equações no Spectmm. 



Cálculo dos resultados na leia do Spectrum. 
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1690 IF TOl THEN 1970 

1700 IF DC-1 THEN 1840 

1710 IF C20S2 THEN 2090 

1720 AS-ASC(MDS(DS{CC.CR) .2))- 

64:IF AS<>26 AND AS+C1-S1>25 TH 

EN C1-25+S1-AS 

1730 AS-ASC(MIDS(DS<CC.CR) ,5))- 

64:IF AS<>26 ANO AS+C1-S1>25 TH 

EN C1-25+S1-AS 

1740 DS(S1,S2)-DS(CC,CR) 

1750 FOR 1-31+1 TO Cl 

1760 AS-DS(I-1,S2) 

1770 IF MIDS(AS,2,1)-"Z" THEN 1 

790 

17B0 MID3(A3.2.1)-CHR3(ASC(MIDS 
ÍAS.2,1))+1) 

1790 IF MID3(AS.5,1)-"Z" THEN 1 
BIO 

1800 KIDS(AS.5,1)-CHRS(ASC(MIDS 

(A3. 5,1))+1) 

1810 DStI.S2)-AS:NEXT 

1820 IF C1>CX THEN CX-C1 

1830 GOTO 2080 

1840 IF ClOSl THEN 2090 

1850 AS-VAUMIDS (DS(CCCR) , 3, 2) 

):IF AS+C2-S2>30 THEN C2-30+S2- 

AS 

1860 AS-VAL(MIDS(D$(CC,CR) ,6) ) . 

IF AS+C2-S2>30 THEN C2-30+S2-AS 

1870 DS(S1.S2)-DS(CC.CR) 

1880 FOR I-S2+1 TO C2 

1890 AS-DS(Sl.I-l) 

1900 IF MIDS<AS,2,1)-"Z" THEN 1 

920 

1910 V-VAL(MIDS<A$,3,2))+1:IF V 
<10 THEN MIDS(AS.3.2)=STRS(V) E 
LSE MID${AS.3.2)-MIDS(STRS<V> ,2 

.2) 

1920 IF MIDS(A$,5,1)-"Z" THEN 1 
940 

1930 V-UAL(MIDS(AS.6.2))+1:IF V 
<10 THEN MIDS(AS,6,2)-STRS(V) E 
LSE MIDS(AS.6,2)-MIDS(STR3(V) , 2 

.2) 

1940 DS(S1,I)-AS:NEXT 
1950 IF C2>RX THEN RX-C2 
1960 GOTO 2080 
1970 IF DC-1 THEN 2030 



1980 IF C20CR THEN 2090 

1990 FOR I-CC+1 TO Cl 

2000 DS ( I . CR) "DS ( 1-1 . CR) :NEXT 

2010 IF C1>CX THEN CX-C1 

2020 GOTO 2080 

2030 IF CIOCC THEN 2090 

2040 FOR I-CR+1 TO C2 

2050 D$(CC,I)«DS(CC.I-1) :NEXT 

2060 IF C2>RX THEN RX-C2 

2070 GOTO 2080 

2080 MO-l:GOSUB 70 : RETURN 

2090 PRINT 6446, "erro NO DESTIN 

O n ;SOUND 1,5: FOR D=l TO 500:NEX 

T D 

2100 GOTO 2080 

m 

1490 LOCATE 0,21: PRINTSPC (35) : L 
OCATE 0,21:IF LEN (DS (CC , CR) ) -1 
THEN PRINT "NADA PARA COPIAR" : FO 
R K-l TO 50 0 :NEXT : RETURN ELSE P 
RINT"COPIA <A>BSOLUTA OU <R>ELA 
TIVA i - [ : 

1500 A$-INKEYS:IF AS-"" THEN 15 
00 

1510 IF A3-CHRSU3) THEN RETURN 
1520 IF A3="A" THEN TC-l:GOTO 1 
540 

1530 IF AS<>*R" THEN 1490 ELSE 
TC-0 

15-50 LOCATE 0,21:PR1NTSPC135) :L 
OCATE 0.21 

1550 IF TC=0 AND ASC (DS (CC , CR) ) 
<>131 THEN PRINT"MODO DE COPIA 
ERRADO - SO EQUAÇÕES!"; : FOR D-l 

TO 500 :NEXT:GOTO 490 
1560 LOCATE 0,21: PRINT" COPIA PO 
R <LINHA> OU <COLUNA>: "i 
1570 AS=INKEYS:IF AS-"" THEN 15 
70 

1580 IF AS-CHRS (13) THEN RETURN 
1590 IF AS-"C" THEN DC-l:GOTO 1 
610 

1600 IF AS<>"L" THEN 1570 ELSE 
DC-0 

1610 LOCATE 0,21:PR1NTSPC(37) :L 
OCATE 0,21:PRINT"INICIA NA CELU 



LA";:INPUT AS:IF AS-"" THEN RET 
URN 

1620 S1-ASC(A3)-64:IF SK1 OR S 
1>25 THEN 1610 

1630 S2-VAL|MIDS(AS,2)) :IF S2<1 

OR S2>30 THEN 1610 
1640 LOCATE 0,21: PRINTSPC (37) : L 
OCATE 0,21:PRINT"TERMINA NA CÍL 
ULA" ; rINPUT AS 
1650 IF AS-"" THEN RETURN 
1660 C1-ASC(AS)-64:IF CK1 OR C 
1>25 THEN 1640 

1670 C2-VAL(MIDS(AS,2)) :IF C2<1 

OR C2>30 THEN 1640 
1680 LOCATE 0,21: PRINTSPC (35) : L 
OCATE 0,21:PRINT"COPIANDO. . . AC 
UARDE" 

1690 IF TC-1 THEN 1970 

1700 IF DC-1 THEN 1840 

1710 IF C20S2 THEN 2090 

1720 AW=ASC(MIDS (DS(CC.CR) ,2) )- 

64:IF AW026 AND AW+C1-31>25 TH 

EN C1-25+S1-AW 

1730 AW=ASC{MIDS(DS (CC.CR) ,5) )- 

64: IF AU<>26 AND AW+C1-S1>25 TH 

EN C1-25+S1-AU 

1740 DS(S1,S2)-DS(CC,CR) 

1750 FOR I-Sl+1 TO Cl 

1760 A$-DS(I-1,S2) 

1770 IF MIDS<AS,2,1)-"Z" THEN 1 

790 

1780 «IDS!AS.2.1)-CHRS(ASC(MIDS 
(A3.2,l))+1) 

1790 IF MID3(A3,5,1)-"Z" THEN 1 
BIO 

1800 MIDS!AS.5.1)-CHBS(ASC(MIDS 

(AS,5,1))+1) 

1810 DS(I,S2)-AS:NEXT 

1820 IF C1>CX THEN CX=C1 

1830 GOTO 2080 

1B40 IF ClOSl THEN 2090 

1850 AW-VAL[MIDS(DS (CCCR) , 3,2) 

):IF AW+C2-SZ>30 THEN C2=30+S2- 

AH 

1860 AU=VAL(MID3(D3(CC.CR) ,6)) : 
IF AW+C2-S2>30 THEN C2=30+S2-AW 
1870 DS(S1.S2)-DSICC,CR) 




Tela de equações (a esquerda) e entrada de valores e rótulos no Acorri, micro sem equivalente no Brasil. 
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1880 FOR I-S2+1 TO C2 

1890 AS=DS(S1.I-1) 

1900 IF MIDS(AS.2.1)-"Z" THEN 1 

920 

1910 V=VAL(MTDS(AS,3,2))+1:IF V 
<10 THEN MIDS (AS. 3, 2) -STRS (V) E 
LSE MIDS(AS,3,2>-MIDS(STR$(V) .2 
.2) 

1920 IF MIDS(AS.5,1)-"Z" THEN 1 
940 

1930 V=VAL(MIDS(AS.6,2))+1:IF V 
<10 THEN MIDS(A5.6,2)-STR$(U) E 
LSE MIDS(AS.6,2)=MID5(STRS(V) .2 



< 1 OB SI > 25 THEN 1610 
1630 S2 • VAL t MIDS (AS.21): 
IF S2 < 1 OR S2 > 30 THEN 1610 
1640 VTAB 23: HTAB 1: CALL - 
958: PRINT "TERMINA NA CEL . : "i 
: INPUT AS 

1650 IF AS - THEN 2085 
1660 Cl = ASC (AS) - 64: IF Cl 

< 1 OR Cl > 25 THEN 1640 
1670 C2 = VAL [ MIDS (AS, 2)): 
IF C2 < 1 OR C2 > 30 THEN 1640 
1680 VTAB 23: HTAB 1: CALL - 
958: PRINT "COPIANDO - AGUARDE. 



.2) 

1940 DS(S1.I)-A$:NEXT 

1950 IF CZ>RX THEN RX=C2 

1960 GOTO 2080 

1970 IF DC-1 THEN 2030 

1980 IF C20CR THEN 2090 

1990 FOR I=CC+1 TO Cl 

2000 DS ( I ■ CR) =D5 (I~l . CR) : NEXT 

2010 IF C1>CX THEN CX=C1 

2020 GOTO 2080 

2030 IF CIOCC THEN 2090 

2040 FOR I-CH-H TO C2 

2050 DS (CC . I) =DS (CC . 1-1 ) :NEXT 

2060 IF C2>RX THEN RX=C2 

2070 GOTO 2080 

2080 MO=l:GOSUB 70 : RETURN 

2090 LOCATE 0,21: PR1NTSPC ( 35 ) : L 

OCATE 0,21:PRINT"ERRO NA DESTIN 

AÇAO":FOR D=l TO 500:NEXTD 

2100 GOTO 2080 



1490 VTAB 23: HTAB 1: CALL - 
958; IF LEN (DStCCCR)) = 1 TH 
EN PRINT "NADA PARA COPIAR"; C 
HHS (7);: FOR K ■ L IO 1000: NE 
XT : RETURN 

1495 PRINT "COPTA [A1BSOHITA O 
U [ R J ELATIVA "i 
1500 GET AS 

1510 IF AS = CHRS (13) THEN 2 
085 

1520 IF AS = "A" THEN TC = 1: 
GOTO 1540 

1530 IF AS < > "R" THEN 1490 
1535 TC - 0 

1540 VTAB 23: HTAB 1: CALL - 
958 

1550 IF TC - 0 AND ASC (DS (CC 
,CR)) < > J31 THEN PRINT "MOD 
O DE COPIA TNCORRETO - SO EQUAC 
OES": CHRS (7);: FOR D ■ 1 TO 1 
000: NEXT : GOTO 490 
1560 VTAB 23: HTAB 1: CALL - 
958: PRINT "COPIA [C]OLUNA OU [ 
L1INHA "; 
1570 GET A$ 

1580 IF AS ■ CHRS (13) THEN 2 
085 

1590 IF AS ■ "C" THEN DC - 1 : 
GOTO 1610 

1600 IF AS < > "L" THEN 1560 
1605 DC = 0 

1610 VTAB 23: HTAB I: CALL - 
958: PRINT "COMEÇA NA CEL . : "i: 
INPUT AS: IF AS - THEN 2085 



1710 IF C2 < > S2 THEN 2090 
1720 AS - ASC ( MIDS (DS(CC,CR 
) ,2)) - 64: IF AS < > 26 AND A 
S + Cl - SI > 25 THEN Cl - 25 + 
SI - AS 

1730 AS - ASC ( MIDS (DStCC.CR 
) ,5) ) - 64: IF AS < > 26 AND A 
SI > 25 THEN Cl - 25 + 



SI ' 



AS 



1740 DS(S1,S2) = DS(CC.CR) 
1750 FOR I - SI + 1 TO Cl 
1760 AS - DSU - 1.S2) 
1770 IF MIDS (AS. 2.D ■ "2" T 
HEN 1790 

1780 AS - LEFTS (AS. D + CHRS 
{ ASC ( MIDS (AS. 2, D) + 1) + 
MIDS (AS ,3) 

1790 IF MIDS (AS.5.1) - "2" T 
HEN 1810 

1800 AS - LEFTS (AS .4) + CHRS 
( ASC ( MIDS (AS. 5, D) + 1) + 
MIDS (AS. 6) 
1810 DSÍI.S2) = AS: NEXT 
1820 IF Cl > CX THEN CX - Cl 
1830 GOTO 2080 
1840 IF Cl < > SI THEN 2090 
1850 AS = VAL ( MIDS (DS(CC,CR 

),3.2)): IF AS + C2 - S2 > 30 T 

HEN C2 = 30 + S2 - AS 

1860 AS - VAL ( MIDS (DS(CC,CR 

),6)): IF AS + C2 - S2 > 30 THE 

N C2 - 30 + S2 - AS 

1870 DSÍS1.S2) ■= DS(CC.CR) 

1880 FOR I = S2 + 1 TO C2 

1890 AS = DSISl.I - 1) 

1900 IF MIDS (AS. 2.1) - "Z" T 

HEN 1920 

1910 V - VAL ( MIDS (A5.3.2) j 
+1: IF V < 10 THEN AS - LEFTS 
(AS. 2) * " " + STRS (V) + MI 
DS (AS ,5) : GOTO 1920 
191S AS - LEFTS (AS. 2) + STRS 

(V) + MIDS (AS. 5) 
1920 IF MIDS (AS ,5,1) - "Z" T 
HEN 1940 

1930 V - VAL ( MIDS (AS.6,2)) 
+1- IF V < 10 THEN AS " LEFTS 
(AS. 5) + " " + STRS (V) + MI 



1620 SI - ASC (AS) 



DS (AS. 8) : GOTO 1920 
1935 AS - LEFTS (AS, 5) + 

(V) + MIDS (AS.S) 
1940 DS(Sl.I) - AS: NEXT 
1950 IF C2 > RX THEN RX = 
64: IF SI 1960 GOTO 2080 



STRS 




O que é uma planilha integrada? 

Os usuários de microcomputadores 
com maior disponibilidade de memória 
RAM - entre eles os da linha PC e al- 
guns modelos da linha Apple — podem 
ter o privilégio de utilizar os programas 
integrados de planilha eletrõnica. Eles 
recebem esta denominação por incluí- 
rem, além do programa de planilha de 
cálculo propriamente dito, outros pro- 
gramas, como os de elaboração de gi 
ficos (a partir dos dados da planilha), 
montagem e gestão de bancos de 
dos relacionais, e, em alguns tipos, pro- 
cessamento de texto. 

A grande vantagem de sistemas 
desse tipo é a perfeita integração de da- 
dos em cada uma das aplicações. Além 
disso, eles tornam dispensável trocar 
programas, quando se deseja utilizar 
um outro aplicativo. 

Para os micros da linha Apple que 
têm memória RAM de 128 Kbytes ou 
mais, já existe um pacote integrado: o 
Totalworks. Mas os pacotes mais di- 
fundidos são os disponíveis para os mi- 
cros da linha PC (de dezesseis bits), tais 
como o Lotus 1-2-3, o Framework e o 
Symphony. 



1970 IF DC = 1 THEN 2030 
19B0 IF C2 < > CR THEN 2090 
1990 FOR I = CC + 1 TO Cl 
2000 DS(T,CH) - DS(I - l.CR): N 

2010 IF Cl > CX THEN CX = Cl 

2020 GOTO 2080 

2030 IF Cl < > CC THEN 2090 

2040 FOR I ■ CR + 1 TO C2 

2050 DS(CC.I) ■ DS(CC,T - 1): N 

EXT 

2060 IF C2 > RX THEN RX = C2 

2070 GOTO 2080 

2080 MO - 1 : GOSUB 70 

2085 VTAB 23: HTAB li CALL - 

958: RETURN 

2090 VTAB 23: HTAB 1: CALL - 

958: PHTNT " ERRO NA DESTINAÇÃO" 

: FOR D - 1 TO 1000: NEXT 

2100 GOTO 2060 

2500 IF PEEK (222) - 5 THEN 

GOTO 1470 

2510 END 

1000 HOME : PRINT "TERMINO 0 P 
ROGRAMA? (S/N) " } i GET AS 
3010 IF AS < > "S" THEN GOSU 
B 70: RETURN 
3020 END 
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PADRÕES 
NATURAIS 



Com rotinas gráficas muito simples, 
podemos criar uma variedade 
surpreendente de desenhos - todos 
eles estruturados a partir de padrões 
fornecidos pela natureza. 

A utilização do computador para de- 
senhar a trajetória de objetos em queda 
livre sob a açào da gravidade foi exami- 
nada nos artigos publicados nas páginas 
766 e 781. Com os programas apresen- 
tados, ilustramos alguns aspectos de um 
velho ramo da Física chamado dinâmi- 
ca e vimos como traçar parábolas, cír- 
culos e elipses. Neste artigo, aprendere- 
mos a desenhar outros tipos de curva 
usando técnicas semelhanles. Rotinas 
gráficas bastante simples se encarrega- 
rão dessa tarefa. 

Nos últimos anos, a dinâmica rece- 
beu um novo impulso enquanto campo 
de pesquisa. Um dos motivos para isso 
foi o reconhecimento de que seus prin- 
cípios matemáticos não se aplicam so- 
mente ao movimento dos corpos sob a 
ação de determinadas forças. Cientistas 
ópticos, interessados na refração da luz 
das estrelas na atmosfera, químicos in- 
dustriais que estudam o desencadeamen- 
to de reaçôes e biólogos preocupados 
com o crescimento de populações ani- 
mais que competem entre si — todos 
têm recorrido aos conhecimentos acu- 
mulados por esse ramo da Física. Além 
disso, os computadores — permitindo 
a repetição rápida de operações elemen- 
tares — favoreceram a revelação de fun- 
ções de uma complexidade estrutural 
que os antigos métodos de cálculo se- 
quer sugeriam. Com frequência, um pa- 
drão ou curva tem que ser repetido inú- 
meras vezes antes que possamos notar 
a presença de uma estrutura subjacen- 
te. Os programas abaixo demonstram 
isso. 



FAMÍLIAS DE CURVAS 



Algumas curvas, isoladamente sim- 
ples, criam padrões bastante complexos 
quando são reunidas, constituindo uma 
família. Veja um exemplo em que se uti- 
lizam parábolas. 



IIIIIIIIIIIHH^HV«<'«°""'MHHHIIIIIIIII 




5 LET AS-"": FOR N-l TO 64: 
LET AS-AS+" ": NEXT N 

10 8RIGHT l! BORDER 0: INK 5: 
PAPER 0: CLS 

20 LET NMAX-81 

30 LET DELT-.OS 

40 LET SX-170/SQR 3: LET SY- 

175 

50 FOR N-l TO NMAX 
60 LET A=PI*(-1+2*N/NMAX) 
70 PLOT 128.80 
80 FOR T-0 TO 3 STEP DELT 
90 LET X=T*COS A: LET Y-T* { 
SIS A-T/2) 
100 IF Y<=--4 THEN GOTO 120 

110 LET DX-SX*X+128: LET DY-SY 
*Y+80 

111 IF DX<0 OR DX>255 OR DY<0 
OR DY>175 THEN GOTO 120 

115 DRAU DX-PEEK 23677 ,-DY-PEEK 
23678 

117 PRINT AT 19.0;AS 
120 NEXT T 



130 NEXT N 

m 

10 COLOR 15,1.1:SCREEN 2 
20 NM=81:PI-4*ATN<1) 

30 DE- .05 

40 SX=160/SQR(3) :SY-230 

50 FOR N=l TO NM 

60 A-PI* (-1+2*N/NM) 

70 DRAWBM127.11B" 

80 FOR T-0 TO 3 STEP DE 

90 X-T*COSCA) :Y-T*(SIN(A)-T/2) 

100 IF Y>-.4 THEN LINE- (SX*X+12 

7,118-SY*Y) ELSE T=3 

110 t'EXT T 

120 NEXT N 

130 GOTO 130 

H][S] 

10 HGR2 

20 NM - 81:PI - 4 « ATiJ (1) 

30 DE - .05 

40 SX - 160 / SQR <3):SY - 180 

50 FOR N - 1 TO NM 



60 A - PI " ( - 1 + 2 " N / NM) 
70 HCOLOR- 3:X1 - 139:Y1 - 118 
80 FOR T - 0 TO 3 STEP DE 
90 X » T * COS (A) :Y - T * { S 

IN (A) - T / 2) 

100 IF Y > - .35 THEN HPLOT 
XI, Yl TO SX * X + 139.118 - SY 
• Y:X1 - SX * X + 139:Y1 - 118 
- SY * Y: GOTO 110 
105 T - 3 
110 NEXT T 
120 NEXT N 

ii 

10 PMODE 4,1:PCLS 1:SCREEN 1,0 
20 NM-81:PI=4*ATNU) 
30 DE=.05 

40 SX=160/SQR(3) :SY-230 

50 FOR N=l TO NM 

60 A=PI* (~1+2*N/NM) 

70 DRAWBM127 . 118" 

80 FOR T=0 TO 3 STEP DE 

90 X-T*COS(A) :Y-TMSIN(A)-T/2) 

100 IF Y>-.4 THEN LINE- (SX*X + 12 
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7.118-SY*Y) . PRESET ELSE T"=3 
110 NEXT T 
120 NEXT N 
130 GOTO 130 

O programa simula as trajetórias de 
jatos de água lançados por um esguicho 
de jardim, ou, em uma interpretação 
mais moderna, de nêutrons lançados de 
um tubo fino ligado a um reator. Em 
ambos os casos, a família de curvas é 
constituída por todas as trajetórias pa- 
rabólicas que emergem no mesmo pon- 
to, em direções variadas mas com a mes- 
ma velocidade. O padrão formado por 
essa família é a curva exterior que to- 
das as curvas locam. A curva exterior, 
chamada de envoltório, é também, nes- 
te caso, uma parábola. Em balística, 
usa-se o termo parábola limitante para 
uma curva desse tipo, pois ela define os 
limites da região que pode ser alcança- 
da por projéteis que tenham uma deter- 
minada velocidade inicial. 

É importante notar que a envoltória 
é uma propriedade da família de curvas 
como um todo, não tendo nenhum sig- 
nificado para uma trajetória em parti- 
cular. Trata-se de um bom exemplo de 
que o iodo pode ser mais do que a sim- 
ples soma de suas partes. 

No programa, a equação das curvas 
aparece na linha 90. X é a distância ho- 
rizontal; V, a distância vertical; T cor- 
responde ao [empo (começando por ze- 
ro no instante do lançamento) e cada 
trajetória tem uma direção determina- 
da por A, o ângulo ou inclinação do lan- 
çamento. O programa desenha NMAX 
ou NM inclinações; teme mudar o va- 
lor dessa variável na linha 20. 



Este programa mostra como também 
as linhas retas podem constituir famílias 
com envolcórias interessantes. 



10 BORDER 0: INK 7: PAPER 0: 

CLS ! L ET N-2 

30 LET Y0-60/N/N 

40 PLOT 0.-6-Y0*2 

50 FOR X-0 TO 255 STEP 2 

60 LET Y-169-Y0"Y0*COS <N*2* 

PI«X/255) 

70 DRAk X-PEEK 23677 ,175-Y- 
PEEK 23678 

80 LET XT-X+2*Y0«N*PI*Y/255* 
9IN (N*2*PI*X/255) 

85 LET Yl-0: IF XT<0 THEN 
LET XT-0: LET Y1-Y+255-X/ (2«N 
*PI*Y0*SIN (N*2*PI*X/255) ) 

86 IF XT>255 THEN LET XT-255 
: LET Yl-Y-{255-X)*255/(2«N* 
PI«Y0*SIN (N*2*PI*X/255)) 



90 DRAW XT-PEEK 23677 , 1 75-Y1- 

PEEK 23678 
100 PLOT X.175-Y 
110 NEXT X 
120 GOTO 120 



fffi 



10 COLOR 15.1,1:SCREEN 2 
20 N-2 : PI-4«ATN(1) 
30 Y0-80/N/N 

40 DRAW , BM0,"+STRS(INT(186-Y0*2 



) 

70 LINE - (X.Y) 

80 XT-X+2"Y0*N*PI*Y/2. r J 'i*SIN(N*2 
*PI*X/255) 

85 Y1-0:IF XT<0 THEN XT-0:Y1-Y+ 
255*X/ (2*N*PI»Y0"SIN(N«2*PI*X/2 
55)) 

86 IF XT>255 THEN XT-255 : Yl-Y- ( 
255-X)*255/ (2*N*PJ*Y0*SIN (N«2*P 
I«X/255) ) 

90 LINE - (XT.Yl) 

100 DRAW-BM'+STP.S(X)+"." + STRS(I 
NT (Y) ) 
110 NEXT 
120 GOTO 120 



10 HGR2 

20 N - 2:PI - 4 * ATN (1) 
30 Y0 - 80 / N / ti 
40 HC0L0R" 3:XX - 0:YY - 186 - 
YO * 2 

50 FOR X - 0 TO 2 79 STEP 2 
60 Y - 186 - Y0 - Y0 * COS (N 

* 2 * PI * X / 279) 

70 HPLOT XX, YY TO X.Y 

BO XT - X + 2 ■ Y0 * N * PI « Y 

/ 279 * SIN <N * 2 « PI " X / 

279) 

B5 Yl - 0; IF XT < 0 THEN XT = 
0:Y1 * Y + 279 * X / {2 * N * P 
I « Y0 * SIN (N • 2 * PI * X / 
279) ) 

66 IF XT > 279 THEN XT - 279 :Y 
1 = Y - (279 - X) * 279 / (2 * 
N * PI * Y0 * SIN (N * 2 * PI 

* X / 279) > 

90 HPLOT X.Y TO XT.Yl 
100 XX - X:YY - Y 
110 NEXT 



255 -X) "255/ (2*N*PI*Y0*SIN (N"2*P 
I*X/255)) 

90 LINE - (XT, YQ) . PRESET 

100 DRAWBM" + STRS(X)+"."+STRS(I 

NT ( Y) ) 

110 NEXT 

120 GOTO 120 

O programa simula o reflexo de raios 
de luz sobre uma superfície ondulada — 
como o sol batendo nas águas de uma 
lagoa. Esta família é composta somen- 
te por linhas retas, que formam ângu- 
los retos com uma curva senóide. A en- 
voltória consiste na curva constituída 
pelos pontos focais. Estes, no caso dos 
raios, são mais intensos nos vales da se- 
nóide, onde a envoltória tem pontos bri- 
lhantes chamados cúspides. A existên- 
cia de cúspides pode ser prevista atra- 
vés de um novo ramo da Matemática de- 
nominado Teoria das Catástrofes (esse 
nome dramático vem da aplicação da 
teoria ao desabamento de pontes e em- 
borcação de navios). 

No programa, a senóide é especifica- 
da na linha 60 e os raios de luz, na 80. 
O número de vales da senóide é N (me- 
nos no Apple). Tente mudar o valor de 
N na linha 20 (recomendamos N = 1). 

Senóides também podem constituir 
uma família de curvas. Veja o progra- 
ma apresentado a seguir. 



10 BORDER 0: PAPER 0: INK 7: 
CLS 

20 LET QM-SQR <2*LN (3)) 

30 FOR Q — QM TO QM*1.00l STEP 

QM/30 

40 PLOT 0.75+Q*75/QM 

50 FOR T-0 TO 3*PI STEP .2 

60 LET X-Q*C0S (EXP (-Q*Q/2)« 

T) 

70 DP AU (T*24D/3/PI)-PEEK 
23677, 75+[X«75/QM)-PEEK 23678 
80 NEXT T 
90 NEXT Q 



10 PMODE 4,1: PCLS1 : SCHEEN 1,0 
20 N«2:PI-4*ATN(1) 
30 Y0-80/N/N 

40 DRAW"BM0,"+STPS(INT(186-Y0*2 



) 

70 LINE -(X.Y) ,PSET 

80 XT-X+2*YD*N*PI*Y/255*SIN(N ,, 2 

*PI*X/-255) 

85 Y1-0:IF XT<0 THEN XT-0'YZ-Y+ 
255*X/ (2*N»PI*Y0*SIN(N*2-PI*X/2 
55)) 

66 IF XT>255 THEN XT-255 : Y1=Y- ( 



10 COLOR 15,1.1:SCREEN 2 

20 QM-SQR (2«LOG (3) ): PI-4*ATN<1) 

30 FOR Q--QM TO QM*1.001 STEP Q 

M/30 

40 DRAU "BM0."+STRS(INT(100-Q*9 
0/tíM) ) 

50 FOR T-0 TO 3*PI STEP .2 

60 X=0.*COS{EXP(-Q.»Q/2)«T) 

70 LINE-(T*240/3/PT.10Q-X«90/QM 

) 

60 NEXT T 
90 NEXT Q 
100 GOTO 100 



10 HGR2 

20 QM - SQR {2 • 
- 4 * ATN (4) 



LOG (3)): PI 
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30 FOR Q - - QM TO QM « 1.001 

STEP SM / 30 
40 HCOL0B- 3:X1 - 0:Y1 - 100 - 

Q • 90 / QM 
50 FOR T - 0 TO 3.5 * PI STEP 
.2 

60 X ■ Q * COS ( EXP ( - Q * Q 

/ 2) * T) 
70 HPLOT XI. Yl TO T * 240 / 3 
/ PI. 100 - X * 90 / QM:X1 - T * 

240 / 3 / PI:Y1 - 100 - X ■ 90 

/ OK 
80 NEXT T 
90 NEXT Q 

■ ■ 

10 PMODE 4.1:PCLS 1:SCBEEN 1.0 
20 QM-SÇ;R(2"LOC{3)) :PI-4*ATN(1) 
30 FOR Q=-0M TO QM-1.001 STEP (J 
M/30 

40 DRAWBM0 , "+STRS ! INT (100 - Q*90 
/QM> ) 

50 FOR T-0 TO 3*PI STEP .2 

60 X=Q»COS(EXP{-Q*Q/2)*T) 

70 LINE -(T*240/3/PI,100-X*90/Q 

Ml . PRE5ET 

60 NEXT T 

90 NEXT Q 

100 GOTO 100 

Simulamos aqui raios de luz atraves- 
sando uma fibra óptica cujo índice de 
refração varia ao longo de sua largura. 
Em uma escala microscópica, podería- 
mos estar representando também "tra- 
jetórias" de elétrons entre dois planos 
de átomos de um crisial colocado sob o 
canhão de um microscópio eletrônico. 
A família é composta por senóides que 
começam no canto esquerdo do vídeo, 
paralelas umas às outras; o período de 
cada curva depende de sua posição ini- 
cial. Embora esta família seja bem di- 
ferente da anterior, a envoltória também 
tem focos e cúspides. 

No programa, as órbitas são especi- 



ficadas na linha 60, que contém a dis- 
tância X do eixo principal no tempo T. 
As senóides são definidas por Q. Como 
está, o programa desenha trinta senói- 
des; para obter um número maior ou 
menor, modifique a linha 30. 



PADRÕES DE PONTOS 



Juntar curvas em famílias não é a 
única maneira de obter padrões interes- 
santes. Um outro caminho é seguir uma 
órbita por um longo tempo, de modo 
que uma estrutura complexa possa se re- 
velar, ainda que a fórmula matemática 
da curva seja relativamente simples. Pa- 
ra desenhar esse tipo de curva, não de- 
vemos fazer um traçado contínuo, pois, 
após alguns segundos, teremos preenchi- 
do a tela com um emaranhado de cur- 
vas. O mais conveniente é traçar a órbi- 
ta por meio de pontos, dispostos na te- 
la a intervalos regulares — como se a 
trajetória fosse observada sob luz estro- 
boscópica. Os três programas seguintes 
exemplificam essa técnica. A posição 
dos pontos na tela nem sempre equiva- 
le à posição real do objeto de estudo; o 
que o programa fornece, muitas vezes, 
é uma representação abstraia, na qual 
a coordenada horizontal corresponde à 
posição real e a coordenada vertical, à 
velocidade. 

Este programa leva vários minutos 
para completar o desenho: 



10 BORDER 0: PAPER 0: INK 7: 

30 LET A-76.11 

40 LET ALF-A*PI/1B0 : LET C= 

COS (ALF) 

50 LET S = SIN (ALF) 



60 LET NMAX-200 

70 LET M-52 

80 FOR J-l TO M 

90 LET X-0: LET Y-J/M 
100 FOR N=l TO NMAX 
110 LET W=X 

120 LET X-X*C-(Y-X*Xf-S: LET Y 
-W*S+(Y-W*W)«C 

130 IF ABS {X)>4 OR ABS (Y)>4 
THEN GOTO 860 
135 IF X>1 OR Y>1 THEN GOTO 
150 

140 PLOT X*12e+128.Y*85+85 
150 NEXT N 
160 NEXT J 

!M 

10 COLOE 15.1.1:SCREEN 2 
20 A=76.11:PI=4"ATN(1) 
30 AL-A*PI/180:C-COS(AL) 
40 S=SIN(AL) 
50 NM-200 
60 M'52 

70 FOR J=l TO M 
80 X=0 :Y = J/M 
90 FOR N-l TO NM 
100 W=X 

110 X=X*C- (Y-X*X) *S: ¥ = WS+<Y-W* 
W)*C 

120 TF ABS(X)>4 OR ABS(Y}>4 THE 
N 160 

125 IF ABS(Y)>1 OR ABS(X)>1 THE 
N 140 

130 PSET(12B+X*128,96-Y*96) 
140 NEXT N 
150 NEXT J 
160 GOTO 160 

5EED 

10 HGR2 

20 A - 76.11:PI ' 4 * ATN (1) 

30 AL - A * PI / 180:C - COS ( 
AL) 

40 S - SIN (AL) 

50 NM = 200 

60 M - 52 

70 FOR J = 1 TO M 
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80X=0:Y=J/M 
90 FOR N = 1 TO NM 
100 W - X 

110 X-X-C- (Y - X * X) * S 
:Y - W • S + (Y - W * W) * C 
120 IF ABS (X) > 4 OR ABS (Y 
) > 4 THEN 160 

125 IF ABS (X) > 1 OR ABS (Y 
) > 1 THEN 140 

130 HPLOT 128 + X * 128,96 - Y 

a 96 

140 NEXT H 
150 NEXT J 
160 GOTO 160 

Q 

10 PMODE 4 . 1 : PCLS1 : SCREEN 1.0 

20 A-76.H:PI-4«ATN<1) 

30 AL=A*PI/180:C=COS(AL> 

40 S=SIN(AL) 

50 NM=Z00 

60 M>52 

70 FOR J-l TO M 
80 X=0:Y=J/M 
90 FOR N=l TO NM 
100 W=X 

110 X=X*C-(Y-X*X)*S:Y=W*S+(Y-W* 
W) "C 

120 IF A8S(X)>4 OR ABS<Y)>4 THE 
N 160 

125 IF ABS(Y)>1 OR ABS(X)>1 THE 
N 140 

130 PRESETU28+X*128.96-Y"96> 
140 NEXT N 
150 NEXT J 
160 GOTO 160 

O programa simula o movimento de 
partículas subatômicas (como prótons e 
elétrons) em um acelerador ou, ainda, 
linhas de força de um campo magnéti- 
co. Sua atuação, em termos matemáti- 
cos, consiste em tomar uma série de 
pontos iniciais e movê-los pela tela, se- 
guindo esta regra: "faça uma rotação 
em torno do centro da tela, segundo um 
ângulo fixo, só que com uma ligeira mo- 



dificação". Sem esta "ligeira modifica- 
ção", todas as curvas seriam círculos 
concêntricos — e, de fato, as mais pró- 
ximas do centro se assemelham a círcu- 
los. O efeito dessa modificação tem 
maior impacto sobre as curvas externas, 
que acabam formando um conjunto de 
"ilhas". Se pudéssemos ampliar mais o 
desenho, distinguiríamos várias ilhas 
menores, distribuídas entre as que po- 
demos observar agora. 

No programa, o número de pontos 
iniciais é M, na linha 60: caso você não 
queira esperar tanto para ver o desenho 
completo, diminua esse valor. Cada 
ponto é desenhado NMAX ou NM ve- 
zes; o valor é especificado na linha 50. 
A regra fica nas linhas 100 e 110, que 
determinam de que modo as coordena- 
das vertical e horizontal serão modifi- 
cadas a cada repetição. O ângulo fixo 
de rotação é dado por A em graus, na 
linha 20; experimente valores diferentes 
(recomendamos 90). 

O programa apresentado a seguir ge- 
ra um padrão surpreendente, a partir de 
um ponto inicial: 




20 LET K-51.3: BORDER 0: INK 

7: PAPER 0: CLS 

30 LET X=1/PI: LET P=0 

40 LET A=1/SQR 5 

50 FOR N-l TO 10000 

60 LET Y=X--5: LET X-X+A-INT 

ÍX+A] 

70 LET P=P-Y 

BO PLOT X*255.P*K+B5 

90 NEXT N 

Wi 

10 COLOR 15.1.J : SCREEN 2 
20 K-60 :X-1/ (4*ATN(1) ) rP»0 
30 A=1/SQR(5) 



40 FOR N=l TO 10000 

50 Y=X-.5:X-X+A-INT(X+A) 

60 P-P-Y 

70 PSET(X*255.128-P*K) 
80 NEXT N 
90 GOTO 90 

ai ei 

10 HGH2 :K = 40 

20 X - 1 / (4 ■ ATN (1) ) :P = 0 

30 A - 1 / SQR (5) 

40 FOR N = 1 TO 10000 

50 Y ■ X - .5:X - X + A - INT 

{X + A) 

60 P - P - Y 

70 HC0LOR= 3: HPLOT X * 279.10 
0 - P * K 
80 NEXT N 

U 

10 PMODE 4.1: PCLS1 : SCREEN 1,0:K 
= 60 

20 X-1/(4"ATN(U) :P-0 

30 A=1/5QR(S) 

40 FOR N-l TO 10000 

50 Y-=X-.5:X=X+A INTtX+A) 

60 P-=P-Y 

70 PRESET (X*255,12B-P*K) 
BO NEXT N 
90 GOTO 90 

Bsse programa é uma simulação da 
ressonância, que ocorre quando dois fe- 
nómenos físicos têm frequências coin- 
cidentes ou múltiplas. Por exemplo, um 
dos fenómenos pode ser a órbita de um 
asteróide em torno do sol; o segundo, 
a perturbação dessa órbita pela atração 
gravítacional de Júpiter. Podemos nos 
perguntar: as perturbações causadas pe- 
lo grande planeta serão capazes de ar- 
rancar o asteróide de sua órbita? Tudo 
depende da razão entre as duas frequên- 
cias (a razão é obtida dividindo-se uma 
pela outra). As partículas dos anéis de 
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Saturno estão sujeitas a esse tipo de 
efeito. 

No programa, a razão é chamada de 
A e seu valor (menor que 1) está na li- 
nha 30. O número de repetições da res- 
sonância é 10000 (final da linha 40); re- 
duza esse valor caso não queira esperar 
muito. A transformação da ressonância, 
nas linhas 50 e 60, é obtida por meio de 
uma regra que modifica as posições ho- 
rizontal (X) e vertical (P) dos pontos na 
tela. 

Um delicado padrão em "cortina" è 
obtido com A = 1/SQR(S), ou seja, 
0.4472136. Como esse valor não corres- 
ponde à razão entre dois números intei- 
ros (em termos do computador, trata- 
se de um número irracional), ele é não- 
ressonante. Para chegar à ressonância, 
temos que atribuir a A um valor que se- 
ja a razão entre dois números inteiros 
— como 9/20, que vale 0.45. Tente tam- 
bém um outro número irracional, como 
1/PI. Se quiser reduzir a escala vertical, 
diminua o valor de K. 




Observe que certas regras simples não 
produzem nenhum padrão. O próximo 
programa ilustra o fenómeno. \ 




10 BOBDER 0: PAPER 0: INK 7: 
CLS 

20 LET X-l/PI 

30 LET Y-l/PI 

40 FOR M-l TO 10000 

50 LET X-X+Y-INT (X+Y) 

60 LET Y-X+Y-INT (X+Y) 

70 PLOT X*255,Y*175 

80 NEXT M 

10 COLOF 1S,1.1:SCREEN 2 
20 PI-=4«ATN(1> :X=1/PI 
30 Y-l/PI 

40 FOR M-l TO 10000 

50 X-X+Y-INTÍX+Y) 

60 Y=X+Y-INT(X+Y) 

70 PSET(X*255.192-Y*191) 

80 NEXT M 

90 GOTO 90 



HDElI 

10 HGR2 

20 PI - 4 * ATN (1) :X - 1 / PI 

30 Y - 1 / PI 

40 FOR M " 1 TO 10000 

50 X - X + Y - INT <X + Y) 

60 Y - X + Y - INT IX + Y) 

70 HCOLOR- 3r HPLOT X * 279,19 

2 - t * 191 

80 NEXT M 



Q 

10 PMODE 4,1:PCLS1:SCREEN 1.0 
20 PI-4*ATN(1) :X-1/PI 
30 Y-l/PI 

40 FOR M*í TO 10000 

50 X-X+Y-INTIX+Y) 

60 Y-X+Y-INT(X+Y) 

70 PRESET(X*2S5,192-Y*191) 

60 NEXT M 

90 GOTO 90 

Esse programa simula o vaivém errá- 
tico das bolas de um fliperama, o mo- 
vimento das moléculas de um gás, ou 
qualquer outro sistema de órbita tão im- 
previsível que se torna impossível distin- 
gui-la de um processo aleatório. Con- 
vém notar, porém, que os 10.000 pon- 
tos desenhados na tela não são aleató- 
rios, resultando da repetição de uma re- 
gra determinística, ou seja, que não 
abriga nenhum elemento de acaso. A re- 
gra considera a tela como um quadra- 
do unitário onde as coordenadas verti- 
cais e horizontais variam entre zero e 
um. Ela opera em três etapas, nas linhas 
50 e 60 do programa. Primeiro, as coor- 
denadas X e Y do último ponto são so- 
madas para produzir um novo X; de- 
pois, esse X é somado a Y, resultando 
em outro Y; finalmente, se X ou Y fo- 
rem maiores que 1, um número inteiro 
apropriado é subtraído para que as 
coordenadas permaneçam no intervalo 
válido. 



POPULAÇÕES DE PEIXES 



Como a população de peixes de um 
lago varia ao longo das gerações? Isto 
depende dos fatores que condicionam as 
mudanças populacionais de uma gera- 
ção para a outra. Para definir uma re- 
gra, devemos considerar tanto a tendên- 
cia ao crescimento populacional resul- 
tante da reprodução, como a tendência 
à redução, determinada pela quantida- 
de de alimento disponível no lago. Con- 
forme o equilíbrio estabelecido entre es- 
ses dois fatores, a população pode ficai 
estável, alternar entre um ou mais valo- 
res, ou variar de tamanho ao acaso, ao 
longo das gerações. 

O programa dado a seguir ilustra o 
fenómeno. A posição horizontal, A, 
corresponde à razão entre disponibilida- 
de de alimento e taxa de natalidade, re- 
presentando assim as sucessivas gera- 
ções. A posição vertical Y corresponde 
ao tamanho da população, que aumen- 
ta ou diminui alguns pontos conforme 
as gerações se sucedem. O tamanho da 
população Y só é colocado na tela quan- 
do se encontra em equilíbrio, isto é, 
quando assume um valor estável ou al- 
terna entre dois ou mais valores, que sào 



denominados pontos de atração. No 
Spectrum e no TRS-Color, um som de 
frequência proporcional ao tamanho da 
população é emitido. 




10 BORDER 0: INK 7: PAPER 0: 

20 LET S-.03: LET NMIN-50: 
LET NKAX=B0 

30 FOR A-2.B TO 4 STEP S 
40 LET Y=1/PI 
50 FOR N-l TO NMAX 
60 LET Y-A*Y« (1-Y) 
70 IF N>NMIN THEN PLOT 255* ( 
A-2.8)/1.2,Y«175 
80 SOUND .0O75,Y*20 
90 NEXT N 
100 NEXT A 

10 COLOR 15,1,1:3CREEN 2 
20 S-1/127:NN=50:NX=80 
30 FOR A=2.8 TO 4 STEP S 
40 Y-.25/ATNU) 
50 FOR N-l TO NX 
60 Y-A-YM1-Y) 

70 IF N>NN THEN PSET (255* (A"2 . 8 
,)/1.2,192-Y*191) 
90 NEXT N 
100 NEXT A 
110 GOTO 110 

LUlsS 

10 HGR2 

20 S - 1 / 127:NN - 50:NX - 60 

30 FOR A - 2.8 TO 4 STEP S 

40 Y > . 25 / ATN (1) 

50 FOR N-l TO NX 

60 Y - A * Y * (1-Y) 

70 IF N > NN THEN HPLOT 279 * 

(A - 2.8) / 1.2,192 - Y * 192 
90 NEXT N 
100 NEXT A 

U 

10 PMODE 4,1:PCLS1;SCREEN 1.0 

20 S"1/127:NN=50:NX=80 

30 FOR. A-2.8 TO 4 STEP S 

40 Y=.25/ATN(1> 

50 FOR N-l TO NX 

60 Y-A*Y* (1-Y) 

70 IF N>NN THEN PRESET (255*(A- 

2.8)/1.2,192-Y*191) 

80 SOUND 1+255*Y,1 

90 NEXT N 

100 NEXT A 

110 GOTO 110 

Como você pode observar, os pontos 
de atração modificam-se drasticamente 
à medida que a disponibilidade de ali- 
mento aumenta. No início (lado esquer- 
do da tela), só há um valor de atração, 
indicando uma população estável. Isso 
significa que o alimento é suficiente pa- 
ra os peixes sobreviverem e se reprodu- 
zirem. Se a população crescer demais, 
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haverá menos alimento e alguns peixes 
morrerão. Com a maior disponibilida- 
de de alimento para os sobreviventes, a 
população volta a crescer, podendo, em 
seguida, passar por uma nova fase de es- 
tabilidade. 

Subitamente, quando A assume um 
certo valor, a quantidade de alimento ul- 
trapassa determinado limite. Passam a 
existir, então, dois pontos de atração e 
a curva se bifurca — indicando que o 
tamanho da população agora se alterna 
entre dois valores. Mais tarde, quando 
a quantidade de alimento se torna ain- 
da maior, a curva se bifurca mais uma 



vez, aumentando o número de pontos 
de atração. Mais e mais divisões vão 
ocorrendo em uma sequência infinita, 
da qual o programa só tem resolução 
para mostrar os primeiros passos. As bi- 
furcações se acumulam e infinitos pon- 
tos de atração passam a corresponder a 
um certo valor finito de A. Em conse- 
quência, a população varia sem nunca 
se estabilizar. 

A descoberta dessa ' 'árvore de bifur- 
cações' ' , que acaba num completo caos, 
despertou grande interesse na comuni- 
dade científica, por ter diversas aplica- 
ções. Ela retrata, por exemplo, a modi- 



ficação do fluxo de um liquido, que pas- 
sa de um estágio moderado (ponto de 
atração estável) para um turbulento 
(caos), conforme a velocidade aumen- 
ta. O mesmo efeito pode ser observado 
na fumaça de um cigarro, que sobe sua- 
vemente e de repente desenvolve espi- 
rais, terminando em turbulência. 

No programa, a lei de evolução está 
na linha 60. Para ampliar a resolução, 
altere a linha 20 de forma que S = .005, 
NM1M ou NM = 200 e NMAX ou NX 
= 300. No Spectrum e no TRS-Color, 
apague a linha 80 para aumentar a ve- 
locidade do programa. 
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OS SALTOS DE W1LUE 



Nosso personagem não pode mesmo 
confiar em sua sorte. Surpreendido por 
uma avalanche tão logo começou a 
caminhada, conta apenas com um recurso 
para escapar das pedras: sartar sobre elas. 



A pane do programa aqui apresen- 
tada permite que Willie se movimente 
para cima e para baixo, no mesmo lu- 
gar — ou seja, nosso pobre personagem 
aprende, a tempo, a saltar sobre as pe- 
dras que- se aproximam. 

Willie já pode andar, mas isso não o 
ajudará muito na hora de enfrentar a 



avalanche. Vamos fazê-lo saltar, de mo- 
do que as pedras passem rolando sob 
suas pernas, sem atingi-lo. 



org 59336 
jmp ld de, 6 
ló hl. 759 
ali 949 

d a. (57335) 



HEM ld de, 259 
BEM cal l 58970 
REM ld de, 32 
n em aú<\ hl ,àe 
HEM ld (57332) .hl 
REM ret 
HEM mjd cp 4 
BEM ir ni.mfj 
REM ld a,0 
HEM ld (57335) ,a 
REM ld hl . (57332) 
REM ld de, 32 
REM abr. hl .de 
REM ld bc, 15616 
REM ld a. 45 
REM call 58217 
REM Jp 59153 
REM mfl ret. 



Para montar essa rotina na n 
ma sequência da que demos no a 
tigo anterior, elimine o rei que foi 
colocado temporariamente como 
último comando. Em seu lugar, en- 
tra o rótulo jmp, que significa salto. 

Assim que começa a ser executa- | 
da, nossa rotina faz o computador 
emitir um sinal sonoro. Para tf 
chama a rotina BEEP da ROM, que 
fica no endereço 949. Os parâme- 
tros adequados são mostrados nos 
pares de registros HL e DE. 
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AS QUATRO PARTES 


■ 


AJUSTAMENTO 




DA ROTINA DE SALTO 
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■ 


SALTO VERTICAL 


■ 


WILLIE ESTA NO AR 




E SALTO DIAGONAL 


■ 


DE VOLTA AO SOLO 


■ 


EFEITOS SONOROS 


■ 


FIM DO SALTO 




Se apenas a tecla N foi pressionada 
e Willie deve saltar, a posição de memó- 
ria 57335 é carregada com 1 , que irá di- 
recionar o processador para a rotina 
aqui apresentada na próxima vez que o 
programa principal — que controla o jo- 
go — chamar a rotina de movimenta- 
ção. Caso as teclas M e N tenham sido 
pressionadas, Willie deve saltar para a 
frente (em diagonal); 129 é, então, car- 
regado em 57335. Esta situação será de- 
vidamente analisada no próximo artigo 
da série Avalanche. 

Por hora, imagine apenas que a roti- 
na de movimentação de Willie consta- 
tou que houve uma pressão sobre a te- 
cla N, na última vez que foi chamada. 
Agora ela voltou a ser chamada, o que 
fez o processador direcionar-se exata- 
mente para nossa rotina. Depois da 
emissão do som que caracteriza o inicio 
de sua execução... 

O conteúdo da posição de memória 
57335 é carregado no acumulador ou- 
tra vez. Embora ele já estivesse ali quan- 
do esta rotina foi chamada, é provável 
que a rotina BEEP tenha utilizado o 
acumulador para realizar o efeito sono- 
ro do salto. Assim, convém carregar o 
valor em A novamente. 

Depois, o conteúdo de A é compara- 
1. Naturalmente, esse valor es- 
tá presente; em consequência, a próxi- 
ma instrução, jr nz.mjb, não é executa- 
da e o processador continua com inc a. 
Isto incrementa o conteúdo do acumu- 
lador para 2, valor que é colocado de 
volta em 57335 por ld (5733S),a. Incre- 
menta-se, assim, o contador de salto, 
para que a rotina de movimentação 
acione a rotina jmp na próxima vez que 
for chamada. Nesse ponto, porém, a 
primeira parte do salto será deixada de 
lado; o processador executa a segunda 
parte. Como você deve ter reparado, ca- 
be à instrução cp 1, seguida da instru- 
ção jr nz.mjb, fazer o processador sal- 
tar para a segunda parte. 

A posição de Willie na tela é en- 
3& tão carregada dos endereços 57332 
W e 57333 para o par de registros HL. 
W O valor 32 é subtraído dessa posi- 
P ção e colocado em DE. Com a exe- 
fc cução de sbc hl, de, o apontador se 
Sfe move para a posição imediatamen- 
te acima de Willie na tela. O resul- 
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tado é carregado de volta nos endereços 
57332 e 57333, que contêm a posição do 
personagem na tela. 

Embora essa posição tenha sido co- 
locada nos endereços, ela ainda perma- 
nece no par HL. Todos os Id são essen- 
cialmente operações de cópia que colo- 
cam o valor na nova posição ou regis- 
tro, mantendo esse valor na posição ou 
registro de origem. No nosso caso, isso 
é importante, pois, para chamar a roti- 
na de impressão de bloco em 58970, a 
posição de impressão na tela precisa es- 
tar no par de registros HL. 

O par BC, com o apontador de da- 
dos para a primeira figura de Willie sal- 
tando, é carregado em 57048. Esses da- 
dos foram apresentados em um artigo 
anterior de Avalanche e podem ser lidos 
numa tabela de dados na memória. 

A é carregado com 40 — código de 
azul sobre ciano, a cor de Willie — e 
DE, com 259. Isso faz com que a rotina 
de impressão de bloco imprima um blo- 
co um por três — 259 carrega 1 no re- 
gistro D e 3 no registro E; 1 x 256 + 3 
= 259. A rotina de impressão de bloco 
em 58970 é então chamada e imprime a 
figura de Willie saltando. 

Em seguida, o processador retorna da 
rotina. 



WILLIE ESTA NO AR 



A próxima pârte da rotina de salto é 
chamada quando se aciona novamente 
a rotina de movimentação. Mais uma 
vez, essa seção começa verificando se a 
posição de memória 57335 contém 2 
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o que acontecerá se ela estiver sendo 
chamada pela segunda vez. 

Lembre-se de que o conteúdo de 
57335 está no acumulador quando o 
processador salta para essa parte da ro- 
tina; portanto, você não precisa carregá- 
lo de novo. Se o valor 2 está presente, 
o processador continua com a rotina e 
torna a incrementar o contador de sal- 
to com as instruções inc a e Id (57335>,a. 
Assim, quando a rotina for chamada na 
próxima vez, a instrução cp 2 não irá en- 
contrar um valor 2 e a instrução jr 
□z.mjc mandará o processador para a 
terceira parte. 

Se o 2 estiver presente e esta parte da 
rotina for acionada, a nova posição de 
Willie no ar é carregada dos endereços 
57332 e 57333 para o par de registros 
HL. BC é carregado com 57000, que 
corresponde ao endereço inicial dos da- 
dos para a figura de Willie de pé com 
as pernas juntas. Esta é a figura que se- 
rá impressa quando, ao saltar, Willie es- 
tiver no alto. 

A é carregado com 40 — azul sobre 
ciano, a cor de Willie. DE é ajustado 
com 258 para imprimir um bloco de um 
por dois — I x 256 + 2 = 258. A roti- 
na de impressão em 58970 imprime Wil- 
lie no ar com as pernas juntas. 

O par DE é carregado com 64 e adi- 
cionado ao apontador de tela em HL — 
o que move esse apontador duas linhas 
para baixo. O par HL aponta agora pa- 
ra a cabeça de Willie. Lembre-se de que, 
subtraindo 64 (32 para cada linha), fa- 
zemos com que ele aponte para a posi- 
ção abaixo dos pés do personagem. A 
é carregado com 45 — ciano sobre cia- 
no, apenas um pedaço comum de céu. 
O apontador de dados BC é carregado 
com 15616, o início do conjunto de ca- 
racteres para um espaço em branco. 

A rotina print, no endereço 58217, é 
chamada, imprimindo um espaço em 
branco para apagar a parte da figura de 
Willie que restou da primeira seção da 
rotina de salto. Lembre-se de que um 
bloco de um por três foi impresso ali, 




e, agora, apenas um bloco de um por 
dois. O processador retorna de novo, até 
a rotina voltar a ser chamada. 



Na próxima vez, o processador acio- 
nará a terceira parte da rotina de movi- 
mentação. Antes de mais nada, ele ve- 
rifica se é necessário acionar a quarta 
parte da rotina de salto. Em seguida, o 
contador de salto, que ainda está no 
acumulador, é incrementado e armaze- 
nado novamente em 57335, para que ó* 
processador pule para a quarta parte da 
rotina na próxima vez. 

O apontador da posição de Willie na 
tela é carregado de volta em HL. O 
apontador de dados em BC é ajustado 
com o mesmo valor utilizado na primei- 
ra parte da rotina de salto. Willie des- 
cerá ao chão pelo mesmo processo que 
subiu. 

A é carregado de novo com 40 — 
azul sobre ciano; DE volta a ser ajusta- 
do com 259 — um por três. A rotina de 
impressão de bloco em 58970 é chama- 
da e imprime Willie descendo. 

O par DE é carregado com 32, valor 
adicionado ao par HL. O resultado é 
carregado de volta em 57332 e 57333. Is- 
so move o apontador de tela uma posi- 
ção para baixo. 

O processador retorna agora com as 
posições dos dados ajustados para a 
próxima parte. 



Mais uma vez a rotina começa com 
um cp, para verificar se esta é a parte 
necessária da rotina de salto. Mas, ago- 
ra, estamos diante da última seção da 
rotina que faz Willie pular. Para que o 
processador chegue até aqui, o conteú- 
do do acumulador deve ser 4 (parte que 
finaliza o salto) ou 129, valor que indi- 
ca que Willie irá saltar para a frente. 
Nesse caso, jr nz,tnfj manda o proces- 
sador para outra instrução de retorno, 
no final deste programa. O retorno se- 
rá apagado mais tarde, servindo para in- 
dicar o local onde se inicia a rotina de 
salto à frente, que será fornecida no pró- 
ximo artigo de Avalanche. Desta vez, 
entretanto, nenhum teste será feito e não 
precisaremos incrementar o contador de 
salto. É necessário que se ajuste o con- 
tador com 0, para que, quando a rotina 
de movimentação for novamente cha- 
mada, o processador execute a pane da- 
da no artigo anterior e verifique se al- 
guma tecla foi pressionada. Isso é feito 
por Id a.O e Id (57335>,a. 



A posição de Willie volta a ser carre- 
gada de 57332 e 57333 para o par de re- 
gistros HL, onde 32 é subtraído através 
do par DE, fazendo o apontador se mo- 
ver uma posição acima na tela. 

BC é carregado com o endereço de 
um espaço vazio e A, com o código de 
ciano sobre ciano. A rotina prini, em 
58217, é chamada de novo. Apaga-se, 
assim, o caractere adicional ocupado 
por Willie, impresso na terceira parte da 
rotina de salto. 

A instrução jp 59153 faz o processa- 
dor voltar para o início da rotina de mo 
vimentação, dada no artigo anterior. 
Como o contador de salto contém ago 
ra o valor 0, o processador executa a ro- 
tina que imprime Willie parado, apagan- 
do o que restou da antiga figura. 

A última instrução ret da listagem 
tem a função de prevenir que ocorra um 
erro no programa, caso a rotina de sal- 
to para a frente venha a ser chamada. 
Essa instrução será apagada na próxi- 
ma parte do programa. 



10 o BC 20140 
20 JUM JSR CLICK 
30 LDA 18261 
40 CMPA tl 
50 BNE MJA 
60 INC 18261 
70 LDX 18249 
80 PSHS X 
90 LEAX 256, X 
100 LDU #1536 
110 JSR CHARPR 
120 PULS X 
130 LEAX -256.X 
140 STX 18249 
150 LDU 117814 
160 JSR CHARPR 
170 LEAX 254.X 
180 LDU #17846 
190 JSR CHARPR 
200 RTS 

210 MJA CMPA #2 
220 BNE MJB 
230 INC 18261 
240 LDX 16249 
250 LEAX -256.X 
260 LDU 117870 
270 JSR CHARPR 
280 LEAX 254.X 
290 JSR' CHARPR 
300 LEAX 254.X 
310 JSR CHARPR 
320 RTS 
330 MJB CMPA «3 
340 BNE MJC 
350 INC 18261 
360 LDX 18249 
370 LEAX -256.X 
380 LDU #1536 
390 JSR CHARPR 
400 LEAX 254.X 
410 LDU #17926 



mu 



420 JSR CHAHPB 

430 LEAX 254.X 

440 LDU #17958 

450 JSB CHABPB 

460 LEAX 254.X 

470 LDU 117990 

480 JSR CHABPB 

490 P.TS 

500 MJC CMPA #4 

510 BNE MFJ 

520 CLR 18261 

530 LDX 18249 

540 PSHS X 

550 LDU #1536 

560 JSR CHAKPH 

570 PULS X 

580 LEAX 256.X 

590 STX 18249 

600 LDU #17774 

610 JSR CHARPB 

620 LEAX 254.X 

630 JSB CHABPB 

640 BTS 

650 MFJ RTS 

660 CHABPB EGU 19402 

670 CLICK EQU 20847 

A primeira coisa que a rotina JUM 
(ou de salto) faz é chamar a sub-rotina 
CLICK, que toca uma das notas do efei- 
to sonoro do salto. Se você ainda não 
tiver digitado essa rotina, adicione um 
retorno em 20847 por meio da instrução 
POKE, com 57 nesse endereço. Assim, 
não haverá erro quando o programa for 
testado. 



PULANDO POR ETAPAS... JÁ! 



O acumulador é carregado com o 
conteúdo da posição de memória 18261 , 
que contém a variável do salto. Inicial- 
mente, ela está carregada com 1 ou 129 
— dependendo de qual tecla foi pressio- 
nada — indicando, portanto, se Willie 
deve pular verticalmente ou dar um sal- 
to à frente. Cada um desses tipos de pu- 
lo é dividido em quatro etapas, execu- 
tadas uma por vez , quando a rotina de 
movimentação é chamada. Para garan- 
tir o acionamento da etapa correta, a va- 
riável do salto é incrementada na exe- 
cução de cada parte. 

Se a variável do salto é 0, utiliza-se 
a seção da rotina que examina o tecla- 
do para ver se uma ordem de pular foi 
dada. Caso a variável de movimentação 
contenha qualquer outro valor que não 
seja 0, o processador vem para esta par- 
te do programa e executa uma das roti- 
nas de salto. 

Se for 1, a primeira parte da rotina 
é acionada. Durante sua execução, a va- 
riável de salto é incrementada, para que, 
na próxima vez que a rotina de movi- 
mentação for chamada, essa seção seja 
evitada e o processador passe para a par- 



te dois. Assim, sempre que a rotina de 
movimentação for acionada, ela chama- 
rá a próxima parte — até que a última 
(a quarta) seja executada e a variável do 
salto volte a ser ajustada com 0. 

Se a última rotina ajustou a variável 
do salto com 129, esta parte é ignora- 
da. A rotina do salto para a frente, que 
daremos no próximo artigo de Avalan- 
che, é então acessada. 




O conteúdo do acumulador é compa- 
rado com 1 . Se 1 não está presente, o 
processador passa para MJA. Caso con- 
trário, o processador continua com es- 
ta parte da rotina. 

A primeira coisa que ela faz é incre- 
mentar a variável em 18261, deixando- 
a pronta para a próxima vez. 

X é carregado com a posição de Wil- 
lie, que está no endereço 18249 e é ar- 
mazenado temporariamente na pilha. O 
apontador em X é incrementado com 
256, movendo-se um caractere para bai- 
xo. V é carregado com 1536, o endere- 
ço do canto superior esquerdo da tela. 
O processador chama então a rotina 
CHARPR, que imprime um bloco de 
céu azul sobre a metade inferior de Wil- 
lie. Se não fizermos isso, as pernas de 
Willie aparecerão em sua posição an- 
terior. 

A posição de Willie é novamente 
guardada na pilha e movida um carac- 
tere para cima pela subtração de 256. O 
resultado é armazenado de volta em 
18249. U é carregado com 17814, ende- 
reço inicial para os dados de Willie com 
as pernas abertas. Em seguida, a rotina 
CHARPR é chamada para imprimir a 
metade superior. 

O apontador de tela é incrementado 
com 254, passando a apontar para o ini- 
cio da metade inferior de Willie. U é re- 
carregado e a rotina CHARPR volia a 
ser chamada para imprimir sua metade 
inferior. 

O processador retorna depois de ter 
imprimido Willie com as pernas abertas 
um caractere acima do chão. 




Quando a rotina de movimentação de 
Willie for novamente chamada, o núme- 
ro no endereço 18261 será 2. Portanto, 
o processador irá pular a primeira par- 
te da rotina publicada no artigo anterior 
e a parte desta rotina que foi dada até 
agora. Mas, quando ele saltar de novo 
para MJA, o conteúdo de 18261, que 



ainda está no acumulador, será compa- 
rado com 2. Na chamada seguinte da ro- 
tina de movimentação, quando o con- 
teúdo do endereço 18261 tiver sido in- 
crementado mais uma vez, a instrução 
BNE MJB mandará o processador ve- 
rificar se seu valor é 3, 4, 129, 130, 131 
ou 1 32. Desta vez ele executará a próxi- 
ma seção da rotina, imprimindo a figu- 
ra de Willie no segundo estágio do pulo. 

Essa seção também começa incre- 
mentando o conteúdo de 18261, acer- 
tando-o para a próxima chamada da ro- 
tina de salto. Depois, a nova posição de 
Willie é carregada de 1 8249 para X e de- 
crementada de 256 — o que faz o per- 
sonagem se mover um caractere acima 
na tela. Mas agora o resultado não é co- 
locado de volta em 18261 . Willie está no 
alto de seu pulo. 

U é carregado com 17870, endereço 
inicial dos dados da nova figura de Wil- 
lie. Desta vez, ele tem três caracteres de 
altura, impressos em três posições — 
CHARPR precisa ser chamada três ve- 
zes e X é decrementado com 254 para 
mover o apontador uma linha abaixo 
em cada chamada. 

Feito isso, o processador retorna. 



TRES! 



Quando a rotina de movimentação 
volta a ser chamada, o conteúdo de 
1 8261 é 3 e o processador executa a ro- 
tina MJB. Ela começa, mais uma vez, 
incrementando 18261, carregando 18249 
em X e subtraindo 256. 

Só que agora a figura anterior de 
Willie deve ser apagada. U é carregado 
com 1536, o endereço do canto superior 
esquerdo da tela, e a rotina CHARPR 
é chamada, imprimindo a cabeça de 
Willie na tela. O apontador X é incre- 
mentado para indicar aposição inferior 
na tela eUé carregado com o endereço 
dos dados para a impressão do resto da 
figura. 



QUATRO! 



Se nosso personagem está pulando na 
vertical, mais cedo ou mais tarde o pro- 
cessador irá executar MJC. As instru- 
ções CMPA # 4 e BNE chamarão MJF 
apenas quando Willie for saltar na dia- 
gonal. Mas aquela pequena rotina será 
sempre executada. 

Como chegamos à quarta e última 
parte da rotina que faz Willie pular ver- 
ticalmente, o conteúdo da posição 18261 
não é incrementado. A instrução CLR 
18261 ajusta essa variável com 0; a ro- 
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tina de movimentação de Willie é, por- 
tanto, executada e verifica-se, pelo exa- 
me do teclado, se ele deve pular de novo. 

A posição de Willie é carregada em 
X e colocada na pilha de máquina para 
armazenamento temporário. Como a fi- 
gura tem apenas dois caracteres de al- 
tura quando está parada ou andando, 
e três, quando está pulando, o caracte- 
re mais alto tem que ser apagado de no- 
vo. Note que, agora, Willie está numa 



posição intermediária, usada para tor- 
nar o pulo mais suave. 

U é carregado com 1536, que aponta 
para uma parte do céu no topo da tela. 
Quando é chamada, a rotina CHARPR 
apaga a cabeça da figura anterior. 

A posição de Willie é recuperada da 
pilha e adicionada a 256, o que faz a fi- 
gura se mover um caractere abaixo na 
tela. Lembre-se de que sua posição ti- 
nha sido decrementada com 256 no iní- 



cio desta rotina, quando Willie começou 
o salto. Assim, quando o novo valor e 
armazenado em 1826!, o personagem 
simplesmente volta para a posição an- 
terior ao do pulo. 

U é então carregado com 17774, en- 
dereço inicial dos dados para a figura de 
Willie com as pernas juntas. CHARPR 
é chamada duas vezes e X é adicionado 
com 254, imprimindo a figura comple- 
ta de Willie na tela. 
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org 54854 

pl ld a. (-5202) 

cp 1 

jr nz.pb 

ld (-5202) ,a 
ld hl. (-5205) 
ld de. 32 
abe hl, de 
ld (-5205) ,hl 
ld de. (62407) 
add hl.de 
ld a. 10 
push hl 
call 77 
pop hl 
ld de, 32 
add hl.de 



ld 



i.ll 



push hl 
call 77 

ld de. 32 
add hl.de 
ld a. 255 
call 77 
ret 

pb cp 2 



ld (-5202) ,a 
ld h'_ . (-5205) 
ld de. (62407) 
add hl.de 



410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 



ld (-5202) .a 
ld hl , (-5205) 
ld de, (62407) 
add hl.de 



id 



,10 



call 77 
pop hl 
ld di 
add hl 



32 



ld 



.11 
ali 77 
ret 

ld a. 0 

ld (-520Z).a 
ld hl , (-5205) 
puah hl 
ld de, (62407) 
add hl.de 
ld a. 255 
call 77 

ld P de.32 
add hl.de 
ld (-5205) .hl 
jp 54603 




vimentação de Willie é chamada. No úl- 
timo artigo, vimos como o processador 
é direcionado para a rotina pl quando 
o conteúdo da posição de memória 

- 5202 não é zero. Vimos também co- 
mo examinar o teclado para descobrir 
se as teclas de controle M e N foram 
pressionadas, individualmente ou ao 
mesmo tempo. 

Se a tecla M foi pressionada e Willie 
deve saltar, a posição de memória 

— 5202 é carregada com 1 . Isso fará com 
que o processador seja direcionado pa- 
ra esta rotina na próxima vez que a ro- 
tina principal do jogo chamar a rotina 
de movimentação. 

Se M e N foram pressionadas, Willie 
deve saltar na diagonal e 129 é carrega- 
do em -5202. Este caso será examina- 
do no próximo artigo. 

Por enquanto, suponhamos que a ro- 
tina de movimentação detectou que a te- 
cla N foi pressionada na última vez que 
foi chamada. Agora, ela voltou a ser 
chamada, o que fez o processador dire- 
cionar-se para a rotina do salto, cuja 
execução se inicia... 

0 conteúdo da posição - 5202 da 
memória é carregado novamente no acu- 
mulador. Em seguida, o valor em A é 
comparado com 1. Como a suposição 
feita exige que o valor seja 1, a instrução 
seguinte, jr nz.pb, não é executada e o 
processador continua com inc a. Com is- 
so, o conteúdo do acumulador passa a 
ser 2 — valor que é colocado de volia 
em - 5202 pela instrução ld ( - 5202), a. 
Incrementa-se, assim, o contador de sal- 
to para que, na próxima vez que a rotina 
de movimentação for chamada, ela acio- 
ne a rotina pl. Neste ponto, porém, a pri- 
meira parte do salto é deixada de lado 
e o processador executa a segunda. 

A posição de Willie na teia é carre- 
gada dos endereços - 5205 e - 5204 no 
par HL. O número 32 é subtiaído dessa 
posição e colocado em DE; a insirução 
sbe hl. de é executada. Isso coloca o 
apontador de posição um caractere aci- 

1 de Willie na tela. O resultado é car- 
regado de volta nos endereços que 

contêm a posição de Willie, - 5205 
e -5204. 

Embora esse valor tenha sido 
colocado nos endereços, ele per- 
manece no par HL. Todos os ld 
são essencialmente operações de 
cópia, que colocam o valor na nova 
posição ou registro, mantendo esse va- 
lor na posição ou registro de origem. No 
nosso caso isso é importante, pois o va- 
lor em HL é somado ao endereço inicial 
da Tabela de Nomes da VRAM, passan- 
do a apontar para a posição de Willie 
na TN. 

O acumulador é carregado com 10, 
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código do primeiro padrão da figura de 
Willie subindo, com as pernas abertas. 
O apontador no par HL é guardado na 
pilha e a rotina 77 da ROM é chamada. 
Essa rotina escreve o valor de A no en- 
dereço da VRAM apontado por HL — 
o que equivale, aqui, a colocar o padrão 
na tela. 

O apontador é recuperado da pilha 
e somado com 32, voltando-se para uma 
posição abaixo da anterior. A é carre- 
gado com 1 1 , código do segundo padrão 
da figura de Willie. O apontador é no- 
vamente guardado na pilha e a rotina 77 
da ROM é chamada. 

A figura de Willie saltando já está 
completa. Falta só apagar uma parte da 
figura anterior. Para isso, recupera-se o 
apontador da pilha e adiciona-se 32, fa- 
zendo-o apontar para o padrão que se 
pretende eliminar. O código do padrão 
de céu, 255, é colocado em A e a rotina 
77 é chamada, apagando parte da figu- 
ra anterior. Em seguida, o processador, 
retorna. 




A segunda parte da rotina de salto é 
chamada assim que se aciona a rotina 
de movimentação. Como as outras par- 
tes, ela começa verificando se a posição 
de memória -5202 contém 2 — o que 
acontece se esta parte ainda não foi exe- 
cutada. 

Lembre-se de que o conteúdo de 
— 5202 está no acumulador quando o 
processador aciona esta parte — portan- 
to, não é necessário carregá-lo outra vez. 
Se o valor 2 está presente, o processa- 
dor continua com a rotina e incrementa 
o contador de salto com as instruções 
inc a e Id ( - 5202), a. Quando esta par- 
te for acessada na próxima vez, cp 2 não 
irá encontrar o valor 2 e jr nz,pc man- 
dará então o processador para a ter- 
ceira parte do salto. 

Se o valor 2 estiver presente e esta 
pane da rotina foi acionada, a atua! po- 
sição de Willie é transferida dos ende- 
reços - 5205 e - 5204 para o par de re- 
gistros HL. O par DE é carregado com 
o endereço inicial da TN da VRAM e so- 
mado em HL. O acumulador é carrega- 
do com 0, o código do primeiro padrão 
da figura de Willie parado. O aponta- 
dor em HL é guardado na pilha e a ro- 
tina 77 da ROM é chamada. 

O apontador é recuperado da pilha 
e somado com 32 por meio de DE, o que 
o faz se mover uma posição para bai- 
xo. A é carregado com 1 , o código do 
segundo padrão da figura. A rotina 77 
é chamada de novo. Neste ponto, Wil- 
lie está impresso no ar com as pernas 



juntas. Observe que agora não é preci- 
so apagar nada, pois a figura foi impres- 
sa sobre a anterior. 

O processador retorna da rotina até 
a próxima chamada. 



Desta vez, o processador executa a 
terceira parte da rotina de salto. Primei- 
ro, ele verifica se é necessário acionar a 
quarta parte do salto. 

Em seguida, o contador de salto, que 
ainda está no acumulador, é incremen- 
tado e devolvido a - 5202, para que o 
processador passe para a quarta parte 
na próxima vez. 

O apontador de Willie na tela é car- 
regado no par HL. O par DE é carrega- 
do com o endereço inicial da TN da 
VRAM e somado em HL. Em seguida, 
a mesma figura da primeira parte é im- 
pressa de maneira idêntica, utilizando a 
rotina 77 da memória ROM. O proces- 
sador retorna desta parte. 



Mais uma vez a rotina inicia com um 
cp, verificando se esta é a parte neces- 
sária da rotina de salto. Para que o pro- 
cessador chegue até aqui, o conteúdo do 
acumulador deve ser 4 ou 129. Se for 4, 
esta é a última parte da rotina do salto; 
se for 129, Willie irá saltar na diagonal, 
Nesse caso, a instrução jr nz.mp man- 



da o processador para a instrução de re- 
torno do final deste programa. Essa ins- 
trução será apagada pela rotina de sal- 
to diagonal, que apresentaremos no pró- 
ximo artigo de Avalanche. 

Nenhum teste será feito, nem preci- 
saremos incrementar o contador de sal- 
to. É necessário, porém, ajustar esse 
contador com zero, para que, quando 
a rotina de movimentação for chamada 
de novo, o processador execute a primei- 
ra parte, dada no artigo anterior, que 
verifica se alguma tecla foi pressionada. 
Isso é feito pelas instruções Id a.O e Id 
<-5202),a. 

A posição de Willie é mais uma vez 
carregada no par HL, sendo armazena- 
da na pilha. O endereço inicia! da TN 
da VRAM é colocado em DE e somado 
ao valor de HL. O acumulador é carre- 
gado com 255, o código do padrão de 
céu. A rotina 77 da ROM é chamada, 
apagando parte da figura anterior. 

A posição de Willie é recuperada da 
pilha para HL, somada com 32 através 
de DE e, finalmente, devolvida aos en- 
dereços - 5205 e - 5204. 

A primeira rotina de movimentação 
de Willie é chamada por jp 54603. Não 
se preocupe com o que restou de sua fi- 
gura, pois nossa rotina apagará todos os 
vestígios indesejáveis. 

O último ret da listagem é colocado 
apenas para prevenir possíveis erros, que 
ocorreriam se a rotina de salto diagonal 
fosse chamada sem estar presente na me- 
mória. Essa instrução será apagada pe- 
la parte do programa dada no próximo 
artigo de Avalanche. 
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MODELOS 
DA REALIDADE 



Os engenheiros constroem modelos 
em miniatura, para testar suas proprie- 
dades. Quando fazem isso, estão simu- 
lando um sistema. O programa do arti- 
go da página 1121 executa algo bem pa- 
recido: ele simula um evento, oferecen- 
do resultados compatíveis com a reali- 
dade. Veremos agora como combinar os 
princípios da simulação e da estatística 
para resolver problemas de ordem prá- 
tica e para acrescentar a nossos jogos 
uma dose de realidade. 



Um modelo é uma representação sim- 
plificada de um sistema real, por meio 
da qual se procura explicar ou prever as 
características e o comportamento des- 
se sistema. Existem três tipos de mode- 
lo — icõnico, análogo e simbólico — , 
nem todos úteis aos usuários de micro- 
computadores. 

Modelos ícònicos não possuem par- 
tes móveis. Maquetes de estradas e pré- 
dios incluem-se nessa categoria. Ao pro- 
jetar a construção de uma ponte sobre 
um estuário, por exemplo, engenheiros 
civis providenciam uma maquete da 
ponte e da área adjacente, a fim de es- 
tudar os efeitos da maré, da correnteza 
e do vento. Embora se utilizem compu- 
tadores para interpretar os resultados, 
a necessidade de coletar dados através 
de um experimento torna a simulação 
dispensável. 

Modelos análogos representam um 
fenómeno — ou quantidade — por ou- 
tro. E o caso de um economista que, pa- 
ra representar o fluxo de dinheiro na 
economia mundial, utiliza o fluxo de 
água de um conjunto de tanques cheios 
até diferentes níveis. Esse tipo de repre- 
sentação pode ser feito eletronicamente 
— empregando-se computadores analó- 
gicos e não digitais. 

O terceiro tipo de modelo, o simbó- 
lico, é o que apresenta particular inte- 
resse para o usuário do micro. 



Num modelo simbólico, representa- 
« determinado sistema por meio de uma 



Para ganhar a quina da loto, basta 
escolher cinco números ao acaso - 
os cinco números certos, é claro. 
Veja aqui algumas dicas estatísticas 
para programar eventos aleatórios. 




fórmula matemática. Para estudar a dis- 
tância S percorrida por um carro que se 
desloca à velocidade constante V por um 
certo período de tempo T, um modelo 
adequado seria S = V*T. Essa equação 
é chamada determinística, pois não 
comporta nenhum elemento de incerte- 
za ou acaso. 

Existem, contudo, eventos que não 
podem ser previstos com tal grau de pre- 
cisão. Temos um bom exemplo disso no 
programa apresentado no artigo da pá- 
gina 776, que simula o lançamento de 
uma moeda. Modelos que descrevem fe- 
nómenos que incluem um elemento de 
acaso são chamados estocásticos. Este 
é o tipo de evento que se costuma simu- 
lar, especialmente em jogos. 

Algumas variáveis só podem assumir 
valores discretos como 0, l,2,3-..Onú- 
mero de gois em uma partida de fute- 
bol pertence a essa categoria. Quando 



simulamos variáveis aleatórias como es- 
sa, precisamos sempre levar em conta 
que certos processos aparentemente di- 
ferentes têm, na realidade, a mesma es- 
trutura. 

Tomemos como exemplo o programa 
que simula o lançamento da moeda. Ele 
poderia ser facilmente modificado a fim 
de fornecer os resultados de um jogo de 
dados ou da cobrança de pênaltis. Em 
todas essas circunstâncias há um certo 
número de eventos independentes, cada 
qual com uma probabilidade definida. 
No caso de lançarmos uma moeda qua- 
tro vezes, vários resultados são possí- 
veis: quatro caras, três caras e uma co- 
roa, duas caras e duas coroas, uma ca- 
ra e três coroas, quatro coroas. Cada um 
dos resultados, porém, tem uma proba- 
bilidade definida. Os processos desse ti- 
po, conhecidos como processos de Ber- 
noulli, são formados por variáveis alea- 



IIIIIIIIIHHH 



■■■■■■lllllllll 




■L TIPOS DE MODELO ■ SIMULAÇÕES 

■ INCERTEZAS ■ DISTRIBUI Ç ÃO UNIFORME 

■ PROBABILIDADE E ■ DISTRIBUI Ç ÃO NORMAL 

COMPO RTA MENTO ALEA T ÓRIO ■ DISTRIBUI ÇÃ O EXPONENCIAL 

■ VARIÁVEIS ALEATÓRIAS ■ COMPARA Ç ÃO DE EVENTOS 




■S" THEK 30 



tórias discretas. Eles não se prestam, por 
exemplo, para descrever o número de 
acidentes do campeonato mundial de 
Fórmula-1 ou o número de chamadas te- 
lefónicas que chegam a uma central em 
meia hora. Nessas situações, os eventos 
ocorrem ao acaso durante um certo pe- 
ríodo de tempo e não são o resultado de 
experimentos sucessivos. Tais processos 
são denominados processos de Poisson. 

Para obter uma distribuição de Pois- 
son, digite este programa: 



10 BORDER 0: PAPEB 0: INK 7: 
CLS 

20 POKE 23658.0 
40 PRINT AT 1.6: INVERSE 1;"S 
IMULACAO DE POISSON " ! PRINT 
! PRINT 

50 INPUT "QUAL E O VALOR MEDI 



70 INPUT 'TAMANHO DA AMOSTBA 

80 FOB i»l TO n 

90 LET c-0: LET fl 
100 LET s = EXP (-a) 
110 LET t. = t* (BND*1) 
120 IF t<-a THEN PBINT " 

" ící : GOTO ISO 
130 LET c-C+1 
140 GOTO 110 
150 NEXT 1 

160 INPUT " OUTRA AMOSTRA (S/ 
N> ?"jg3 



10 R=RND I-TIME] 
30 CLS:UIDTH 40 

40 PBINT "Diatribuão de Poisson 
" : PBINT : PRINT 

50 INPUT "Qual é o valor da méd 
ia" ;A 
60 PRINT 

70 INPUT "Tamanho da amostra" ;N 
80 FOR 1-1 TO N 
90 C-0:T-1 
100 S«EXP(-A) 
.110 T-T*RND(1) 

120 IF TOS THEN PRINT LEFTS (ST 
&S(C)+" ".8) ; :GOTO 150 

130 C-C+1 
140 GOTO 110 
150 NEXT I 

.160 PRINT:INPUT "Outra amostra 
(Y/N) " iGS 

170 IF G$-"Y" THEN 30 
180 END 



30 HOME 

40 PRINT TAB { 9) : "DISTRIBUICA 
O DE POISSON" : PRINT : PRINT 
50 INPUT "QUAL O UALOB DA MEDI 



"TAMANHO DA AMOSTRA 



80 FOR I ■ 1 IO N 

90 C ■ 0:T ■ 1 

100 S - EXP t - A) 

110 T - T * RND Cl) 

120 IF T < - S THEN PRINT L 

EFTS ( STR3 (C) + " " . B) ; 

: GOTO 150 

130 C - C + 1 

140 GOTO 110 

150 NEXT I 

160 PRINT : INPUT "OUTRA AMO ST 
RA (S/N) ' ;GS 



30 CLS 

40 PBINT @6, "simulação de poias 
on":PRINT:PBINT 

50 INPUT"QUAL E 0 VALOR MÉDIO " 
i A 

60 PRINT 

70 INPUT" TAMANHO DA AMOSTRA ":N 
80 FOR I-l TO N 
90 C>0:T-1 
100 S-EXP(-A) 
110 T-T*RND(0) 

120 IF T<-S THEN PRINT LEFTS [ST 
RS(C)+" ".8) : :GOTO 150 

130 C=C+1 
140 GOTO 110 
15 0 NEXT 1 

160 PRINT : INPUT " OUTRA AMOSTBA ( 
S/N) " ;GS 

170 IF GS="S" THEN 30 
180 END 

Ao ser executado, o programa soli- 
cita o valor médio, bem como o núme- 
ro de elementos da amostra. A parte 
principal do programa (linhas 80 a 150) 
usa uma equação para gerar as variáveis 
de Poisson. A variável S recebe o valor 
de e (uma constante matemática) eleva- 
da ao valor de A (valor da média). A li- 
nha 110 escolhe um número aleatório 
entre 0 e T. A linha 120 compara as va- 
riáveis S e T para decidir se imprime ou 
não uma variável C. 

Suponhamos que você queira criar 
um jogo onde uma nave espacial enfren- 
ta uma chuva de meteoritos. Se o núme- 
ro médio de "colisões" em um período 
de um minuto é dois, e você precisa de 
cinco simulações de um minuto, o com- 
putador poderá fornecer o resultado 2, 
3,2, 1,0 como amostra do número de 
choques que a nave sofrerá em um mi- 
nuto. Cada valor não é muito diferente 
de 2 (a média) e há cinco valores — o 
tamanho da amostra. 

Poderíamos usar a mesma técnica pa- 
ra simular os resultados de uma série de 
partidas de futebol? É claro que sim. Es- 
taremos lidando com uma variável dis- 
creta, pois o número de gois em uma 
partida só pode assumir valores inteiros. 
Gois são eventos que ocorrem ao aca- 
so, em determinado espaço de tempo — 
e não o resultado de um certo número I 
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de experimentos repetidos. Portanto, 
nesse caso, um processo de Poisson é 
adequado. 

Além do número de partidas, preci- 
saremos escolher a média de gois por 
partida. Este é o momento de buscar da- 
dos no mundo real. A tabela abaixo 
mostra a média de gois por partida nos 
campeonatos da primeira divisão ingle- 
sa entre 1977 e 1983. 



Primeira divisão 


Média de gois por 


partida 




Time 


Time 


Temporada 


da casa 


visitante 


77-78 


1.6039 


1.0606 


78-79 


1.5498 


1.0844 


79 80 


1.6925 


0.9481 


80-81 


1.6364 


1.0216 


81-82 


1.4545 


1 .0844 


82-83 


1.7532 


0.9822 



is nesses valores, podemos es- 
timular uma média de 1.7 gois por par- 
tida para o time da casa e de 1.0 para 
o time visitante. Dividindo esses núme- 
ros por dois, obteremos as médias de 
0.85 e 0.5 para meio tempo de jogo. De 
posse desses dados, fica fácil elaborar 
o programa: 



20 DIM a$(25.10): DIM hS<25, 

10) : DIM h(50) ! DIM a(50) : 

DIM f (50) : DIM 0(50) 

30 BORDEEI 0: PAPER 0: 1 NK 7: 

CLS 

50 PRINT AT 0.8; INVERSE 1|" 

PLACAR FINAL " 
70 INPUT ' QUANTAS PARTIDAS ( 
1-25)? ";n 

75 IF n<l OR n>25 THEN GOTO 
70 

BO FOR í-l TO n 

90 PRINT "PARTIDA" ; i 
100 INPUT "TIME DA CASA" ; h$ ( i 1 
110 INPUT "TIME VISITANTE" ; a3 ( 

i) 

120 NEXT i 
130 PAUSE 400 
140 PRINT 

150 FOR i-1 TO 2"n 
160 LET e-0: LET t-1 
170 LET a-EXP (-.85) 
1B0 LET t-t*(RND"l) 
190 IF t<-B THEN LET h ( i ) -c : 
GOTO 220 
200 LET c-c+1 
210 GOTO 180 
220 NEXT l 
230 FOR i-1 TO 2*n 
240 LET c-0: LET t-1 
250 LET s-EXP (-.5) 
260 LET t-t*(RND»l) 
270 IF tOa THEN LET a{i)-c: 
I GOTO 300 



2B0 LET c-c+1 
290 GOTO 260 
300 NEXT 1 
310 CLS 

320 PRINT TAB (7); "PLACAR PRIM 

EIRO TEMPO" ; 1 ' 

330 FOR i-1 TO n 

34() PRINT hS ( 1 ) i h ( i ) ; TAB 20;aS 

(i) ;a(i) : PRINT 

350 NEXT i 

360 PRINT " QUALQUER TECLA PAB 
A CONTINUAR" 

370 IF INK£Y$= " " THEN GOTO 
370 



390 FOR i-1 TO n 

400 LET f (i)«h(i)+h(n+i) 

410 LET g(i)-a(i)+a(i+n) 

420 PRINT h$ ( i ) ; f ( 1 ) ; TAB Z0;a3 

(i) ig(i) : PRINT 

430 NEXT 1 

440 INPUT " NOVAMENTE ? (a/n 

) "ig9 

450 IF gS-"n" THEN GOTO 490 
460 INPUT "MESMOS TIMES (a/n) 
?":p$ 

470 IF pS-"n" THEN GOTO 70 
480 GOTO 150 
490 STOP 



360 P..INT "Aperte qualquer teci 

370 IF INKEY3-" " THEN 370 
380 CLS 

390 FOR 1=1 TO N 

400 FH(I)-H(I)+H(N+I) 

410 FA<I)-A(I)+A(N+I) 

420 PRINT HS(I) ;FH(I) .AS(D ;FA( 

D 

4 30 NEXT 

440 PRINT:INPUT"OUTRA VEZ (3/N) 
-;G$ 

450 IF G3="N" THEN END 

460 INPUT "Meamos tines (S/N)"; 

PS 



5 R-RND(-TIME) 

20 DIM AS (25) ,H$(25) ,H(50) ,A(50 
) ,FA(25) ,FH(25) 
30 CLS:WIDTH 40 

50 PRINT TAB (13): "SCORE FINAL" 
60 PRINT : PRINT 

70 INPUT"Quantaa partidas (1-25 
)":N 

75 IF N<1 OR N>25 THEN 70 

80 FOR 1=1 TO N 

90 PRINT "PALITO" ; I 

100 INPUT "Time da casa":HS(I) 

110 INPUT "Time de fora";A$(I) 

120 NEXT I 

130 FOR V-l TO 2000:NEXT V 
140 PRINT 

150 FOR 1-1 TO 2*N 
160 C-0íT=l 
170 S-EXP(-.85) 
180 T-T*RND(0) 

190 IF TOS THEN H(I)-C:GOT0 22 
0 

200 C-C+1 

210 GOTO 180 

220 NEXT I 

230 FOR 1=1 TO 2-N 

240 C-0:T-1 

250 S-EXP (- . 5) 

260 T=T*RND{0) 

270 IF TOS THEN A(I)=C:GOTQ 30 
0 

280 C-C+1 
290 GOTO 260 
300 NEXT I 
310 CLS 

320 PRINT TAB (9) ; "Score temporá 

no":PRINT:PRINT 

330 FOR 1-1 TO N 

340 PRINT HSÍI) :H(I) ,A$(I) ;A(I) 
350 NEXT I 



20 DIM AS (25) ,HS(25) ,H(50) ,A(5 
0) ,FA(25) ,FH(25) 
30 HOME 

50 PRINT TAB ( 13) ; "SCORE FINA 



75 IF N < 1 OR N > 25 THEN 70 

80 FOR I - 1 TO N 

90 PRINT "PARTIDA ";I 

100 INPUT "TIME DA CASA "iHSII 

) 

110 INPUT "TIME DE FORA ";ASd 

) 

120 NEXT I 

130 FOR V = 1 TO 2000: NEXT V 
140 PRINT 

150 FOR I ■ 1 TO 2 * N 

160 C - 0:T - 1 

170 S - EXP ( - .85) 

180 T - T • RND (1) 

190 IF TT ( - S THEN H (I) - C 

: GOTO 220 

200 C-C+1 

210 GOTO 180 

220 NEXT I 

230 FOR I - 1 TO 2 " N 

240 C - 0:T = 1 

250 S = EXP ( - .5) 

260 T - T * RND (1) 

270 IF T < - S THEN A(I) - C: 

GOTO 300 
280 C-C+1 
290 GOTO 260 
300 NEXT I 
310 HOME 

320 PRINT "SCORE PARCIAL ' : PR 

INT : PRINT 

330 FOR I ■ 1 TO N 

340 PHINT HS(I) ;H(I) .AS(I> iAÍI 



LA " 

370 GET G3 
375 HOME 

380 PRINT TAB ( 13) : "SCOBE FIN 

AL": PRINT : PRINT 

390 FOR I • 1 TO N 

400 FH(I) - H(I) + H (N + I) 

410 FA(I) - A(I) + A(N + I) 

420 PRINT HSÍI) ;FH(I) ,AS(I) ;FA 

(I) 



illlllHHHI 
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430 NEXT 

440 PRINT : INPUT "OUTBA VE2 ( 

S/N) ":PS 

450 IF PS - "H" THEN END 

460 INPUT "MESMOS TIMES (S/N) 
"íGS 

470 IF GS - "ti" THEN 70 

480 GOTO 150 



20 DIM AS(25) ,HS(25) .H(50) ,A(50 
) ,FA(25) ,FH(25) 
30 CLS 

50 PHINT eil. "placar final" 
60 PRINT : PE I NT 

70 INPUT "QUANTAS PARTIDAS (1-25 
) "iN 

80 FOR 1-1 TO N 

90 PRINT" PARTIDA " ;1 

100 INPUT"TIME DA CASA ":H$[I) 

110 INPUT-UISITANTE ":AS(I):PRI 

NT 

120 NEXT I 

130 FOR V-l TO 2000:NEXT V 
140 PRINT 

150 FOR 1-1 TO 2»N 
160 C«0:T-1 
170 S=EXP(-.85) 
180 T C T*RND (0) 

190 IF T<-S THEN H ( I ) -C : GOTO220 

200 C-C+l 

210 GOTO 180 

220 NEXT I 

230 FOR 1-1 TO 2*N 

240 C-0:T-1 

250 S-EXPI-.5) 

260 T - T * RND ( 0 ) 

270 IF T<-S THEN A (1) -C : GOTO300 
280 C-C+l 
290 GOTO 260 
300 NEXT I 
310 CLS 

320 PRINT §5, "placar primeiro t 
empo" : PRINT: PRINT 
330 FOR 1-1 TO N 

340 PRINT HSU) ;H(I) ;A$(I) ;A(I) 
350 NEXT I 

360 PRINT" QUALQUER TECLA PARA 
CONTINUAR" 

370 IF INKEYS" " " THEN 370 
375 CLS 

380 PRINT «10. "placar £inal":PR 

INT: PRINT 

390 FOR 1-1 TO N 

400 FH(I)-H(I)+H(N+I) 

410 FA(IÍ-A(I)+A(N+I) 

420 PRINT HS (I) ;FH[I) ,AS(I) ;FA( 

I) 



Da linha 20 a 120 o programa solici- 
ta as informações iniciais. Para evitar 
muita digitação, podemos substituir os 
nomes dos times por letras. As linhas 
150 a 300 usam o algoritmo de Poisson, 



idêntico ao do programa anterior, para 
gerar os resultados parciais e finais dos 
jogos. As linhas 320 a 350 cuidam da 
salda dos resultados parciais e as linhas 
390 a 430, dos resultados finais. 

A simulação de Poisson funciona 
bem com variáveis discretas. Algumas 
vezes, porém, precisamos utilizar variá- 
veis fracionárias ou contínuas. Em uma 
simulação de competição de salto em 
distância, por exemplo, podemos obter 
uma medida qualquer entre sete e nove 
metros — o comprimento do salto é 
uma variável aleatória, contínua. 

Embora a função RND seja adequa- 
da para simulações de Poisson com nú- 
meros inteiros, será necessário modificá- 
la um pouco para utilizá-la com variá- 
veis continuas. O quadro da página 1 180 
compara as distribuições obtidas com os 
dois tipos de variáveis: variáveis discre- 
tas resultam em distribuições uniformes, 
enquanto variáveis contínuas resultam 
em distribuições exponenciais e distri- 
buições normais. 

Digite o próximo programa para 
transformar os números aleatórios uni- 
formemente distribuídos, criados pela 
função RND do computador, em núme- 
ros distribuídos exponencialmente. 



10 BORDER 0: INK 7: PAPER 0: 
CLS 

20 POKE 23658,0 

30 PRINT AT 0,4; INVERSE 1|" 

SIMULAÇÃO EXPONENCIAL "" 

50 INPUT "QUAL E O VALOR MEDI 

0 7 "ia 

70 INPUT "TAMANHO DA AMOSTRA 

? ";n 

80 FOR i-l TO n 
90 LET x=(-a)"LN (RND*1> : LET 
y-INT (x*10) : PRINT " "i 
-1*Y, 
100 NEXT i 

110 INPUT " OUTRA SIMULAÇÃO (b 
/n) ? ";g3 

120 IF gS-"B" THEN GOTO 30 
130 STOP 



10 R-RND(-TIME) 
30 CLS:WIDTH 40 

40 PRINT TAB (8) : "Simulação expo 

nencial": PRINT: PRINT 

50 INPUT "Qual o valor da média 

"SA 

60 PRINT 

70 INPUT "Tamanho da aBoatra";N 
80 FOR 1-1 TO N 

90 X-{-A)«LOG(RND(D) :V-INT(X*1 
0):PRINT LEFTS(9TRS(Y/10)+" 

".6) i 
100 NEXT I 

110 PRINT:INPUT "Outra vet (S/N 
) "iGS 



30 HOME 

40 PRINT TAB ( 7 ); "SIMULAÇÃO E 

XPONENCIAL": PRINT ! PRINT 

50 INPUT "QUAL 0 VALOR DA MEDI 

A " ;A 

60 PRINT 

70 INPUT "TAMANHO DA AMOSTRA " 

iN 

80 FOR I - 1 TO N 
90 X - ( - A) * LOG ( RND (D) 
:Y - INT (X * 10): PRINT LEFT 
S ( STR3 (Y / 10) + " ",8 

) i 

100 NEXT I 

110 PRINT : INPUT "OUTRA SIMUL 

ACAO (S/N) "tGS 

120 IF GS - "S" THEN 30 

130 END 



30 CLS 

40 PRINT S5 , "simulação exponenc 
ial":PBINT:PRINT 

50 INPUT"QUAL E O VALOR MÉDIO " 

lA 

60 PRINT 

70 I N PUT " TAMANHO DA AMOSTRA ";N 
80 FOR 1-1 TO ti 

90 X=(-A)«LOG(RND(0)) :Y=INT(X*1 
0):PBINT LEFT$(STRS(Y/10)+" 

■.8) i 

100 NEXT I 

110 PRINT : INPUT" OUTRA SIMULAÇÃO 

(S/N) ";GS 
120 IF GS-"S" THEN 30 
130 END 

Devemos informar ao programa, as- 
sim que o executamos, o valor da mé- 
dia. Feito isso, os valores da amostra 
são exibidos. A Unha 90 realiza toda a 
tarefa, utilizando um recurso matemá- 
tico chamado método da transformação 
inversa, para mudar a distribuição das 
variáveis. Esse programa pode ser usa- 
do para simular, por exemplo, o tempo 
de espera em um lava-rápido ou a du- 
ração das reservas de combustível em 
um jogo espacial. Em ambos os casos, 
o tempo decorrido é o elemento central. 



DISTRIBUIÇÃO NORMAL 



A curva normal é o tipo mais conhe- 
cido de distribuição estatística. Tem nu- 
merosas aplicações, descrevendo toda 
espécie de fenómeno natural — como a 
estatura e o peso de homens adultos. 
Além disso, constitui o meio mais apro- 
priado para a representação de uma dis- 
tribuição de erros. 

Como exemplo do uso da distribui- 
ção normal em um modelo, considere- 
mos esta situação: as vendas (S) de uma I 
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empresa dependem de um valor-base 
(So) e do total gasto em propaganda (A). 
A relação poderia ser resumida na ex- 
pressão S = So + (B*A) + desvio nor- 
mal, onde B é uma constante conhecida. 

Digite o programa a seguir para ver 
como funciona. 



10 B0RDER 0: PAPER 0: INK 7: 

20 DIM u(50) : DIM v{50) : DIM 
«(50) 

50 PRINT AT 0,7; INVERSE li" 
SIMULAÇÃO NORMAL " ' ' 
60 INPUT " QUAL E O VALOR MED 
IO ? 

70 IKPUT " QUAL E O VALOR MIN 
IMO ? " ;m 

BO INPUT " TAMANHO DA AMOSTRA 
90 LET b-(a-m)/2-5 



100 FOR í-l TO n 

110 LET t-0 

120 FOB J-1 TO 15 

130 LET y(j)-BND*l 

140 LET t-t+y(j>: NEXT 3 

150 LET u(Í)-((t/15)-.5)/SQR ( 

1/(12*15) ) 

160 LET 2 (i)=a+(b*u(l) ) 

170 LET p-INT (10*i(l)): PRINT 

■i-l*P. 
1B0 NEXT i 

190 INPUT " OU TB A AMOSTRA 7 " i 
OS 

200 IF gS-"a" THEN GOTO 50 
210 STOP 



El 



fffi 



10 R-RND(-TIME) 

30 CLS:WIDTH 40 

40 DIM U(50) ,Y(50) ,Z(50) 

50 PRINT "Simulação normal" :PRI 

NT: PRINT 

60 INPUT "Qual o valor da média 



70 INPUT "Qual 



alo 



min 



30 CLS 

40 DIM U{50) ,Y(50) .Z(50) 

50 PBINT «7, "distribuição norma 

1 " : PBINT : PRINT 

60 INPUT"QUAL E O VALOR MÉDIO " 
tA 

70 INPUT"QUAL E O VALOB MÍNIMO 

80 INPUT "TAMANHO DA AMOSTHA ";N j 
90 BMA-M>/2-5 
100 FOR 1=1 TO N 
110 T-0 

120 FOB J-1 TO 15 

130 Y[J)=RND(0) 

140 T = T + Y. (J) : NEXT J 

150 U[I)-((T/15)-.5)/SQRU/ll2* 

15) ) 

160 Z [I)-A+(B»U(D ) 

170 P = INT(10*Z(D) :PBINT LEFTS ( 

STBS (P/10) +" " ■ 8) ; 

180 NEXT 1 

190 PRINT : INPUT"OUTHA AMOSTRA " 
;GS 



80 INPUT "Tamanho da amostra" ;N 
90 B=(A-M>/2-5 
100 FOB 1-1 TO N 
110 T-0 

120 FOB J-1 TO 15 

130 Y(J)-RNDU) 

140 T-T+Y(J) : NEXT J 

150 U(I)=((T/15)-.5)/SQRil/(12" 

15)) 

160 Z(I)-A+(B«UU)) 

170 P-INT(10*Z(I>) :PRINT LEFTS ( 

STRS(P/10)+" ",8) i 

180 NEXT I 

190 PRINT-INPUT"Outra amostra" ; 



THEN 50 



ara 



30 HOME 

40 DIM U(50) ,Y(50) ,Z(50) 

50 PRINT TAB ( 9) : "DISTRIBUICA 

O NORMAL" : PBINT : PRINT 

60 INPUT "QUAL O VALOB DA MEDI 

A ":A 

70 INPUT "QUAL O VALOR MÍNIMO 
" :M 

80 INPUT "TAMANHO DA AMOSTRA " 

iM 

90 B - (A - M) / 2.5 
100 FOR I - 1 TO N 
110 T-0 

120 FOR J - 1 TO 15 
130 Y(J) - RND (1) 
140 T - T + Y ( J) ! NEXT J 
150 U(I) - <(T / 15) - .5) / S 
QR (1 / (12 * 15) ) 
160 Z(I) - A + (B * U(I)) 
170 P - INT (10 * 2(1)): PRINT 
LEFTS ( STBS {P / 10) + " 
".8) ; 
180 NEXT I 

190 PRINT : INPUT "OUTBA AMOS 

TRA (S/N) _ ;GS 

200 IF GS - "S" THEN 50 

210 END 



Execute o programa e forneça o va- 
lor médio e o valor mínimo, bem como 
o tamanho da amostra. Tecnicamente, 
o intervalo de uma distribuição normal 
é infinito, o que deixa uma chance mui- 
to pequena de se obter um valor menor 
que o mínimo especificado. 

As linhas 120 a 150 usam a função 
K.ND para criar quinze números entre 
0 e 1, somando-os em seguida. A linha 
160 calcula a média e o falor de escala. 
Depois de ter sido escalonado, o resul- 
tado é impresso. 

Para maior clareza, poderá ser útil 
criar duas distribuições com a mesma 
média e aproximadamente o mesmo in- 
tervalo, mas com formatos diferentes. 
Execute o programa e forneça os valo- 
res 1 00 para a média, 50 para o mínimo 
e 40 para o tamanho da amostra. Se os 
valores obtidos fossem plotados, tería- 
mos um gráfico semelhante ao da figu- 
ra C (quadro da página 1180). 

Agora, apague a linha 90 e as linhas 
120 a 160. Substitua a linha 1 10 pela se- 
guinte: 

110 Z<I)-M+RND(1)«2*(A-M) 

No TRS-Color, use RND (0) no lu- 
gar de RND (1). 

Com essas alterações, a distribuição 
normal é convertida em distribuição uni- 
forme. Execute o programa novamente 
e entre os valores especificados, compa- 
rando os resultados. Desta vez, os va- 
lores levariam a um gráfico como o da 
figura A (página 1180). 

Observe que a simulação normal acu- 
mula maior número de resultados pró- 
ximos à média. 
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■ 


COMO SIMULAR 0 CLIMA 


■ 


VARIÁVEIS DE 


DISTRIBUIÇÃO NORMAL 


■ 


CONDIÇÕES DE MERCADO 


■ 


CONTROLE DE CAIXA 



Retomando nossos estudos sobre o uso 
de modelos, apresentamos neste artigo 
um programa que se vale de alguns 
princípios económicos para simular o 
balanço de uma empresa comercial. 



No artigo da página 1 176, examina 
mos o papel da simulação em várias 
áreas de pesquisa. Vimos também como 
gerar diferentes variáveis aleatórias, ca 
da qual adequada a uma determinada si 
tuação. Como demonstrou nosso pro- 
grama de simulação normal, a geração 
de variáveis normalmente distribuídas é 
muito simples, mas não tão eficiente — 
foram necessários quinze números alea 
tórios para criar uma única variável. O 
programa deste artigo usa um método 
mais eficaz, que permite simular diver- 
sos aspectos de uma pequena empresa 
comercial. Este programa também po- 
de ser utilizado como um jogo (até bem 
divertido), mas constitui, de fato, um 
modelo de uma situação real. 



10 POKE 23658,8: POKE 23609, 

12 

20 PAPER 0: BORDER 0: INK 7: 
CLS 

30 PR I NT AT 0,8; INVERSE li" 
BATATA QUENTE " 
40 DIM ASI4.12) : DIM L(2) : 
DIM DUO): DIM W(2>: DIM Q<2) 
: DIM P (2) 

50 LET AS (1) '"QUENTE" E SECO" ! 
LET D{3)=150: LET D(4)=300 
60 LET AS 1 2) ="QUENTE E UMIDO" 
: LET D<5)-100: LET D(6)-200 
70 LET AS (3) -"FRIO E SECO": 
LET D(7)=250: LET D(B)=160 
80 LET AS(4)="FRIO E UMIDO": 
LET D<9)=200: LET D(10)-100 

580 DIM C(4,2): LET C(l,l)-.l: 

LET Cd. 2} = . 15 

590 LET C(2,l)-0.5: LET C{2,2) 
-0.25 

600 LET C(3.1)-0.01: LET C(3,2 



.12 



610 LET C(4.1}-10: LET C(4.2>- 
10 

620 INPUT "QUANTOS JOGADORES ( 
1-6) ? ";N 

625 IF N<1 OR N>6 THEN GOTO 
620 




Illl 



627 DIM K(N): DIM T(2,N): DIM 
O (2 ,N) 

630 FOB 1-1 TO 2: FOR J-l TO N 

640 LET T{I.J)-0 

650 NEXT J: NEXT I 

700 FOR K-l TO 10 

710 LET Pl-INT (10*{.3+<RND"1/ 

2) ) )/10 

720 LET P2-INT (10* ( . 2+ <RND*1/ 
2)) )/10 

730 PRINT INK 4; BRIGHT li" — 



INK 7;K; INK " 



740 PBINT "Prob. de um dia que 
nte e seco : " i 100*P1 ; " t" 
750 PBINT "Prob. de um dia sec 
o : "ilOO*P2;"t* 
760 OOSUB 1400 

770 LET Ul-RNDM: LET U2-RND*1 
780 LET Vl-SQR (2MLN U/Ul))) 
790 LET V2-COS [2*PI*U2): LET 
V3-SIN <2*PI*U2) 

800 LET Zl-INT (V1*V2) : LET Z2 
-INT (V1«V3) 

810 LET A1-P1*P2: LET A2-P1 

820 LET A3-P1+P2-A1: LET A4-1 : 
LET F-RND*1 

821 PRINT : IF F<A1 THEN LET 
R-l 

822 IF F>A1 AND F<-A2 THEN 
LET R-2 

823 IF F>A2 AND F<-A3 THEN 
LET R-3 

824 IF F>A3 AND F<-A4 THEN 
LET R-4 

830 CLS ! PRINT "O TEMPO ESTA 
-;AS<R) 

840 LET D 1 1 ) "INT (D 1 1+R*2) +21 * 
25): LET D(2)-INT (D(2+R«2)+Z2 
MO) 

850 PRINT "Demanda de batatas 
assadas -" ;DU) 

860 PRINT "Demanda de latas de 

coe» «■ ;D<2) 

990 PRINT ' ' 
1000 PRINT INK 5; IN VER SE 1:"J 
OGADOR GANHO CUSTOS LUCRO " 
1010 GOSUB 1600 
1020 NEXT K 
1030 PAUSE 200 
1090 CLS 

1100 PRINT " RESULTADO FINAL A 
POS 10 DIAS '" 

1110 PRINT "JOGADOR" . "LUCRO TOT 
AL" 

1120 FOB J-l TO N 

1130 PBINT J.KÍJ): NEXT J 

1140 PRINT PBINT "FIM DE JO 

OO" 

USO STOP 

1400 PRINT "SEU PEDIDO POB FAVO 

R PRINT 

1410 FOB J-l TO N 

1420 PRINT "JOGADOR" ;J: PRINT 

1430 INPUT "NUMERO DE BATATAS Q 

UENTES " :0(1 , J) 

1440 INPUT "NUMERO DE LATAS DE 
COCA COLA" ;0 (2 . J) 
1450 NEXT J 
1460 RETURN 
I 1600 FOR J-l TO N 




1610 FOR 1-1 TO 2 
1620 LET L-O(I.J) 

1630 IF D(IXL THEN LET L-D(I) 
1650 LET W(I)-C(2,I)*L 
1670 LET Q(I)«C(1,I)*0(I,J) 
1680 IF D(I)>L(I) THEN GOTO 17 
00 

1690 LET Q(I)-Q(I)-C<3,I)*{0(I, 
J)-D(I) ) 

1700 LET P(I)-W{I)-Q<I) 
1710 LET TU, J)-T(I, J)+P(I) 
1720 NEXT I 

1730 LET K(J)-T(l.J)+T(2.J)-200 

1740 LET E-W(l)+W(2) 

1750 LET C-QUJ+Q(2)+20 

1760 LET P-P(l)+P<2)-20 

1770 PRINT INK 6 ; TAB 3;J;TAB 9 

;E;TAB 18;C;TAB 25;Pi * * 

1780 NEXT J 

1790 RETURN 



5 R-RND(-TIME) 
10 PI-4*ATNU) 

20 CLS 

30 PRINT TAB (13) ; 
": PRINT: PRINT 



'Batata quente 



580 C1U)-.1:C1(2)-.15 

590 C2(l)-.5:C2(2)-.25 

600 C3Í1)-.01:C3(2)-.12 

620 INPUT "QUANTOS JOGADORES (1- 

6) " ;N 

625 IF N<1 OR N>6 THEN 620 

630 FOR 1-1 TO 2: FOR J-l TO N 

640 TPU.JJ-0 

650 NEXT J,I 

700 FOR K-l TO 10 

710 Pl-INT(10*(.3+RND(l)/2))/10 

720 P2-INT(10*(.2+RNDU)/2))/10 

725 PRINT" QUALQUER TECLA PARA 
CONTINUAR" 

726 IF INKEYS-"" THEN 726 
730 PRINT-dia":K:PRINT 

740 PRINT-PROB. DE UM DIA QUENT 
E :":100*Pl:-f 

750 PBINT-PROB. DE UM DIA SECO 

:":100*P2j"*" 

760 GOSUB 1400 

770 Ul-RND(l) :U2-RND(1) 

780 V1-SQR(2*(L0GU/U1))) 

790 V2-COS{2*PI»U2) :V3-SIN(2"PI 

*U2) 

800 Z1-INT(V1*V2) :Z2-INT(V1"V3) 

810 A1-P1*P2:A2-P1 

820 A3-P1+P2-A1:A4-1:F-RND(1) 




1030 FOR 1-1 TO 2000:NEXT 
1090 CLS 

1100 PRINT" RESULTADO FINAL APO 

S 10 DIAS ":PRINT:PRINT 

1110 PRINT" JOGADOR" , "LUCRO TOTA 

L" 

1120 FOR J-l TO N 

1130 PRINT J,TT(J):NEXT J 

1140 PRINT : PRINT : PRINT" FIM DE J 

OGO" 

1150 END 

1400 PRINT : PRINTTAB (5 ) ;"seu ped 

ido por favor" i PRINT 

1410 FOR J-l TO N 

1420 PRINT"JOGADOR";J:PRINT 

1430 INPUT"NUMERO DE BATATAS" ; O 

(l.J) 

1440 INPUT"NUMERO DE LATAS DE C 

OCA COLA":0(2,J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J-l TO K 

1610 FOR 1-1 TO 2 

1620 L-OÍI.J) 

1630 IF D(I)<L THEN L-D(I) 

1650 RU(I)-C2(I)*L 

1670 TC(I)-C1(I)*0(I,J) 

1680 IF DUK-L THEN RC(I)-TC(I 

)-C3(I)*(0(I.J)-D(I)) 

1700 P(I)-RV(I)-TC{I) 

1710 TP{I,J)-TP(I, J)+P(I) 

1720 NEXT I 

1730 TT(J)-TP<l,J)+TP(2.J}-200 

1740 E-RV(l)+Rv(2) 

1750 C-TC(l)+TC(2)+20 

1760 P-P(l)+P(2)-20 

1770 PRINTUSING" t 111.11 

MH II III . tl" ; J.E.CP 

1780 NEXT J 

1790 RETURN 



821 CLS:IF F<-A1 THEN 830 

822 IF F>A1 AND F<-A2 THEN 870 

823 IF F>A2 AND F<-A3 THEN 810 

824 IF F>A3 AND F<-A4 THEN 950 
830 PRINT'0 TEMPO ESTA QUENTE E 

SECO" 

840 D{1)-150+Z1«25:D<2)-300+Z2* 
40: GOTO 970 

B70 PRINT"0 TEMPO ESTA QUENTE E 
UMIDO* 

880 D(1)-100+Z1*25:D(2)-200+Z2* 
40: GOTO 970 

910 PRINT"0 TEMPO ESTA FRIO E S 
ECO" 

920 DU)-250+Z1*25:D(2)-160+Z2* 
40:GOTO 970 

950 PRINT'0 TEMPO ESTA FRIO E U 
MIDO" 

960 D(1)-200+Z1"25:D(2)-100+Z2* 
40 

970 PRINT "DEMANDA DE BATATAS AS 
SADAS-";DU) 

9B0 PRINT "DEMANDA DE LATAS DE C 
OCA-"; D (2) 

1000 PRINT" JOGADOR GANHO CUST 

OS LUCRO" 

1010 GOSUB 1600 

1020 NEXT K 



10 PI-4*ATN<1) 
20 HOME 

30 PRINT TAB (13) ; " BATATA QUENTE 

": PRINT: PRINT 

580 C1<1)-.1:C1(2)-.15 

590 C2(l)-.5:C2(2)-.25 

600 C3(1)-.01:C3(2)-.12 

620 INPUT"QUANTOS JOGADORES (1- 



6) 



625 IF N<1 OR N>6 THEN 620 

630 FOR 1-1 TO 2:FOR J-l TO N 

640 TP(I,J)-0 

650 NEXT J.I 

700 FOR K-l TO 10 

710 Pl-INT(10M.3+RND(l)/2))/10 

720 P2-INTUOM-2+RND(l)/2))/10 

725 PRINT" QUALQUER TECLA PARA 
CONTINUAR" 

726 GET WS 

730 PRINT-DIA" ;K:PRINT 

740 PRINT"PROB. DE UM DIA QUENT 

E : " ;100*P1;*%" 

750 PRINT-PROB. DE UM DIA SECO 

:"jlO0*P2;"l" 

760 GOSUB 1400 

770 Ul-RND(l) :U2-RND(1) 

780 Vl-SQR(2MLOG<l/Ul))) 

790 V2-COS(2*PI*U2) : V3-SJ.N ( 2*PI 

*U2) 

800 Z1-INT(V1*V2) :Z2-INT(V1*V3) 
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810 A1-P1»P2:A2-P1 

820 A3-P1+P2-A1:A4-1:F-RND(1) 

821 HOME i IF F<-A1 THEN 830 

822 IF F>A1 AND F<-A2 THEN 870 

823 IF F>A2 AND FOA3 THEN 810 

824 IF F>A3 AND F<-A4 THEN 950 
830 PRINT"0 TEMPO ESTA QUENTE E 

SECO" 

840 D(1)-150+Z1*25:D(2)-300+Z2* 
40: GOTO 970 

870 PRINT"0 TEMPO ESTA QUENTE E 
UMIDO" 

880 DU)-100+Z1*25:D{2)-200+Z2* 

40:GOTO 970 

910 PRINT"0 TEMPO ESTA FRIO E S 
ECO" 

920 D(1)-250+Z1*25:D(2)-160+Z2" 
40: GOTO 970 

950 PRINT"0 TEMPO ESTA FRIO E U 
MIDO" 

960 D(1)-200+Z1*25:D(2)-100+Z2" 
40 

970 PRINT" DEMANDA DE BATATAS AS 
SADAS-";D(1) 

980 PR I NT " DEMANDA DE LATAS DE C 
OCA-";D(2) 

1000 PRINT" JOGADOR GANHO CUST 
OS LUCRO" 
1010 GOSUB 1600 
1020 NEXT K 

1030 FOR 1-1 TO 2000:NEXT 
1090 HOME 

1100 PRINT" RESULTADO FINAL APO 

S 10 DIAS ":PRINT:PRINT 

1110 PRINT" JOGADOR" . "LUCRO TOTA 

L" 

1120 FOR J-l TO N 

1130 PRINT J,TT(J):NEXT J 

1140 PRINT : PRINT : PRINT" FIM DE J 

OCO" 

1150 END 

1400 PRINT: PRINTTAB (5) ; "SEU PED 

IDO POR FAVOR": PRINT 

1410 FOR J-l TO N 

1420 PRINT" JOGADOR" i J : PRINT 

1430 INPUT"NUMERO DE BATATAS" ;0 

(l.J) 

1440 INPUT*NUMERO DE LATAS DE C 
OCA COLA";0(2,J) 
1450 NEXT J 

1460 RETURN 

1600 FOR J-l TO N 

1610 FOR 1-1 TO 2 

1620 L-O(I.J) 

1630 IF DUXL THEN L-D(I) 

1650 RV(I)-C2(I)"L 

1670 TC(I)-C1(I)*0(I,J) 

1680 IF DUX-L THEN RC(I)-TC(I 

)-C3(I)«(0(I, J)-D(D) 

1700 P(I)-Rv(I)-TC(I) 

1710 TP(I,J)-TP(I,J)+P(I) 

1720 NEXT I 

1730 TT(J)-TP(1, J)+TP(2,J)-2O0 

1740 E-RV(1)+RV(2) 

1750 C-TC(l)+TC(2)+20 

1760 P-P(l)+P(2)-20 

1770 PRINT TAB (2) ; J ; TAB (9) ; E ; TA 
B(17) ;C;TAB(25)';F 

1780 NEXT J 

1790 RETURN 
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10 PI-4*ATN(1) 

20 CLS 

30 PRINT «10, "batata quent*":PR 
INT : PRINT 

580 C1(1)-.1:C1<2)-.15 

590 C2(l)-.5;C2(2)"-25 

600 C3(1)-.01:C3(2)-.12 

620 INPUT" QUANTOS JOGADORES (1- 

6) ";H 

625 IF N<1 OR N>6 THEN 620 

630 FOR 1-1 TO 2: FOR J-l TO N 

640 TP(I,J)-0 

650 NEXT J,I 

700 FOR K-l TO 10 

710 Pl-IHT(10*(.3+RND(0)/2)>/10 
720 P2-INT(10*(.2-RND(0)/2))/10 

725 PRINT" QUALQUER TECLA PARA 
CONTINUAR" 

726 IF INKEYS^"" THEN 726 
730 PRINT"dia" ; K : PRINT 

740 PRINT"PROB. DE UM DIA QUENT 
E :":100"Pl;"t" 

750 PRINT"PROB. DE UM DIA SECO 

:';100"P2;"I" 

760 GOSUB 1400 

770 Ul-RND(O) :U2-RND(0) 

780 Vl-SQR (2* (LOG tl/Ul ) ) ) 

790 U2-COS(2*PI«U2) :V3-SIN(2*PI 

*U2) 

800 Z1-INT(V1*V2) :Z2-INT<V1*V3) 
810 A1-P1*P2:A2-P1 
B20 A3-P1+P2-A1 :A4-1 :F=RND(0) 
821 CLS:IF F<-A1 THEN 830 
622 IF F>A1 AND F<-A2 THEN 870 
823 IF F>A2 AND FOA3 THEN 810 
B24 IF F>A3 AND F<-A4 THEN 950 
830 PRINT"0 TEMPO ESTA QUENTE E 
SECO" 

840 DU)=150+Z1*25:D(2)=300 + Z2* 
40.-GOTO 970 

870 PRINT"0 TEMPO ESTA QUENTE E 
UMIDO" 

880 D(1)-100+Z1*25:D(2)-200+Z2* 
40:GOTO 970 

910 PRINT"0 TEMPO ESTA FRIO E S 
ECO" 

920 DU)=250+Z1*25:D(2)-160 + Z2* 
40: GOTO 970 

950 PRINT"0 TEMPO ESTA FRIO E U 
MIDO" 

960 DC1)=200+Z1*25:D(2)-100+Z2* 
40 

970 PRINT "DEMANDA DE BATATAS AS 
SADAS-" ;D(1) 

980 PRINT "DEMANDA DE LATAS DE C 
OCA"" ; D (2) 

1000 PRINT-JOGADOR GANHO CUST 
OS LUCRO" 
1010 GOSUB 1600 
1020 NEXT K 

1030 FOR 1-1 TO 2000:NEXT 
1090 CLS 

1100 PRINT" RESULTADO FINAL APO 

S 10 DIAS " : PRINT : PRINT 

1110 PRINT" JOGADOR" . " LUCRO TOTA 

L" 

1120 FOR J-l TO N 

1130 PRINT J.TT(J):NEXT J 

1140 PRINT : PRINT : PRINT"F1M DE J 

_OGO" 

I 1150 END 




1400 PRINT : PRINTTAB (5) ; " aeu ped 

ido por favor":PRINT 

1410 FOR J-l TO N 

1420 PRINT" JOGADOR" ; J ! PRINT 

1430 INPUT"NUMERO DE BATATAS" : O 

U.J) 

1440 INPUT"NUMERO DE LATAS DE C 

OCA COLA";0(2,J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J-l TO N 

1610 FOR 1-1 TO 2 

1620 L=0{I.J) 

1630 IF D (I } <L THEN L-D(I) 

1650 RV(I)=C2(I)*L 

1670 TC(I)-C1|I)*0(I,J) 

1680 IF D(IX = L THEN RC(I)-TC(I 

)-C3(I)M0(I.J)-D(I)> 

1700 P(I)-RV(I)-TC<I) 

1710 TP(I,J)-TP(I,J)+P(I) 

1720 NEXT I 

1730 TT(J)-TP{l.J)+TP(2.J)-200 

1740 E-RV(1)+RV(2) 

1750 C-TCÍl)+TC(2)+20 

1760 P-P(l)*P{2)-20 

1770 PRINTUSING" t IM-tt 

MM II ttt. íl"; J.E.CP 



O programa focaliza os lucros e per- 
das de uma empresa do setor de alimen- 
tos, oferecendo ao usuário a opção de 
atuar sozinho ou de negociar com até 
cinco outros "comerciantes". 

O usuário também pode jogar no lu- 
gar de outras pessoas, tomando decisões 
diferentes conforme o papel assumido 
— o que lhe dá a oportunidade de com- 
parar os resultados que obtém, agindo 
cautelosamente ou se arriscando em lan- 
ces ousados. Tendo feito sua escolha, ele 
deve fornecer o número de participan- 
tes ao programa. 



Cada jogador administra um bar que 
vende batatas assadas e latas de refrige- 
rante. A demanda por um ou por outro 
produto depende do clima. Se está fa- 
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zendo frio, aumenta a procura pelas ba- 
tatas; se faz calor, compra-se mais re- 
frigerante. Infelizmente, o gerente pre- 
cisa adquirir o estoque na véspera, des- 
conhecendo, portanto, o tempo que vai 
fazer. Pode contar, até certo ponto, com 
o serviço de meteorologia, que costuma 
acertar, em média, 70% de suas previ- 
sões. Após dez dias de compras e ven- 
das, o administrador que obtiver maior 
lucro vence. 



PREVISÕES 



A primeira parte do programa (até a 
linha 650) cuida das variáveis que con- 
trolam a tela e as condições de compra 
e venda. Você paga um aluguel de $ 20 
por dia. As batatas custam $ 0,10 ca- 
da e são vendidas a $ 0,50. G refrige- 
rante custa S 0, 1 5 para compra e $ 0,25 
para venda. As sobras do estoque de 
um dia para outro são vendidas a um 
preço mais baixo — $ 0,01, as batatas 
e S 0,12, o refrigerante. Cada partida 
dura dez dias. 

O indicador da demanda de cada pro- 
duto, conforme o clima, está na tabela 
da página 1 185. Aqui entra um elemen- 
to importante do modelo. Naturalmen- 
te, os dias melhores para a venda de ba- 
tatas assadas são os piores para a ven- 
da de refrigerantes e vice-versa. Contu- 
do, há uma demanda suficiente para 
manter as vendas de ambos os produ- 
tos. Tudo depende de como aproveita- 



mos as informações fornecidas pelo ser- 
viço de meteorologia, sempre tendo em 
mente, porém, que as previsões não são 
totalmente confiáveis. As probabilida- 
des para um dia quente e seco são de- 
terminadas nas linhas 710 e 720, e de- 
pois utilizadas para simular as condições 
do tempo (linhas 810 a 824). 



VARIÁVEIS ALEATÓRIAS 



As linhas 770 a 800 contêm um mé- 
todo sofisticado para gerar variáveis 
aleatórias de distribuição normal. Elas 
são empregadas para simular a deman- 
da na linha 840. A linha 770 cria duas 
variáveis aleatórias (Ul e U2), proces- 
sadas por meio de três fórmulas mate- 
máticas. Na linha 780, Ul é invertida e 
depois elevada ao quadrado; em segui- 
da, calculamos o seu logaritmo natural 
e a raiz quadrada deste Vi, A linha 790 
faz V2 igual ao co-seno de uma circun- 
ferência de raio 12. e V3 igual ao seno 
dessa circunferência. VI, V2 e V3 so- 
frem um processamento adicional na li- 
nha 800 para resultar nas variáveis nor- 
mais Zl e Z2. 

As linhas restantes do programa cui- 
dam da entrada e da impressão dos re- 
sultados na tela. 

Para ser bem-sucedido neste jogo é 
preciso cuidar de cada centavo. Os gas- 
tos podem ser assustadoramente próxi- 
mos dos ganhos — mesmo após dez dias 
de atividade. 
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AVÂLANCHEs 



Até agora, Willie só podia pular 
verticalmente. A rotina deste artigo 
vai torná-lo capaz de saltar à 
frente, ultrapassando os obstáculos 
como um ágil cabrito montês. 



Esta é a parte final da série de roti- 
nas que cuidam dos movimentos de Wil- 
lie. Finalmente, veremos nosso persona- 
gem não só subir a encosta e se desviar 
das pedras, como também saltar sobre 
os buracos e as cobras. 
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SAINDO DO CHAO 




DA SEGURANÇA 


■ 


SALTO A FRENTE 


■ 


AVANÇANDO POSIÇÕES 


■ 


SUBIDA DA ENCOSTA 


■ 


ALTERAÇÕES DO 


■ 


TERRA FIRME 




ESCORE 


■ 


CHECAGEM 


■ 


AJUSTES FINAIS 



Quando o programa chama esta ro- 
tina pela primeira vez, o acumulador 
contém 129. Esse valor é armazenado na 
posição 57335 da memória quando as te- 
clas M e N são pressionadas juntas. 



Antes de mais nada, esta rotina veri- 
fica se o acumulador contém o valor 
129. O número também poderia ser 130, 
131 ou 132 — e, se qualquer um deles 
estiver presente, os comandos cp 129 e 
jr n/.mfb desviam o programa para o 
rótulo mFb. Na primeira vez que se cha- 
ma a rotina, porém, o número no acu- 
mulador é 129. 

A tarefa seguinte consiste em incre- 
mentar o acumulador e carregá-lo de 
volta em 57335. A instrução Id 
hl,<57332) transfere para a posição de 
Willie de 57332 para o par HL. O par 
DE é carregado com 22561 e adiciona- 
do em HL, para que obtenhamos a cor 
da posição adiante dos pés de Willie. A 
instrução Id a.(hl> carrega no acumula- 
dor o código dessa cor. Em seguida, o 
código é comparado com 43, a cor da 
cobra. Se esse valor é encontrado, Wil- 
lie está saltando sobre a língua da co- 
bra, e, fatalmente, leva uma picada e 
morre. A instrução jp z.mdy desvia en- 



tão a rotina para o rótulo mdy, que pro- 
videncia a eliminação de Willie. 

Se ele não morreu, o programa com- 
para a cor da posição adiante de seus pés 
com 44, a cor da terra. Se não há essa 
cor na frente de Willie, a instrução jr 
nz.mfa desvia o programa para a roti- 
na mia. Caso contrário, a posição de 
Willie é diminuída de um. 

Em mfa, a posição de Willie é colo- 
cada em HL. DE é carregado com 32 e 
subtraído de HL, para mover o apon- 
tador um caractere acima na tela. Esse 
valor é colocado de volta em 57332. 

O par BC é carregado com 57072, o 
endereço inicial para os dados de uma 
das figuras dc Willie no salto para a 
frente. O par DE é carregado com 515, 
para especificar que um bloco dois por 
três será impresso — 2 x 256 + 3 = 515. 
A cor de Willie — 40, azul sobre ciano 
— é carregada com A. e a rotina de im- 
pressão é chamada. 

Na próxima vez que ela for chama- 
da, o acumulador conterá 1 30. Logo, o 



processador pulará a primeira parte, 
executando-a a partir do rótulo mfb. 
Essa pequena rotina começa com um 
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leste. O conteúdo do acumulador é com- 
parado com 132. Se esse valor está pre- 
sente, a rotina mfd é chamada. Portan- 
to, caso o acumulador contenha 1 30 ou 
131, a rotina acionada é a mfb. 

A primeira coisa que mfb faz é incre- 
mentar A e carregar o resultado de vol- 
ta em 57335. 

Em seguida, a variável da caminha- 
da é carregada da posição de memória 
57334 para o acumulador. Com isso, in- 
forma-se ao processador qual das duas 
figuras de Willie é necessária. 

O conteúdo do acumulador é compa- 
rado com 1. Se 1 está presente, o pro- 
grama salta para o rótulo mfc e impri- 
me a figura de Willie com as pernas 
abertas. Antes que ela seja impressa, 
qualquer vestígio da figura anterior de- 
ve ser apagada. Para isso, a posição de 
Willie é transferida de 57332 para o par 
HL. O par BC é carregado com 16384, 
o início da tela. A é carregado com 45, 
para selecionar a cor ciano sobre ciano, 
e o par^DE, com 515, para selecionar um 
bloco dois por três — 2 x 256 + 3 = 
515. A rotina de impressão de bloco em 
58970 é chamada, apagando a figura an- 
terior de Willie. 

HL é incrementado, movendo o 
apontador de tela para a próxima posi- 
ção. Esse valor é colocado de volta no 
apontador do endereço 57332, ajustan- 
do-o também. BC é carregado com 
57000, que é o início dos dados para a 
figura de Willie com as pernas juntas. 
A é ajustado com 40 — cor azul sobre 
ciano. DE é ajustado com 258 — o blo- 
co de um por dois caracteres. 

Impressa a figura de Willie, A é car- 
regado com I . Esse valor é armazenado 
em 57334, para que, na próxima vez, a 
outra figura seja impressa. 



WILLIE AVANÇA 



Quando a rotina for chamada nova- 
mente, a variável da caminhada em 
57334 conterá 1 e o processador irá di- 
retamente para o rótulo rafe. Nessa ro- 
tina, o par H L é carregado mais uma vez 
com a posição de Willie. BC é carrega- 
do com 57016, o endereço inicial para 
os dados da figura do personagem com 
as pernas abertas. A é ajustado de no- 
vo com 40, e DE, com 515 — a figura 
de Willie com as pernas abertas ocupa 
um bloco de dois por dois. A rotina de 
impressão é chamada, e Willie ê impres- 
so com as pernas abertas. 

Observe que HL não foi incrementa- 
do nesta parte da rotina porque Willie 
ocupa, agora, duas posições. Ele avan- 
çou, portanto, aproximadamente meta- 
de de um caractere. 



Uma vez que a figura tenha sido im- 
pressa, o apontador de tela em HL e 
57332 é incrementado, fazendo com que 
Willie efetivamente avance. 



SUBIDA DA ENCOSTA 



Em seguida, devemos verificar se 
Willie está pisando na encosta ou não. 
DE é carregado com 22592, que é adi- 
cionado à posição de tela em HL. Com 
isso, ele passa a apontar para a cor da 
posição abaixo dos pés de Willie. A ins- 
trução Id a, (hl) carrega essa cor no acu- 
mulador, onde é comparada com 44. Se 
a cor da encosta não se encontra em A, 
Willie está no espaço aberto — e a ins- 
trução jr nz.mcf manda o processador 
para o rótulo mcf. 

Mas.se o acumulador contém a cor 
da encosta, Willie conseguiu subir um 
aclive, merecendo um número adicional 
de pontos. É preciso, então, interrom- 
per o salto e atualizar o escore. Para is- 
so, 0 é carregado em A e armazenado 
no endereço 57335. O valor 3 é carrega- 
do em A e 5 em B. Esses parâmetros se- 
rão utilizados por outra rotina, sei — ou 
incremento do escore. Na verdade, adi- 
cionaremos o valor 50 ao escore. O nú- 
mero 5 será adicionado à coluna das de- 
zenas, que é a terceira a partir da esquer- 
da. Em seguida, a rotina sei é chamada 
— como ela ainda não foi digitada, co- 
locamos um ret provisório em seu ende- 
reço inicial. 

Uma vez marcados os pontos, A é 
carregado com 0 e armazenado em 
57334, quer Willie esteja pisando na en- 
costa ou não. Indica-se, assim, que a 
próxima figura a ser impressa é a do per- 
sonagem com as pernas juntas. 



TERRA FIRME 



Quando todas as figuras de Willie sal- 
tando já tiverem sido exibidas na tela, 
a variável de saito em 57335 terá o va- 
lor 132. Portanto, na próxima vez que 
a rotina de movimentação for chama- 
da, o programa irá direto para a última 
rotina que começa com o rótulo mfd. 
Essa rotina começa igualando a variá- 
vel de salto a 0. O valor 0 é carregado 
também em A e armazenado em 57335. 
A seguir, a posição de Willie na tela é 
decrementada. 

O par BC é carregado com 16384, en- 
dereço do início da tela. A é igualado 
a 45, o código de ciano sobre ciano, e 
o par DE traz 5 1 4 para um bloco de dois 
por dois. 

Chamando a rotina de impressão de 
bloco, apagaremos Willie da tela. O par 



DE é carregado com 33 e adicionado em 
HL. Com isso, movemos o apontador 
uma linha para baixo, colocando Wil- 
lie de novo em terra firme. O resultado 
é armazenado em 57332. 

Finalmente, a rotina de movimenta- 
ção é acessada pela instrução jp. Essa 
rotina imprimirá Willie novamente de pé 
em sua posição sobre o solo, e pesqui- 
sará o teclado. 



D 




10 O HG 20321 
20 MFJ CMPA #129 
30 BNE MFB 
40 INC 18261 
50 LDX 18249 
60 LEAX 290.X 
70 LDA ,X 
80 CMPA »S57 
90 LBEQ MDY 
100 JSR MFZ 
110 LDX 18249 
120 LEAX -255.X 
130 STX 18249 
140 LDU #17814 
150 JSR CHARPR 
160 LEAX 254.X 
170 LDU 117846 
180 JSR CHARPR 
190 KTS 

200 MFB CMPA #130 
210 BNE MFC 
220 INC 18261 
230 JSR MFZ 
240 LDX 18249 
250 LEAX -255.X 
260 STX 1B249 
270 LDU #17870 
280 JSR CHARPR 
290 LEAX 254.X 
300 JSR CHARPR 
310 LEAX 254.X 
320 JSR CHARPR 
330 LDX 18249 
340 LEAX 864, X 
350 LDA ,X+ 
360 CMPA #SFF 
370 BEQ MFF 
3B0 LDA ,X 
390 CMPA #SFF 
400 BEQ MFF 
410 RTS 
420 MFF LDA #4 
430 LDB #5 
440 JSR SCI 
450 RTS 

460 MFC CMPA #131 
470 BNE MFD 
480 INC 18261 
490 JSR MFZ 
500 LEAX 254.X 
510 LDU #1536 
520 JSR CHARPR 
530 LDX 18249 
540 LEAX 257.X 
550 STX 1B249 
560 LDU #17814 
570 JSR CHARPR 
580 LEAX 254.X 
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600 
610 
620 
630 
640 
650 
66 0 
670 
660 

69 0 



8 I D 
B2< 
B30 

8-10 
850 
360 
B/O 
BttO 
«90 
900 



LDU 117846 
JSR CHARPR 
HTS 

MFD CMPA |132 
BNE MFE 
JSR MFZ 
LDX 18249 
PSHS X 
LEAX 512, X 
LOY ,X 
PULS X 
CMPY 135555 
BNE MFE 
LEAX l.X 
STX 18249 
MFE CLR 18261 
CLR 18251 
LDX 18249 
LDll 117774 
JSR CHARPR 
LEAX 254.X 
JSR CHARPR 
RTS 

MFZ LDX 18249 
LDU |1!í36 
JSR CHARPR 
LEAX 2 54.X 
JSR CHARPR 
HTS 

CHARPR EQU 19402 
SCI EOU 20751 
MDY EQU 20126 



qúência, a segunda pane desta rotina se- 
rá chamada na próxima vez. 

A instrução LDX 18249 transfere a 
posição de Willie de 18249 para X. O 
número 290 é adicionado para indicar 
o byte adiante dos pés do personagem. 
LDA ,X carrega o conteúdo desse byte 
no acumulador e a instrução CMPA 
#$57 compara-o com $57, a cor gráfi- 
ca para a língua da cobra. Se houver es- 
sa cor na frente de Willie no momento 
do salto, ele será picado e morrerá. Ca- 
berá à instrução LBEQ MDY comandar 
a execução da rotina da morte. 

Se nosso personagem ainda está vi- 
vo, o processador vai pára a rotina 
MFZ, que apaga os dois caracteres abai- 
xo de Willie — para que os pés da figu- 
ra anterior não permaneçam ali. 

A posição de Willie, transferida ou- 
tra vez de 18249 para X, é subtraída de 
255, para mover a posição um caracte- 
re para cima. A nova posição na tela é 
armazenada de volta em 18249. 

O registro U é então carregado com 
17814. endereço inicial para os dados da 
figura com as pernas abertas. Lembre- 
se de que U c usado como apontador de 
dados pela rotina CHARPR. Essa roti- 



na, que utiliza os dados como pilha do 
usuário, é chamada; X é somado a 254, 
movendo-se para a posição inicial da 
metade inferior de Willie. U é carrega- 
do com 17846, o inicio dos dados para 
a metade inferior da figura, e CHARPR 
é chamada mais uma vez, imprimindo 
Willie sobre a encosta. 



Quando a rotina de movimentação 
for chamada de novo, o acumulador 
conterá 130, e a rotina MFB será exe- 
cutada. Nas chamadas posteriores, o 
acumulador conterá um valor maior e 
as instruções CMPA # 130 e BNE MFC 
desviarão o fluxo de processamento pa- 
ra a próxima parte do programa. Como 
sempre, a primeira coisa que a rotina faz 
é incrementar o conteúdo de 18261. De- 
pois, salta para MFZ, onde a metade in- 
ferior de Willie é apagada. 

A posição seguinte do personagem é 
carregada em X e subtraída de 255 uma 
vez mais. Isso move o apontador de te- 
la um caractere acima. O registrador U 
egado com 17870 e CHARPR é 



Quando o processador executar esta 
rotina pela primeira vez, o acumulador 
conterá o número 129. Esse número é 
armazenado na posição de memória 
18261 pela primeira parte da rotina de 
movimentação de Willie, quando M e N 
foram pressionadas simultaneamente. 
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chamada três vezes. Entre cada chama- 
da, X é incrementado com 254. Impri- 
me-se, assim, uma nova figura dc Wil- 
lie, em três caracteres. Embora sua al- 
tura permaneça a mesma, o personagem 
ocupa um caractere adicional porque foi 
deslocado meio caractere para cima. 



Willie recebe mais pontos quando se 
desvia de uma pedra, pulando por cima 
dela. É necessário, portanto, verificar se 
há uma pedra sob a figura. 

A posição de Willie é transferida de 
18249 para X, sendo somada a 864, de 
modo a indicar a posição imediatamen- 
te abaixo. A é carregado com o valor do 
byte da tela apontado por X, e esse re- 
gistrador c incrementado. 

O byte da tela no registrador A é 
comparado com SFF, a cor gráfica da 
pedra. Se ela estiver presente, o proces- 
sador vai para o rótulo MFF. Caso con- 
trário, O próximo byte é carregado e 
comparado. Se a pedra estiver ali, o pro- 



cessador passa para o rótulo MFF; se 
não, ele retorna. 

A rotina MFF atualiza os pontos. A 
é carregado com 4, para indicar o dígi- 
to que será ajustado — o quarto a par- 
tir da esquerda (dezenas). B é carrega- 
do com 5. A seguir, o programa salta 
para a rotina SCI, que tem a função de 
adicionar 50 pontos ao escore. Como 
ainda não digitamos essa rotina, convém 
colocar RTS em sua posição inicial, pa- 
ra evitar um erro no programa. 



Na próxima vez que a rotina de mo- 
vimentação é chamada, o acumulador 
contém 131 . Caso esse valor não esteja 
presente, o programa é mandado para 
o rótulo MFD, pois o salto de Willie se 
encontra numa etapa mais adiantada. 

Novamente, a primeira coisa que a 
rotina faz é incrementar a variável de 




salto em 1 826 1 . Quando a rotina voltar 
a ser chamada, o processador irá execu- 
tar diretamente a parte seguinte. 

Na sequência, o programa salta pa- 
ra a rotina MFZ, que apaga os caracte- 
res superior e intermediário de Willie. 
Seus pés serão apagados com um carac- 
tere do céu pela próxima rotina. Esse 
trabalho de limpeza adicional precisou 
ser feito porque Willie tinha três carac- 
teres de altura na última vez. 

A posição em X, que foi ajustada du- 
rante a execução da rotina MFZ, é in- 
crementada com 254, movendo o apon- 
tador para os pés de Willie. O aponta- 
dor de dados em U é carregado com 
1536, o endereço do céu limpo, no can- 
to superior esquerdo da tela. CHABPR 
é chamada e imprime o caractere de céu. 

A posição anterior de Willie é carre- 
gada de 18249 para X e adicionada a 257, 
movendo-se um caractere para baixo. 



O apontador de dados em U é nova- 
mente carregado com o endereço inicial 
da figura de Willie com as pernas aber- 
tas em 17814. A rotina CHARPR im- 
prime sua metade superior. O aponta- 
dor de tela em X é incrementado, mo- 
vendo-se para a linha de baixo. U é car- 
regado com o endereço dos dados para 
a metade inferior da figura e CHARPR 
é chamada, realizando a impressão. 



O valor 132 no acumulador desvia o 
processador para a rotina que faz Willie 
pisar novamente em terra firme. Se não 
houver esse valor em A, o processador 
vai para o rótulo MFE — o que nunca 
deve ocorrer. Um conteúdo de A menor 
que 132 indica que o processador ficou 
executando alguma das rotinas anterio- 
res. Isso acontece se a variável de salto 
em 18261 — endereço de onde vem o va- 
lor de A — ainda não foi incrementada. 
Temos, assim, um bom dispositivo de 
prevenção de erros: caso haja um valor 
incorreto em 18261, o processador sal- 
ta diretamente para a instrução de lim- 
peza, que reajusta esse endereço com 0. 

Se o número em A é 132, o processa- 
dor continua com esta rotina. Inicial- 
mente, ele vai para a rotina MFZ, que 
apaga a última figura de Willie. Em se- 
guida, a posição de Willie é carregada 
de 18249 para X. O apontador de tela 
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em X é guardado na pilha, e somado a 
512, passando a apontar para o carac- 
tere imediatamente abaixo dos pés de 
Willie. Os dois bytes são carregados no 
registrador Y e o apontador de tela ori- 
ginal é recuperado da pilha de volta pa- 
ra X. 

O conteúdo de Y é comparado com 
$5555, o valor de um espaço amarelo na 
tela — ou seja, de um buraco. Se esse 
valor não estiver presente, o processa- 
dor vai para o rótulo MFE 

Se há um buraco ali, nosso persona- 
gem precisa de ajuda. X é então incre- 
mentado e colocado de volta em 18249, 
onde está o apontador de posição. 

Como você notará, nenhuma verifi- 
cação é feita quando Willie volta ao so- 
lo num nível mais alto. Depois de saltar 
e avançar, ele sempre aterrissa num ní- 
vel mais alto. 



ld (-5202) .a 
ld hl. (62407) 
ld de, (-5205) 
add hl .de 
ld de, 33 

add hl ,de 

call 74 

cp 36 

jp 2,54848 



ir nz.ma 

ld hl . (-5205) 

dec hl 

ld (-5205) ,hl 
na ld hl , (-5205) 
ld de, (62407) 
add hl.de 

ld de. 32 



O salto agora está completo. Preci- 
samos, no entanto, limpar o contador 
de salto e a posição que contém o tipo 
de figura que deve ser impressa. Como 
essas posições são ajustadas com 0, o 
processador irá para a primeira parte da 
rotina de movimentação. 

A seção do programa apresentada 
neste artigo finaliza imprimindo Willie 
de pé, em sua nova posição. X é carre- 
gado com a posição contida em 18249 
e U, com a contida em 17774. A rotina 
CHARPR é chamada duas vezes. A úl- 
tima rotina, MFZ, é chamada para apa- 
gar a figura. X é carregado com a posi- 
ção de Willie em 18249 e U é carregado 
com 1536, que equivale a um espaço 
vazio. 

Para testar o programa, digite as se- 
guintes linhas: 

10 POKE 30000, 57:POKE 20847,57: 
POKE 20751,57 
20 EXEC 19426 

30 FOR L-l TO 8:POKE 18261,129: 
FOR J-l TO 5: EXEC 19902 
40 POR K-l TO 100:NEXT K,J,L 
50 GOTO 50 



O programa destinado ao MSX foi 
dividido em duas partes para facilitar a 
montagem. 




400 
410 
420 

430 
440 

450 

4 60 

470 
460 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 

630 



puah hl 

call 77 

Id P de,32 
abe hl , de 
ld a, 6 
puah hl 
call 77 
pop hl 
dec hl 
ld a, 4 
call 77 
ld hl, (-5205) 
ld de, 32 
abe hl.de 
ld (-5205). hl 



ld (-5202) ,a 
ld a, (-5203) 
cp 1 

jp 2,55194 
ld hl , (-5205) 



640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
7B0 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 



ld de, (62407) 
add hl.de 
ld a. 255 
puah hl 
call 77 

ld de. 32 
add hl.de 
ld a, 255 
push hl 
call 77 



i hl 
hl 



ld a.l 
puah hl 
call 77 

ld P de,32 
sbe hl , de 
ld a, 0 
call 77 
ld hl , (-5205) 
Inc hl 

ld (-5205) ,hl 
ld a,l 

ld (-5203) ,a 
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Complete agora o programa, digitan- 
do as seguintes linhas: 

10 org 35194 

20 mc ld hl, (-5205) 

30 ld de, (62407) 

40 add hl.de 

50 ld a, 4 

60 puah hl 

70 call 77 

BO pop hl 

90 inc hl 

100 ld a, 6 

110 push hl 

120 call 77 

130 pop hl 

140 ld de, 32 

150 add hl .de 

160 ld a. 7 

170 puah hl 

180 call 77 

190 pop hl 

200 dec hl 

210 ld a. 5 

220 call 77 

230 ld hl , (-5205) 

240 inc hl 

250 ld (-5205). hl 

260 ld de. (62407) 

270 add hl ,de 

280 ld de, 64 

290 add hl .de 

300 call 74 

310 cp 52 

320 jr nz.HB 

330 ld a.O 

340 ld (-5202) ,a 

350 ld a. 3 

360 ld b.5 

370 call 57000 

380 bb ld a.O 

390 ld (-5203), a 

400 ret 

410 md ld a.O 

420 ld (-5202),» 

430 ld hl, (-5205) 

440 ld de, (62407) 

450 add hl ,de 

460 puah hl 

470 ld a, 255 

480 call 77 

490 pop hl 

500 dec hl 

510 ld a, 255 

520 puah hl 

530 call 77 

540 pop hl 

550 ld de, 32 

560 add hl.de 

570 ld a. 255 

580 push hl 

590 call 77 

600 pop hl 

610 inc hl 

620 ld a. 255 

630 call 77 

640 ld hl . (-5205) 

650 ld de, 32 

660 add hl ,de 

670 ld (-5205) .hl 

680 jp 54603 

690 ret 

700 end 



Na primeira vez que o processador 
chama a rotina, o acumulador contém 
129. Esse número é armazenado na po- 
sição de memória - 5202 quando as te- 
clas M e N são pressionadas juntas. 



SAINDO DO CHÃO 



Antes de mais nada, a rotina verifi- 
ca se o vaJor que está no acumulador é 
129. O número em A poderia ser tam- 
bém 130, 131 ou 132. Caso um desses 
números esteja presente, as instruções cp 
129 e jr nz.mb desviam o programa pa- 
ra o rótulo mb. Porém, quando a roti- 
na é chamada pela primeira vez, o nú- 
mero no acumulador é 129. 

Depois dessa checagem, o acumula- 
dor é incrementado e carregado de vol- 
ta em - 5202. A seguir, o endereço ini- 
cial da Tabela de Nomes da VRAM é 
carregado em HL. A posição de Willie 
na tela é transferida de - 5205 e - 5204 
para DE e somada em HL. Adiciona-se 
o valor 33 nesse par de registros através 
de DE. Com isso, HL passa a apontar 
para o endereço na TN ocupado pelo có- 
digo do padrão que está adiante dos pés 
de Willie. A rotina 74 da ROM é cha- 
mada, devolvendo a A o conteúdo da 
posição da VRAM apontada por HL — 
ou seja, ela faz a leitura na VRAM. 

O código do padrão que se encontra 
adianie dos pés de Willie é comparado 
com 36, o código da língua da cobra. Se 
esse valor esiiver presente, Willie fatal- 
mente morrerá, pois está saltando sobre 
a língua da cobra e será picado. A ins- 
trução jp z, 54848 manda enião o pro- 
cessador para a rotina da morte, apre- 
sentada anteriormente com o rótulo 
mre. Se Willie não morreu, o processa- 
dor compara o código do padrão à fren- 
te de seus pés com 52, que é o padrão 
da encosta. Se o valor não estiver pre- 
sente, a instrução jr nz.ma desvia o pro- 
grama para a rotina ma. Caso contrá- 
rio, a posição do personagem em - 5205 
é decrementada. 

A rotina ma coloca a posição de Wil- 
lie em HL. DE é carregado com o ende- 
reço inicial da TN da VRAM e somado 
em HL. Esse valor é guardado na pilha. 
Em seguida, o número 32 é somado em 
HL através de DE, e o apontador passa 
a indicar os pés na figura anterior de 
Willie. O número 255, código do padrão 
de céu, é carregado em A. O apontador 
em HL é preservado na pilha e a rotina 
77 da ROM é chamada, escrevendo o 
valor de A no endereço da VRAM apon- 
tado por HL. Apagamos, assim, os pés 
da figura anterior de Willie. 

O último valor de HL é recuperado 
da pilha e incrementado. A é carregado 



com 255 e a rotina 77 é novamente cha- 
mada. Procedemos dessa maneira por- 
que a posição de Willie poderia ter sido 
decrementada no começo da rotina — 
a operação nos dá a certeza de que os 
pés de Willie foram apagados. 

O apontador iniciai é recuperado da 
pilha. Em seguida, os padrões 4, 5, 6 e 
7 são impressos, formando a figura de 
Willie com as pernas abertas. Acompa- 
nhe o apontador em HL e verifique co- 
mo isso foi feito. A posição de Willie em 

- 5205 e - 5204 é atualizada, já que foi 
deslocada uma posição acima. Depois, 
o programa retorna partindo desse pon- 
to da rotina. 

Quando a rotina for chamada outra 
vez, o acumulador conterá 130. O pro- 
cessador pula, então, a primeira parte, 
indo para o rótulo mb. 

Essa pequena rotina começa verifi- 
cando o conteúdo do acumulador. Se ele 
contiver 1 32, a rotina md é chamada; se 
contiver 1 30 ou 1 3 1 , o processador con- 
tinua executando mb. A primeira coisa 
que essa rotina faz é incrementar A e 
carregar o resultado de volta em - 5202. 
Em seguida, a variável da caminhada é 
carregada no acumulador. Isso indica ao 
processador qual das figuras de Willie 
é necessária. 

O conteúdo do acumulador é compa- 
rado com 1 . Se esse valor está presente, 
o processador vai para o rótulo mc, em 
55 194, e imprime a figura de Willie com 
as pernas abertas. Se a variável é 0, o 
processador, imprime a figura de Willie 
com as pernas juntas. 

Antes de imprimir qualquer uma das 
figuras, porém, devemos apagar todos 
os vestígios da imagem anterior. Para is- 
so, a posição de Willie é transferida de 

- 5205 e - 5204 para HL. DE é carre- 
gado com o endereço inicial da TN da 
VRAM e somado em HL. A é carrega- 
do com 255, o código do padrão de céu. 
O apontador HL é guardado na pilha e 
a rotina 77 é chamada, apagando o 
quarto superior esquerdo da figura de 
Willie. O apontador é recuperado da pi- 
lha e somado com 32. A é carregado 
com 255. O apontador é guardado na pi- 
lha e a rotina 77 é chamada, apagando 
o quarto inferior esquerdo da figura. 
Com isso, apagamos a metade esquer- 
da da antiga figura de Willie. A outra 
metade desaparece com a impressão da 
nova figura — desta vez, com as pernas 
abertas. 

O apontador é recuperado da pilha 
e incrementado. A é carregado com I, 
o código de um dos padrões da figura. 
O apontador é novamente colocado na 
pilha e a rotina 77 é chamada. Finali- 
zando, o apontador é recuperado da pi- 
lha e subtraído de 32, movendo-se um 
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caractere para cima. A é carregado com 
0, o código do outro padrão da figura. 
A rotina 77 é chamada e Willie é impres- 
so com as pernas juntas. 

A posição de Willie é transferida pa- 
ra HL, decrementada e devolvida em 
- 5205 e - 5204. O acumulador, carre- 
gado com I , é armazenado em - 5203, 
para que, na próxima vez, a outra figu- 
ra de Wiílie seja impressa. 



Quando a rotina for chamada de no- 
vo, a variável da caminhada conterá 1 
e o processador irá diretamente para o 
rótulo mc. Nessa rotina, a figura de Wil- 
lie com as pernas abertas é impressa da 
mesma maneira que na rotina ma, só 
que sua posição foi incrementada — ou 
seja, Willie avança no ar! 

Os padrões 4, 5, 6 e 7, que compõem 
a figura do personagem com as pernas 
abertas, são colocados na TN (na leia) 
pela rotina 77, que é chamada quatro ve- 
zes. Em seguida, a posição de Willie em 
- 5205 e - 5204 é colocada em HL, in- 
crementada e devolvida aos endereços, 
o que faz a figura avançar mais uma 
posição. 



Depois disso, devemos verificar se 
nosso personagem está pisando na en- 
costa ou não. Lembre-se de que HL já 
contém a posição de Willie. DE é carre- 
gado com o endereço inicial da TN e so- 
mado em HL. O número 64 também é 
somado em HL através de DE. O apon- 
tador está indicando a posição sob os 
pés de Willie. A rotina 74 é chamada e 
faz a leitura da VRAM nessa posição. 
O valor é comparado com 52, o código 
da encosta. Se esse valor estiver presen- 
te, Willie subiu um lance na montanha. 
Para interromper o salto, coloca-se 0 em 
- 5202. O número 3 é carregado em A 
e o 5, em B. Esses parâmetros serão uti- 
lizados por outra rotina, chamada na se- 
quência, que realiza a contagem de pon- 
tos; o valor 50 será adicionado no esco- 
re. Mas, como ainda não digitamos es- 
sa rotina, convém colocar uma instru- 
ção ret provisória nesse endereço, o que 
podemos fazer por meio do comando 
BASIC POKE 57000.201. 

Se o padrão da encosta não estiver 
presente, as intruções anteriores são ig- 
noradas e o processador continua a par- 
tir do rótulo ms. 

A é carregado com 0 e armazenado 
em -5203. Isso é feito independente- 
mente de Willie estar pisando na encos- 
ta ou não, e indica que a próxima figu- 



ra a ser impressa é a do personagem com 
as pernas juntas. 



Quando todas as outras figuras de 
Willie já tiverem sido impressas na te- 
la, a variável do salto terá o valor 132. 
Assim, quando a rotina de movimenta- 
ção for chamada novamente, o proces- 
sador irá direto para a última rotina, 
que começa no rótulo md. 

Em primeiro lugar, md ajusta a va 
riável de salto com 0. Esse valor é car- 



regado no acumulador e armazenado 
em -5202. Em seguida, a figura ante- 
rior de Willie com as pernas abertas é 
apagada — para isso, coloca-se o pa- 
drão 255 nas quatro posições, por meio 
da rotina 77. A posição de Willie é car- 
regada em HL e somada com 32 atra- 
vés do par DE. Willie volta, com isso, 
a pisar em terra firme. O resultado é ar- 
mazenado em -5205 e -5204. 

Finalmente, a instrução jp chama a 
rotina de movimentação. Essa rotina, 
além de imprimir a figura de Willie de 
pé sobre o solo, pesquisará o teclado 
mais uma vez. 




FIGURAS 
TRIDIMENSIONAI 



Com a técnica ensinada neste artigo, 
você poderá exibir na tela de seu micro 
diferentes objetos geométricos sólidos. 
Trace o perfil da figura escolhida e 
deixe a máquina fazer o resto por você. 




fixando-a quando atingir uma posição 
considerada satisfatória. fissa técnica, já 
empregada cm outros programas de IN- 
PUT, permite a visualização dc cada 
uma das etapas do desenho. 

Foi estabelecido um limite de vinte re- 
las para a definição do perfil desejado. 
Na maioria dos casos, onde se utili/am 
apenas cinco ou seis retas, essa quanti- 
dade é mais do que suficiente. Porém, 
se você quiser traçar curvas, lerá que 
consl ruí-las com várias relas bem peque- 
nas, podendo chegar perto daquele 



das de todas as linhas. Quando você aca- 
ba o desenho, ele faz a rotação de cada 
linha ao redor do eixo central, dc 18" 
em 18". Executa cm vinte etapas a ro- 
tação completa. O ângulo de visão já é 
levado cm conta nesta fase; os círculos 
aparecem mais achatados à medida que 
nos aproximamos dos 90". 

Assim que o desenho fica pronto, o 
computador espera que o usuário pres- 
sione a barra de espaços para escolher 



No Specirum e também no TKS- 
Color, você poderá ver o objeio execu- 





Desenhar objetos em irês dimensões, 
mesmo que simétricos, é uma tarefa di- 
fícil — mas não para quem tem um mi- 
crocomputador. Com o programa apre- 
sentado neste artigo, tudo o que você 
tem a fazer é desenhar o perfil dc um 
dos lados da figura. A máquina comple- 
tará o trabalho, inclusive preenchendo 
as faces do sólido com traços que per- 
mitirão uma melhor visualização. 

A principal função do programa é 
promover a rotação do perfil que você 
definiu em torno de um eixo central. 
Pode-se, portanto, desenhar qualquer 
figura que possua seções circulares — 
como vasos, garrafas, candelabros, co- 
pos, maçãs, laranjas, enfim, uma enor- 
me variedade de objetos. 

Como o programa roda a linha ori- 
ginal, a figura obtida é denominada só- 
lida de revolução. As versões para to- 
dos os micros possibilitam que se veja 
o produto final de qualquer ângulo. As 
do Spectrum e do TRS-Color realizam 
uma pequena animação, girando a figu- 
ra em torno de seu eixo. 



Para desenhar o perfil do sólido, mo- 
U vimentaremos uma linha na tela, 




Uma grande vantagem do programa 
é permitir ao observador escolher o ân- 
gulo do qual quer ver a figura — não 
só de cima, de baixo ou de frente, mas 
de qualquer ângulo entre 0" e 1 80" (um 
ângulo de 70", por exemplo, mostra o 
objeto como se ele estivesse sobre uma 
mesa). Você pode mudar esse ângulo 
quantas vezes quiser e o micro redese- 
nhará o sólido em outra posição. 

O programa armazena as coordena- 



tar a rotação, ao pressionar uma ouira 
tecla. Para isso, o computador desenha 
as posições intermediárias da rotação e 
as armazena na memória, recorrendo à 
técnica de páginas gráficas. Depois que 
todas as páginas estão feitas, elas são 
exibidas em sequência, o que produz o 
efeito de animação. 



Digite o programa e lente traçar al- 
gumas figuras sólidas. O processo de de- 
senho consiste em movimentar o cursor 
para a posição desejada e marcar o pon- * 



o 

« 

© 



© 




to inicial. A panir daí, a reta poderá ser 
deslocada para qualquer lugar. Quando 
você csiiver satisfeito com sua localiza- 
ção, use uma tecla para fi\á-1a. Prossi- 
ga assim ate terminar o perfil da figu- 
ra. Para indicar ao micro que o desenho 
esiá pronto, você deverá pressionar uma 
outra tecla. 

No Spcctrum, use as próprias teclas 
do cursor para mover a linha. M para 
marcar a posição inicial e < KNTKR > 
para fixar a reta. Pressione Q ao lermi- 
nar o desenho. 

No TRS-Color, as ledas do cursor 
lambem Uirecionam a linha; < KN- 
TK.R> marca o ponto inicial, a barra 
de espaços fixa a rela e Y finaliza a 
figura. 

Para o MSX, use as setas para des- 
locar a linha, I para iniciali/ar o dese- 
nho, a barra de espaços para fixar a re- 
la e w para finalizar. As teclas R e 1> per- 
miiem que você desenhe mais rápido ou 
mais devagar. 

No Apple e no TK-21XX), use /. X ; 
e . para movimentar a linha. Os outros 
comandos são iguais aos do MSX. 



10 PRINT AT 0.10; INK 2-, 
PAPER 5; "ROTAÇÃO 3D" : PAUSE 
100 

20 PAUSE 2500 

30 CLEAR 30000: PAPER 0: INK 

5: CLS : POKE 23658,0 

40 GOSUB 2000: BORDER 0 

50 PRINT AT 0.0; PAPER 6; INK 

0:" MOVER LINHA - TECLAS DE C 

URS0R (CAPSHJFT P/MAIOR VELO 

C.) 

60 PRINT : PRINT PAPER 6; 
INK 0:" FIXAR LINHA - ENTER 

FIXAR CURSOR - 

M FIM - Q 

70 INPUT "ANGULO DE OBSERVACA 
O (0-180)";i: IF 1Í0 OR i>180 
THEN GOTO 70 

80 PLOT 60.100: DRAW 135,0: 
DRAW 0,-49: DRAW -135,0: DRAW 
0,49 

90 LET 13-SIN (i/180«PI) 
100 LET bf-0: LET aS-"" 
110 LET x=129: LET y-51 
120 LET xx-x: LET yy-y 
130 OVER 1 

140 PLOT x.y: DRAW xx-x.yy-y 
150 PLOT x.y: DRAW xx-x.yy-y 
160 LET zS=INKEYS: I F iS»*" 



THEN GOTO 140 

170 LET 2-CODE zS 

1B0 IF z-13 THEN GOSUB 500 

190 IF z-113 THEN GOTO 600 

195 IF z-109 AND bfOl THEN 

PLOT 255-X,y: LET x-XX: LET y- 

yy: LET bf=l 

200 IF z-53 AND xx>128 THEN 
LET XX-XX-1 

210 IF z=8 AND xx>130 THEN 
LET xx=xx-2 

220 IF z-55 AND yy<100 THEN 
LET yyyy+1 

230 IF z=ll AND yy-98 THEN 
LET yy-yy+2 

240 IF z-56 AND xx<195 THEN 
LET xx=xx+l 

250 IF 1-9 AND xx<194 THEN 
LET xx-xx+2 

260 IF z-54 AND yy>52 THEN 
LET yy=YY-l 

270 IF z-10 AND yy>51 THEN 
LET yy-yy-2 
280 GOTO 140 

500 OVER 0: PLOT X.y: DRAW xx- 

x.yy-y 

510 PLOT 255-x,y: DRAW x-xx.yy 

-Y 

520 LET x-xx: LET y=yy: LET a$ 
=aS+CHRS íx-128) +CHRS (y-51): 
OVER 1: RETURN 

600 INK 7: CLS : OVER 0: DIM a 
(20,2) 

610 FOR a=0 TO 7 

620 PRINT AT 21,7; PAPER 2| 

BRIGHT 1 ; "DESENHANDO FIGURA "| 

a+1 

630 GOSUB 1000 
640 IF a<>0 THEN GOTO 670 
650 PRINT AT 19,0; INVERSE 1:" 
■CSPACE> P/ ALTERAR ANGULO DE 
OBSERVAÇÃO - QUALQUER OUT 
RA TECLA PARA CONTINUAR. 

660 LET XS-INKEYS: IF XS="" 
THEN GOTO 650 

662 IF XSO" " THEN GOTO 670 
664 INPUT "DIGITE 0 NOVO ANGUL 
0 (0-180)";l 

666 IF K0 OR i>180 THEN GOTO 
662 

668 CLS : LET is-SIN (i/180*PI 
) : GOTO 620 
670 GOSUB 1600 
680 CLS 
690 NEXT a 

700 PRINT AT 20.11; PAPER 1\ 

INK 1;" FIGURA: 

710 FOR a=128 TO 240 STEP 16 

720 POKE 30114, a: RAND USR 

30112 

730 PRINT AT 20,19;a/16 



740 NEXT a: GOTO 710 

1000 FOR b=l TO LEN aS STEP 2 

1010 LET x=CODE a$(b> 

1020 LET y=C0DE aS(b+l) 

1030 GOSUB 1500 

1040 NEXT b 

1050 RETURN 

1500 FOR c=0 TO 399 STEP 20 

1510 LET d=c+(2-25»a) : LET py=i 
- o*y 

1515 IF d>-360 THEN LET d=d-36 

° . 

1520 GOSUB 1530: NEXT c 
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1525 DRAU bxxd.bYYd: RETURN 
1530 LET yd-SIN (d/180*PI)*x«CO 
S (í/180«PI) 

1532 LET xd-COS (d/180*PI)*x 
1535 LET xd=128+xd: LET yd=90+y 
d+py 

1540 IF c = 0 THEN PLOT xd , yd : L 
ET bx=xd: LET by-yd 
1550 DRAW xd-PEEK 2367 7 , yd -PEEK 
23678 

1560 IF b=l AND bf-1 THEN GOTO 
1580 

1565 IF b=l THEN PLOT 128.90: 
DRAW xd-128,yd-90: GOTO 1580 
1570 PLOT aU+c/20.1) ,atl+c/20. 
2): DRAW xd-a ( l+c/20 , 1 ) . yd~a U+ 
c/20,2) 

1580 LET a{l+c/20.1)-xd 
1585 LET a(l+c/20,2)-yd 

1590 RETURN 

1600 POKE 30102, 128+a*16 

1610 RAND USR 30100 

1620 RETURN 

2000 RESTORE 2050 

2010 FOR a=0 TO 23 

2020 READ b: POKE a+30100,b 

2030 NEXT a 

2040 RETURN 

2050 DATA 17,0,0,33.0.64,1,0.16 
,237,176.201 

2060 DATA 33,0,0.17,0,64,1,0,16 
,237,176.201 



10 PMODE 2,1;PCLEAR 2 : CLEAR 200 

,7679:DIM A£19,l> 

20 RD=ATN(l)/45:V-247 

30 PCLS 1 rSCREEN 1 , 0 

40 BX=128 :BY=190 : DRAWBM128 . 190 

" :X=8X:Y-B¥ 

50 LINE (31,191)-(255.140) . PRES 
ET.B 

60 LINE IBX . B¥) - [X , Y) . PRES ET 
70 IF PEEK(345)^V GOSUB 500 
80 IF PEEK<339)=191 THEN M = 4 EL 
SE M=l 

|90 LINE (BX.BY)-(X.Y) ,PSET:IF P 



EEK{338)-191 AND AP*"" TH 
X ! BY=Y : BF-1 :GUSUB 500 
100 IF PEEK[339)=V AND LK! 
0 THEN 160 

110 IF PEEK(341)-V AND K-] 



130 IF PEEK(3431*V AND X-M>127 
THEN X-X-M 

140 IF PEEK{344)=V AND X+M<223 
THEN X-X+M 
150 GOTO 60 

160 GOSUB 2000i SCREEN 1.0: FOR A 
=0 TO 6:PCLS1:F0R G=0 TO A : PRES 
ETÍ0,G*2) : NEXT 
170 GOSUB 1000 
180 GS= INKEYS 

190 IF A-0 AND GS="" THEN 180 
200 IF A=0 AND G5-" " THEN 160 
210 NEXT 

220 FOR A-0 TO 6:PC0P¥ 5+A*2 TO 
l:PCOPY 6+A*2 TO 2 rNEXT 

230 IF INKE¥S= " " THEN 160 ELSE 
220 

500 LINE (BX , BY) - (X . Y) , PR ES ET 
510 LINEÍ255-BX,BY)-(255-X.Y) ,P 
RESET 

520 BX=X;BY=Y:AS=AS+CHRStX-12B) 

+CHRSU90-Y) : RETURN 

1000 FOR B=l TO LENÍAS) STEP 2 

1010 X-ASCÍMIDS (AS,B. 1) ) : Y=ASC{ 

MIDSlAS.B+l.D) 

1020 GOSUB 1500:NEXT 

1030 PCOPY 1 TO 5+A*2:PCOPY 2 T 

O 6+A*2 

1040 RETURN 

1500 FOR C=0 TO 360 STEP 20 
1510 D=C+20*A/7:PY-IS*Y 



1.1520 GOSUB 1530;NEXT:RETURN 
I 1530 YD-U0-SIN(D«RDt»X«COSíl«R 
D) -PY : XD= 1<?8 + C0S (D* RD) "X 
1540 IF C-0 THEN LINE (XD. YD) (X 
D . YD) . PR ES ET : BX*XD : BY-YD 
1550 I. INE - {XD , YD) . PRES ET 
1560 IF B-l AND BF-1 THEN 1580 
K1.:!K IF B-l THEN UNE [ 12a . 110) - 
(XH.YD) ,PRE5ET:G0T0 1580 
1 «. /0 LlNE(A(C/20,O) .AUV20.1) ) - 
tXD, YD) , PRKSET 

1580 AKV20.0)-XD:A(C/20.1)-YD: 
UETURN 

.•000 CLS:INPUT" ANGULO DE OBSER 

VACAO C0-18Q) "il 

2010 IF K0 UR I>180 THEN 2000 



10 SCREEN 2:DIM AÍ19. L) 

20 RD=AT« (] ) 745:M=t 

30 LINE (127,66)-(207.]26) ,15.B 

F 

35 LINE {47,66) - {127. I 26) . 14 . BF 
40 BX-127:BY=IZ6:X=BX:Y-B¥:XX-B 
X : YY = BY 

60 LINE (BX.BY) - (X.Y) ,8 

70 C5=INKEYS:IF CS=""THEN 70 

75 IF CS=" " THEN GOSUB 500 

80 IF C3="R" THEN M=4 

85 TF C$-"D" THEN M* 1 

90 LINE(BX.BY) - {X. Y) . )5r IF CS=" 

I" AND AS*"" THEN BX=X : B Y - Y : BF- 

1: GOSUB 500 

100 IF CS="F" AND LEN(A5)>0 THE 
N 160 

1)0 IF CS = CHRS(30) AND Y-M>f>6 T 
HEN Y=Y-M 

120 IF C$-CHRS<31) AND Y+M<l2fi 
THEN Y=Y+M 

130 IF C5-CHRS{29} AND X-M>127 
THEN X-X-M 

140 IF CS=CHRS128)AND X+MÍ207 T 
HEN X=X+M 
150 GOTO 60 
160 GOSUB 2000 

170 COLOR, )L. 11 rSCREEN 2:GOSUB 



54 VTAB (23) : PRINT "BARRA DE 
ESPAÇO: FIXA A RETA* 
56 VTAB (24): PRINT "DIREÇÃO : 
<Z>.<X>. <!>,<->"! 
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É possível realizar em um micro anima- 
ções gráficas em trás dimensões como 
as que aparecem na TV? 

Os grafismos animados em três di- 
mensões que aparecem em vinhetas de 
televisão, e nos filmes produzidos por 
computador {TRON, por exemplo), de- 
vem sua espantosa qualidade e realis- 
mo ás máquinas que os elaboram — 
geralmente, supercomputadores do ti- 
po Cray II, com capacidade de execu- 
tar sessenta milhões de operações em 
ponto flutuante por segundo. 

A técnica utilizada, entretanto, não 
difere de que explicamos neste artigo 
para gerar sólidos de revolução. Super- 
fícies complexas são montadas por mi- 
lhares de "tijolos" regulares, depois, 
"alisados" por algoritmos especiais, o 
que lhes dá um aspecto contínuo. Ou- 
tros programas pintam as superfícies 
com cores selecionadas, adicionam bri- 
lho e sombra etc tornando o resulta- 
do o mais realista possível. 

executar quase tudo o que um compu- 
tador de grande porte faz. Porém, tém 
telas com menor resolução gráfica, me- 
nor número de cores, enfim, não con- 

pode esperar, portanto, que produzam 
efeitos de igual qualidade. 




1000 

190 CS=INKEY5: IF C$ = "" THEN 1 90 
200 «OTO 160 

500 LINE (BX.BY)-(X.Y) ,1 

510 LINE (255-BX.BY)- (255-X.Y) . 

1 

5 20 BX = X :BY = Y ! AS = AS+CHRS ( X - I 26) 

+CHRS ( 1 2 7 -Y) : RETURN 

1000 FOR B=l TO LEN IAS) STEP 2 

1010 X=ASC(MJDS (AS. B. I > ) : Y=ASC ( 

MIDS (AS ,B+1 . 1 ) ) 

1020 GOSUB 1500:NEXT B 

1040 RETURN 

1500 FOR C=0 TO 399 STEP 20 

1510 D=C:PY=IS*(Y*5) 

1520 GOSUB 1530: NEXT C j RETURN 

1530 YD=96-SrN(D*RD) *X*Ct)S ( i»nr> 

) -PY : XD=j 2 7+COS (D* RD) *X 

1540 IF C=0 THEN BX-XD r BY-YD : XX 

=XD: YY-YD 

1550 LINE (XX . YY) - (XD, YD) . 1 : XX=X 
D: YY=YD 

1560 IF B=l AND BF= 1 THEN 1580 
1565 IF B = l THEN LINE (80 , 91 ) - (X 
D, YD) , l :G0T0 1580 
1 570 LINE(A(C/20.0) ,A(C/20, 1) )- 
(XD, YD) , 1 

1580 XX=XD:YY=YD:A(C/20,0)=XD:A 
(C/20, 1> =YD: RETURN 
2000 SCREEN 0 : KEY 0FF:CQLOR 15. 
4,4:L0CATE 8.8 : INPUT"Angu] o de 
visão-" i I 



rira 



10 HOME : HGR : DIM A(19,l) 

20 RD - ATN (1) / 45:M - 1 

30 HC0LOR= 6: HPLOT 140,90 TO 

220,90 TO 220, 149 

40 BX - 140:BY = 149:X =■ BX:Y - 

BY:XX = BX : YY = BY 
50 VTAB (21): PRINT "COMANDOS ! 

<I>NICIO-<F>IM 
52 VTAB (22): PRINT "VELOCIDAD 
E DO BISCO: <R>APIDO-<D>EVAGAR" 



60 HC0LOR= 3: HPLOT BX , BY TO X 

,y 

70 GET CS: IF CS = " " THEN G 
OSUB 500 

80 IF CS - "R" THEN M = 4 

85 IF CS - "D" THEN M - 1 

90 HC0LOR' 0: HPLOT BX , BY TO X 

,Y: IF CS = "I" AND A$ - THE 

N BX ■ X:BY = Y:BF = 1: GOSUB 5 

00 

100 IF CS - "F" AND LEN (AS) 
> 0 THEN 160 

110 IF CS - ";" AND Y - M > 90 

THEN Y ■ Y - M 
120 IF CS - "." AND Y + M < 15 
0 THEN Y ■ Y + M 

130 IF C$ - "Z" AND X - M > 14 
0 THEN X - X - M 

140 IF CS - "X" AND X + M < 22 

0 THEN X - X + M 

150 GOTO 60 

160 HGR : GOSUB 2000 

170 GOSUB 1000 

190 GET C$: IF CS = " " THEN 1 
60 

195 GOTO 190 

500 HC0LOR= 3: HPLOT BX , BY TO 
X,Y 

510 HPLOT 281 - BX , BY TO 261 - 
1,1 

520 BX = X:BY = Y:AS = AS + CH 
RS (X - 140) + CHRS (149 - Y) : 
RETURN 

1000 FOR B - 1 TO LEN (AS) ST 
EP 2 

1010 X - ASC ( MIDS (AS.B.D): 
Y - ASC ( MIDS CAS.B + 1.1)) 
1020 GOSUB 1500: NEXT B 
1040 RETURN 

1500 FOR C = 0 TO 399 STEP 20 
1510 D = C:PY - IS * (Y * .5) 
1520 GOSUB 1530: NEXT C: RETUR 

N 

1530 YD = 80 - SIN (D * RD) * 
X * COS (I * RD) - PY:XD =■ 140 
+ COS (D ■ RD) * X 
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VIDEOTEXTO E 
MICROCOMPUTADORES 



0 QUE É 0 VIDEOTEXTO 



COMO FUNCIONA 



INFORM A ÇÕES E SERVIÇOS 
CONEXÃO AO VIDEOTEXTO 



COMPATIBILIDADE 



Use o micro para ter acesso a um 
sofisticado sistema de intercâmbio 
de informações: o videotexto. 
Ele colocará à sua disposição uma 
variada gama de serviços. 



Utilizado isoladamente, um micro- 
computador doméstico é capaz de de- 
sempenhar uma grande variedade de ta- 
refas. Estas se multiplicam, porém, 
quando ele passa a integrar uma rede de 
computadores — o que, nos últimos 
anos, se tornou possível no Brasil. 

No artigo da página 561, vimos co- 
mo a tecnologia dos modems (modula- 
dor-demodulador) permite que se recor- 
ra à rede telefónica normal para envio 
e recepção de mensagens, textos, dados, 
programas e gráficos em forma digital. 
Um computador pode, assim, "conver- 
sar" com outro de uma maneira barata 
e relativamente rápida. 

Existem diferentes tipos de rede de 
computadores que empregam o telefone 
e o modem como meios de comunicação. 
As redes de área local (LAN) ou ampla 
(WAN), compostas apenas por micro- 
computadores (como os quadros de avi- 
sos, ou bulleiins boards), serão exami- 
nadas em outro artigo. Aqui, trataremos 
das redes em que o microcomputador 
é usado como terminal de um compu- 
tador maior. 



O videotexto é um exemplo desse ti- 
po de rede. O sistema estabelece o con- 
tato do usuário com um computador de 
grande porte, por meio da rede telefó- 
nica normal. O microcomputador não 
é indispensável à rede: o usuária preci- 
sa ter apenas um terminal de videotex- 
to. Este é um pequeno aparelho dotado 
de microprocessador e teclado portátil, 
que usa como saída de vídeo um apare- 
lho de TV doméstico. 

O software operacional do videotex- 
to permite não só a implementação de 
uma estrutura própria de dados, bem 
como sua consulta pelo usuário. As in- 
formações armazenadas no computador 



central do sistema videotexto são orga- 
nizadas em páginas. Cada página cor- 
responde a uma ou mais telas de vídeo 
contendo texto e ilustrações, ambos em 
cores. Para sua composição, utíliza-se 
um conjunto de caracteres gráficos tí- 
picos de videotexto. 

As páginas são organizadas segundo 
uma estrutura em forma de árvore. O 
usuário pode "explorar" à vontade es- 
sa árvore, chamando à tela — por meio 
de seleções efetuadas pelo teclado — as 
diversas páginas que compõem um de- 
terminado conjunto. As opções feitas 
são enviadas ao computador central, 
que então encaminha a página solicita- 
da para o terminal de videotexto, por in- 
termédio da linha telefónica. 

O uso do videotexto é aberto a assi- 
nantes — ou seja, o usuário que dese- 
jar ter acesso ao mesmo deve pagar uma 
assinatura mensal, debitada na conta te- 
lefónica normal, além de uma taxa de 
utilização, que varia proporcionalmen- 
te ao tempo que o terminal permanece 
conectado ao sistema. 

Os dados armazenados no computa- 
dor central são fornecidos por empre- 
sas, órgãos governamentais, jornais, re- 
vistas e outras fontes, que mantém suas 
próprias páginas de informação, atua- 
lizando-as frequentemente. 

O videotexto oferece uma enorme va- 
riedade de serviços informativos e re- 
creativos: notícias do dia, indicadores 
económicos e cotações das bolsas, pro- 
gramação de cinemas e teatros, publi 
cações, transportes aéreos, turismo, in 
formações científicas e médicas, horós- 
copo, números da lista telefónica, pro- 
dutos à venda etc. Como o sistema é in- 
terativo, inclui ainda serviços em que a 
participação do usuário é mais intensa, 
tais como: videogames, troca de mensa- 
gens pessoais, anúncios classificados, re- 
serva de passagens aéreas, solicitação de 
catálogos, concursos, telecompras etc. 

O sistema é fácil de usar, fornecen- 
do ao usuário todas as instruções neces- 
sárias e os menus para seleção. 



CONEXÃO A UM MICRO 



Como já dissemos anteriormente, 
mesmo aqueles que não possuem um 



computador doméstico podem se asso- 
ciar ao sistema videotexto utilizando um 
terminal alugado pela própria compa- 
nhia telefónica local por um valor mó- 
dico (não é necessário comprá-lo). 

Entretanto, a conexão de um micro 
ao sistema videotexto traz algumas van- 
tagens ao usuário — entre elas o acesso 
a alguns serviços de fornecimento gra- 
tuito de software, que pode ser copiado 
com grande facilidade em fita cassete ou 
disco. Dispondo de um computador, o 
usuário tem ainda a possibilidade de lis- 
tar em impressora as informações for- 
necidas pelo sistema, para exame pos- 
terior. 

Para conectar o seu micro ao siste- 
ma videotexto, basta ter: 

• uma porta serial assíncrona, do tipo 
RS-232C (se seu computador não dispõe 
de uma, você precisará comprar uma 
placa de expansão); 

• um modem de 1200 bips por 75 (exis- 
tem tipos especiais para videotexto, al- 
guns deles disponíveis também como 
placas internas de expansão); 

• um programa de emulação de termi- 
nal de videotexto, que deve ser carrega- 
do previamente na memória do seu mi- 
cro, quando quiser acessar o serviço. 

Já existem "pacotes" para acesso ao 
videotexto, contendo os componentes 
mencionados, para praticamente todos 
os tipos de microcomputadores nacio- 
nais. Algumas companhias telefónicas 
alugam ou vendem kits de acesso para 
os modelos mais populares, como o Ap- 
ple II e seus compatíveis. Mesmo micros 
bem simples, como o TK-90X, podem 
ser conectados ao videotexto (não é pre- 
ciso ter uma unidade de disquete). 

Finalmente, para se beneficiar do sis- 
tema, será necessário que você se inscre- 
va como assinante do videotexto junto 
à companhia telefónica. Consulte-a pa- 
ra saber se o serviço está disponível em 
sua cidade e se seu micro foi credencia- 
do para acesso ao videotexto. Em caso 
de resposta afirmativa, você poderá ob- 
ter também a informação sobre onde 
conseguir o kit de acesso, para aluguel 
ou compra. 



